Текущий архив: 2007.06.24;
Скачать: CL | DM;
Вниз
Как удалить строку в текстовом файле? Найти похожие ветки
← →
ambhtr (2007-05-31 14:57) [0]Открываю файл. Прохожу его построчно. Проверяю каждую строку на содержание символа (например "*"). Если знак имеется в строке, эту строку из файла нужно удалить.
Так как можно удалить строку из текстового файла?
← →
Джо © (2007-05-31 15:00) [1]Самое простое — использовать TStringList.
← →
Сергей М. © (2007-05-31 15:01) [2]
> как можно удалить строку из текстового файла?
Оч просто - создав одноименный файл, содержимое которого не содержит этой строки.
← →
Palladin © (2007-05-31 15:02) [3]
Var
f1,f2:Text;
s:String;
Begin
AssignFile(f1,<file1>); Reset(f1);
AssignFile(f2,"tmp"); Rewrite(f2);
While Not Eof(f1) Do
Begin
Readln(f1,s);
If Pos("*",s)<>0 Then WriteLn(f2,s);
End;
CloseFile(f1);
CloseFile(f2);
DeleteFile(<file1>);
Rename(f2,<file1>);
End;
← →
Плохиш © (2007-05-31 15:22) [4]
> If Pos("*",s)<>0 Then WriteLn(f2,s);
Тогда уж "=", по условиям задачи :-)
← →
Palladin © (2007-05-31 15:23) [5]точно... обшибся...
Страницы: 1 вся ветка
Текущий архив: 2007.06.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.023 c
