Дан текстовый файл, абзацы в нем выделенны с красной строки (5 пробелов) ... - VB

Формулировка задачи:

Дан текстовый файл,абзацы в нем выделенны с красной строки(5пробелов) ,а пустых строк нет.Вставить между абзацами по пустой строке,в начало и в конец файла не добавлять.

Решение задачи: «Дан текстовый файл, абзацы в нем выделенны с красной строки (5 пробелов) ...»

textual
                            Листинг программы 
                        

                            dim stroka$ as string
dim c as long
file$="D:\txt.txt"
Open File$ for input as #1
Open mid$(File$,1,len(File$)-1) & "1" for output as #2
while not eof(1)
line input #1, stroka$
if mid$(stroka$,1,5)="     " then 
   c=c+1
   if c>1 then Print #2, " " 
end if
print #2, stroka$
wend
close #1,#2
Kill File$
rename  mid$(File$,1,len(File$)-1) & "1" as File$    ' По поводу этой строчки не помню, посмотри 
' переименовать файл (Ren) или (Name)
                        

Оцени полезность:

10 голосов , оценка 3.9 из 5

Похожие ответы