Я написал, используя компонент "regexpr". Код:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var r:TRegExpr;
data,z:TStringlist;
begin
r:=TRegExpr.create;
data:=tstringlist.create;
z:=tstringlist.create;
data.loadFromFile('source.txt');
r.expression:='(\d{0,});\d{0,}.(\d{0,}).(\d{0,}) \d{0,}:\d{0,}:\d{0,}';
if r.exec(data.text) then
repeat
if (r.match[2] = labelededit2.text) and (r.match[3]=labelededit1.text) then z.add(r.match[1]);
until not r.execnext;
z.savetofile('good.txt')
end;
Но проблема в том, что при списке уже 100к - повисает.. =( А надо отпарсить 3млн.