Парсинг страницы

[Зод]

Как можно вытянуть значение a4b7d24dede5c6c23a? Моя любимая регулярка просто отказывается работать при экранировании символов.

 <div class="like_wrap fl_r" onmouseover="wall.likeOver('908292_2')" onmouseout=
"wall.likeOut('908292_2')" onclick="wall.like('908292_2', 'a4b7d24dede5c6c23a'); 
event.cancelBubble = true;">

[p51x]

в лоб:
pos на onclick
pos на , c предыдущего места
pos на )
два индекса есть, строка между ними

[Зод]

Вот так получилось:

  s:=Memo1.Text; //здесь грузится страница из файла
  g:=Copy(s,Pos('onclick="wall.like(' + #39 + edit5.text + '_' + edit6.text,s),Pos(';',s)-1);
  p:=Copy(g,Pos(' ',g),Pos('v',g)-1);
  t:=Copy(p,3,Pos(')',p)-1);
  word:=Copy(t,1,Pos(#39,t)-1);

Спасибо, работает.
P.S. кто-нибудь знает как запихнуть в string напрямую документ страницы?

[Пепел Феникса]

P.S. кто-нибудь знает как запихнуть в string напрямую документ страницы?

s:=idhttp1.Get(<>);

это если Indy.
если TWebBrowser, то было массу раз(там простобольше кода, чтоб его помнить)

[Aliens_wolfs]

Лучше запихивай страницу в лист его потом построчно легче обрабатывать

var
HTTPList: TStringList;
i: integer;
begin
//Создаем лист
HTTPList:= TStringList.create;
//запихиваем страницу в лист
HTTPList.add(idhttp1.Get(<>));
//Здесь обрабатываешь построчно
for i:=0 to HTTPList.count-1 do
//Ищем нужное значение в строках
if Pos('onclick="wall.like(', AnsiLowerCase(HTTPList[i]))<>0 then
begin
//твой код для обработки найденого значения в строке
end;
//Уничтожаем лист
HTTPList.free;

[Пепел Феникса]

HTML как бы не много смысла построчно обрабатывать.

[Aliens_wolfs]

Иногда удобно парсинг в строке делать, вернее не парсинг, а разбор строк на детали особенно когда много разных значений, ищешь значение останавливаешься на этой строке и дальше без всего лишнего обрабатываешь строку.