Показать сообщение отдельно
  #3  
Старый 25.07.2010, 12:27
arach arach вне форума
Прохожий
 
Регистрация: 17.06.2010
Сообщения: 39
Репутация: 10
По умолчанию Зачем же так даты и тп?

Я написал, используя компонент "regexpr". Код:

PHP код:
procedure TForm1.Button1Click(SenderTObject);
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.textthen 
  repeat
   
if (r.match[2] = labelededit2.text) and (r.match[3]=labelededit1.textthen z.add(r.match[1]);
  
until not r.execnext;
 
z.savetofile('good.txt')
end

Но проблема в том, что при списке уже 100к - повисает.. =( А надо отпарсить 3млн.
Ответить с цитированием