Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Сен

Удалить из файла похожие строки

Posted by micher under Delphi

erzhik_s

Существует файл с данными:

text1.text2
text.text1.text2
string1.string2
string.string1.string2.string3

Как удалить строки что бы в итоги было:
text1.text2
string1.string2

Serge_Bliznykov



procedure TForm1.Button1Click(Sender: TObject);

var e,i: Integer;

j:String;

begin

  memo1.Lines.LoadFromFile('Твой файл');  \\ Грузим файл, не забываем указать путь к нему=)

for e:=Memo1.Lines.Count-1 downto 1   do    \\ С последней строку по первую

  begin

     sFind := Memo1.Lines[e];                       \\ В качестве искомого теста берём текущую строку

      for i:=e-1 downto 0 do              \\ Со следующей строки по последнюю

        begin

          if AnsiPos(sFind, Memo1.Lines)0 then                 \\ Если нашли

              Memo1.Lines.Delete(i);                                 \\ Удаляем

        end;

end;

  end;

  Memo1.Lines.SaveToFile('Твой файл');                        \\ Сохраняем свой файл

end;