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

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

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

27th
Апр

Найти строки из первого файла во втором и сохранить в третий файл

Posted by Chas under Delphi

есть файл 1.txt в котором список логинов например

1211212121

333333333

8787878788

555555555

33333333633

777777777

8888888888

и есть 2.txt в котором база на пример

333333333 t2341 t2341

Blatnoy666 123emo123 aleksey94

555555555 c2713BrOg t2341

Kastiel 7623699 max7623699

777777777 OBrAnOO2716 t2341Tobik

loveira 9036191603 lokomotiv123

нужно вытащить из базы 2.txt все строки которые начинаются словом(логином) из 1.txt

_SERGEYX_



procedure TForm1.RzBitBtn7Click(Sender: TObject);

var

  i: Integer;

  L1, L2, L3: TStringList;

begin

  L1 := TStringList.Create;

  L2 := TStringList.Create;

  L3 := TStringList.Create;
  L1.LoadFromFile('2.txt');

  L2.LoadFromFile('1.txt');
  for i := 0 to L1.Count - 1 do

    if L2.IndexOf(Copy(L1, 1, pos(' ', L1) - 1)) > -1 then

      L3.Add(L1);
      ShowMessage(L3.Text);
  L1.Free;

  L2.Free;

  L3.Free;

end;