удалить пустые строки в txt файле

[andreton]

как удалить автоматом пустые строки в txt файлах? их очень много...

кто знает, подскажите, плиз

[andreton]

в смысле - файлов много....

[TaYgA]

Ну могу подсказать как это делается на Delphi... добавь на форму ListBox... и дальше считываешь этот файл и записуешь в ListBox строки не равные нулю... Вот примерный код:

  AssignFile(f,ExtractFilePath(paramstr(0))+'Имя файла'); // открываем файл для чтения
  Reset(f);
  While not EOF(f) do begin //идём по файлу
  Readln(f,p);
  if p<>' ' then begin // если строка не пустая то добавляем в лист бокс
    ListBox.Items.Add(p);
    Continue;
  end;
  ListBox.Items.SaveToFile(ExtractFilePath(paramstr(0))+'Имя файла'); //сохраняем в этот же файл

[andreton]

Спасибо,TaYgA!

Но по Delphi... туговато что-то...

Вот если бы тоже, но на VBS, чтобы встроить в TotalCommander... было бы очень кстати!

Кто знает, плиз, хелп!!!