Текущий архив: 2006.01.15;
Скачать: CL | DM;
Вниз
удалить строку Найти похожие ветки
← →
Daria (2005-12-23 15:50) [0]Молодые люди! ПОМОГИТЕ!!! как удалить из текстового файла пустые строки???
← →
Johnmen © (2005-12-23 15:53) [1]Я не помогу. Немолодой уже.......
Хотя что-то ещё помню: зачитать файл, удалить строки, записать.....
← →
The_scorpion © (2005-12-23 15:56) [2]Попробуй файл удали, должны и пустые строки удалиться...:)))
← →
Плохиш © (2005-12-23 15:59) [3]
> Daria (23.12.05 15:50)
> Молодые люди! ПОМОГИТЕ!!! как удалить из текстового файла
> пустые строки???
Дочка, в файлах нет строк.
← →
Anatoly Podgoretsky © (2005-12-23 16:14) [4]Плохиш © (23.12.05 15:59) [3]
В текстовых файлах есть.
← →
umbra © (2005-12-23 16:46) [5]один из способов - загрузить файл в TStrings, удалить пустые строки, сохранить под тем же именем
← →
Плохиш © (2005-12-24 00:18) [6]
> Anatoly Podgoretsky © (23.12.05 16:14) [4]
> Плохиш © (23.12.05 15:59) [3]
> В текстовых файлах есть.
В интерпретации, после обработки есть, а в самом файле есть только набор байтов :-)
← →
з. танька (2005-12-24 00:51) [7]мона прошвырнуться по файлу и дубли #13#10 удалить..
← →
Johnmen © (2005-12-24 01:00) [8]А дубли #10 не надо?
← →
Германн © (2005-12-24 02:36) [9]2 Johnmen © (23.12.05 15:53) [1]
А если бы вопрос был бы типа - "Мальчики! ПОМОГИТЕ!!! как удалить из текстового файла пустые строки???
Как бы ты ответил? :-)
Пошел бы ты по пути Digiman?
Или тоже говорил-бы про "дубли #10"?
:-)
← →
MBo © (2005-12-24 07:58) [10]
Открыть текстовый файл A на чтение
Открыть текстовый файл B на запись
пока не конец A
читать строку из A
если строка не пустая, то
записать строку в B
конец
закрыть A
закрыть B
← →
vidiv © (2005-12-24 08:08) [11]
var s:TStringList; i: integer;
begin
s := TStringList.Create();
s.LoadFromFile("text.txt");
i:=0;
while i<s.count do
if trim(s[i])="" then
s.delete(i)
else
inc(i);
s.SaveToFile("text.txt");
end;
Я бы так сделал
← →
Anatoly Podgoretsky © (2005-12-24 11:18) [12]vidiv © (24.12.05 08:08) [11]
Если файл не большой, и лучше цикл for downto
← →
Johnmen © (2005-12-24 20:46) [13]>Германн © (24.12.05 02:36) [9]
Для женского пола исключения не было бы.
Страницы: 1 вся ветка
Текущий архив: 2006.01.15;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.037 c
