строки подстроки

← →
незнайка_ (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]

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

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