Regexp

[Lardes]

Написан на Lazarus'е

[Fahman]

Сообщение от Lardes

Написан на Lazarus'е

спасибо, на delphi есть? просто я не пойму вот как спарсить вторую строку в таблице у вас выходит в сообщении сперва первоя строка и потом вторая...

[Lardes]

Delphi нет под рукой. Код регулярного выражения абсолютно ничем не отличается... Какая версия Delphi?

[Fahman]

Сообщение от Lardes

Delphi нет под рукой. Код регулярного выражения абсолютно ничем не отличается... Какая версия Delphi?

У меня Delphi 7 но тот код который вы мне дали он работает просто изначально мой был косяк что я скопировал исходный исходный код страницы и поместил в мемо, а надо было через idhttp ну и у вас на последнем что вы дали второй архив поврежден а вот с первого код работает идеально можно код ?

[Lardes]

У форума ограничение на архивы, поэтому пришлось разделить на два. А код идентичен

[Fahman]

Если код идентичен то я не пойму почему у меня не выходит второе сообщение?

[Tip.the.besT]

var
s:=string;//строка где лежит код с сайта.
list:=tstringlist;
begin
list:=tstringlist.create;

while pos('%',s)<>0 do begin
  delete(s,1,pos('%',s)-4);
  delete(s,1,pos('>',s));
  list.add(copy(s,1,pos('<',s)-1));
  delete(s,1,pos('%',s));
end;

list.free;
end;

[Fahman]

Сообщение от Tip.the.besT

var
s:=string;//строка где лежит код с сайта.
list:=tstringlist;
begin
list:=tstringlist.create;

while pos('%',s)<>0 do begin
  delete(s,1,pos('%',s)-4);
  delete(s,1,pos('>',s));
  list.add(copy(s,1,pos('<',s)-1));
  delete(s,1,pos('%',s));
end;

list.free;
end;

Спасибо проблема уже решена (тему можно закрыть)