Удаление пустых строк

Страница 1 из 1 1
Модератор форума: as-master

Rush

Дата: Воскресенье, 02 Мая 2010, 14:36 | Сообщение # 1

Обозреватель-консультант

Группа: Проверенные

Сообщений: 216

Репутация: 10

Награды: 1

Статус: Offline

Копался сегодня в архивах своих проектов. Нашел, вроде, оригинальную штуку.

Code

crlf$=CHR(13)+CHR(10)
lfcr$=CHR(10)+CHR(13)
string$=StrFromFile(N:\test.txt,1,-1)
string$=StrChange(string$,lfcr$,'')
pos=LEN(string$)-1
If (crlf$=StrCopy(string$,pos,2)) Then
   string$=StrDel(string$,pos,2)
End
If (crlf$=StrCopy(string$,1,2)) Then
   string$=StrDel(string$,1,2)
End
rv=StrToFile(N:\test.txt,string$,0,0)

Самое главное в этом способе - убирает за раз сколько угодно расположенных подряд пустых строк. Работает гораздо быстрее текстовых редакторов.

PS. Хотел в готовые ответы запихать, а там дверки прикрыты.