Удаление абзаца в файле - VB
Формулировка задачи:
Дано целое число К и текстовый файл. Удалить из файла абзац с номером К (абзацы отделяются друг от друга одной или несколькими пустыми строками) . Пустые строки, предшествующие и следующие за удаленным абзацем, не удалять. Если абзац с данным номером отсутствует, то оставить файл без изменений.
Решение задачи: «Удаление абзаца в файле»
textual
Листинг программы
Sub I_AM_STUPID_GIRL() Const NL2 = vbNewLine & vbNewLine Open "d:\myfile.txt" For Input As 1 s = NL2 & Input$(LOF(1), #1) & NL2 Close 1 Do p = p + 1 p = InStr(p, s, NL2) If Mid$(s, p + 2, 4) <> NL2 Then n = n + 1 If n = 5 Then Open "d:\myfile2.txt" For Output As 1 s = Left$(s, p + 2) & Mid$(s, InStr(p + 1, s, NL2)) Print #1, Mid$(s, 5, Len(s) - 8); Close 1 Exit Sub End If Loop End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д