Текущий архив: 2004.01.23;
Скачать: CL | DM;

Вниз

строки подстроки   Найти похожие ветки 

← →
незнайка_   (2004-01-11 23:30) [0]

Уважаемые мастера подскажите плиз!!!начинающему мастеренку

Как из текстового файла удалить строки которые содержат:
ПЕРЕЧЕНЬ подстрок, перечень может быть очень большим!
Нужно чтобы работало как филтр: удалающий строки содержащие
определенные слова!

---

← →
Vit@ly ©   (2004-01-11 23:36) [1]

Pos подстрока и руки в руки

---

← →
Незнайка_   (2004-01-11 23:53) [2]

Ну вот так у меня удаляет
var
f: Textfile;
fname: string;
s: integer;
ps: string;
begin
fname:= "Здесь файл.txt";
assignfile(f,fname);
reset(f);
while not eof(f) do
begin
readln(f,fname);
ps:="Вася";
s:=pos(ps,fname);
if s = 0 then
memo1.Lines.Add(fname);
end;

А как описать список всех возможных значений ps

---

← →
AMogil ©   (2004-01-12 00:05) [3]

Вроде так. Берет список строк из C:\Example.txt удаляет из него все строки содержащие хотя бы одну строку из C:\SubStrings.txt и сохраняет результат в C:\Result.txt.


var
i, j: Integer;
Deleted: Boolean;
SourceList, SubStringsList: TStringList;
begin
SourceList := TStringList.Create;
SubStringsList := TStringList.Create;
try
SourceList.LoadFromFile("C:\Example.txt");
SubStringsList.LoadFromFile("C:\SubStrings.txt");
i := 0;
while i < SourceList.Count do
begin
Deleted := False;
for j := 0 to SubStringsList.Count - 1 do
if Pos(SubStringsList[j], SourceList[i]) > 0 then
begin
SourceList.Delete(i);
Deleted := True;
Break;
end;
if not Deleted then
Inc(i);
end;
SourceList.SaveToFile("C:\Result.txt");
finally
SourceList.Free;
SubStringsList.Free;
end;


---

← →
Незнайка_   (2004-01-12 00:09) [4]

Классно спасибо! Буду пробовать.

---

Страницы: 1 вся ветка

Текущий архив: 2004.01.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c