Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c