Форум
Написать нам
  • Страница 1 из 1
  • 1
Модератор форума: as-master  
Форум MMB » Всё о программе Multimedia Builder » ГОТОВЫЕ ОТВЕТЫ ПО MMB » Удаление пустых строк
Удаление пустых строк
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. Хотел в готовые ответы запихать, а там дверки прикрыты. :)

 
YURIYДата: Воскресенье, 02 Мая 2010, 16:46 | Сообщение # 2
Злостный админ
Группа: Администраторы
Сообщений: 3013
Репутация: 71
Награды: 28
Статус: Offline
Ну да, от засранцев :)

Перенёс.



Вечная память Андрею Сергееву!
 
Форум MMB » Всё о программе Multimedia Builder » ГОТОВЫЕ ОТВЕТЫ ПО MMB » Удаление пустых строк
  • Страница 1 из 1
  • 1
Поиск: