Как решить задачу такого плана - В текстовом файле имеются строки:
Документ №Ra2343 создан - 15.06.2017
Документ №Ra2544 создан - 10.06.2018
Документ создан 21.06.2018
Документ создан 22.06.2019
Документ №Ra2542 создан - 10.06.2018
Документ создан 15.06.2019
Отсеять все строки из файла где нет знака "№" и знака "-" и на выходе создается файл в котором результат:
Документ №Ra2343 создан - 15.06.2017
Документ №Ra2544 создан - 10.06.2018
Документ №Ra2542 создан - 10.06.2018
Отсеять по одному ключевому слову я знаю:
Делаю так - это поиск строк по одному слову:
procedure TForm1.Button1Click(Sender: TObject);
var
fall, f1: TextFile;
S: string;
begin
//Открываем диалог выбора файла
if OpenDialog1.Execute then
begin
AssignFile(fall, OpenDialog1.FileName);
reset(fall);
AssignFile(f1, ExtractFileDir(OpenDialog1.FileName)+'\Reaultat.txt');
rewrite(f1);
end;
//работаем по строкам в файле
while not Eof(fall) do
begin
//читаем строку
ReadLn(fall, S);
// В memo пишем ключевое слово и ищем все строки с ним без учета регистра
if (Pos(AnsiLowerCase(Memo1.Lines[0]), AnsiLowerCase(s)) > 0) then
writeln(f1, S);
end;
CloseFile(fall);
CloseFile(f1);
end;
end.
А вот как искать строку по (двум словам) параметрам, то есть если есть знак "№" и знак "-" (Обязательно эти два знака в строке)) то записываем строку в Reaultat.txt ?
if (Pos('№', AnsiLowerCase(s)) == 0 and Pos('-', AnsiLowerCase(s)) == 0) then
не сработает разве? – Axenow 29 сен '18 в 9:39if (Pos('№', AnsiLowerCase(s)) > 0 and Pos('-', AnsiLowerCase(s)) > 0) then
. Вот так должно быть, – Axenow 29 сен '18 в 9:48