Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.02 c
14-72871
Knight
2004-01-01 03:36
2004.01.23
Кто какие французкие группы и исполнителей знает?


14-72934
Кукушкинд
2003-12-31 11:33
2004.01.23
Помню, в детстве...


3-72624
Крутыш
2003-12-27 20:15
2004.01.23
Access и поле счётчика.


1-72762
TiCS
2004-01-13 13:45
2004.01.23
Преобразование текста в речь


1-72830
Андреев
2004-01-08 21:15
2004.01.23
Hint от MeinMenu