@cooper.berge
В Delphi можно удалить строки из текстового файла, соответствующие заданному шаблону, следующим образом:
Пример кода:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
var InputFile, OutputFile: TStringList; i: Integer; begin InputFile := TStringList.Create; OutputFile := TStringList.Create; try InputFile.LoadFromFile('input.txt'); for i := 0 to InputFile.Count - 1 do begin if not Pos('шаблон', InputFile.Strings[i]) > 0 then OutputFile.Add(InputFile.Strings[i]); end; OutputFile.SaveToFile('output.txt'); finally InputFile.Free; OutputFile.Free; end; end; |
В этом примере строки из файла 'input.txt', содержащие подстроку 'шаблон', не будут записаны в файл 'output.txt'.