Вытащить строки из txt

[hackvl]

есть файл 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
помогите очень нужна прога.

[hackvl]

Кто поможет? очень нужно

[Кольша]

Ну тут два варианта либо ini , либо Tstringlist и copy pos delete

[Slym]

uses StrUtils;
{$R *.dfm}

procedure FilterList(const Name:string;Source,Dest:TStrings);
var i:integer;
begin
  for i:= 0 to Source.Count-1 do
  begin
    if AnsiStartsStr(Name,Source[i]) then
      Dest.Append(Source[i]);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Source,Dest:TStringList;
begin
  Source:=TStringList.Create;
  Dest:=TStringList.Create;
  Source.LoadFromFile('1.txt');
  FilterList('111111 ',Source,Dest);
  Dest.SaveToFile('3.txt');
end;

[hackvl]

нужно чтоб он брал из файла 1 (в нем список логинов) и искал каждый логин во втором файле

uses StrUtils;
{$R *.dfm}

procedure FilterList(const Name:string;Source,Dest:TStrings);
var i:integer;
begin
  for i:= 0 to Source.Count-1 do
  begin
    if AnsiStartsStr(Name,Source[i]) then
      Dest.Append(Source[i]);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Source,Dest:TStringList;
begin
  Source:=TStringList.Create;
  Dest:=TStringList.Create;
  Source.LoadFromFile('2.txt'); // это файл базы в которой будет искать строки
  FilterList('111111 ',Source,Dest); //тут нужно не определенное слово искать а весь список из файла 1.txt
  Dest.SaveToFile('3.txt');
end;

[phomm]

Ну а в чем трабл ? Код Вы чужой поняли, значит малость соображать умеете, вот Вам примитивный вариант, если надо допилите (ибо 3ной цикл, брр, как я мог ), ну и сами обвязку, конечно. Вообще, конечно, по уму, надо просто выделение 1 слова из каждой строки в бд и сравнение, а ещё лучше - сортировать оба файла (можно в памяти) и уже поиск по сортированным с выделением слова и сравнением.

slbd.loadfromfile('2.txt');
sllogins.loadfromfile('1.txt');
for i := 0 to sllogins.count - 1 do
  for j := 0 to slbd.count - 1 do
    if pos(sllogins[i], slbd[j]) > 0 then
      dest.add(slbd1[j]);

[_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[i], 1, pos(' ', L1[i]) - 1)) > -1 then
      L3.Add(L1[i]);

      ShowMessage(L3.Text);

  L1.Free;
  L2.Free;
  L3.Free;
end;

[phomm]

Нет, ну я конечно сразу написал - примитивный вариант, но вот, если честно, индексоф - тоже цикл, у Вас тоже получается тройной цикл (for indexof pos), сложность обоих наших алгоритмов - O(n^3)
Ну и я указал, как добиться ускорения алгоритма. Там ещё можно PosEx ввернуть - тоже побыстрее будет, много чего оптимайзнуть можно, но как известно - лень ))

Но всё равно спасибо за альтернативу

[hackvl]

спасибо всем, помогли