| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как удалить строку в текстовом файле?

ambhtr ©   (2007-05-31 14:57:00) 

Открываю файл. Прохожу его построчно. Проверяю каждую строку на содержание символа (например '*'). Если знак имеется в строке, эту строку из файла нужно удалить.
Так как можно удалить строку из текстового файла?

---

Palladin   (2007-05-31 15:23:00) [1]

точно... обшибся...

---

Плохиш   (2007-05-31 15:22:00) [2]

>   If Pos('*',s)<>0 Then WriteLn(f2,s);

Тогда уж "=", по условиям задачи :-)

---

Palladin   (2007-05-31 15:02:00) [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:01:00) [4]

> как можно удалить строку из текстового файла?


Оч просто - создав одноименный файл, содержимое которого не содержит этой строки.

---

Джо   (2007-05-31 15:00:00) [5]

Самое простое — использовать TStringList.

---

Наверх