[Помогите!] Помогите спарсить код

[19955991]

Помогите спарсить в этом коде строчку 0eef1d1cb468c906ce0fe

**********var wV="0a8d6fa2";document.writeln("<a href='index.php?cf=pmail-readm&uid="+(1030002-88)+"&mid="+(93543+9)+"&rnd=c67"+wV+"0eef1d1cb468c906ce0fe' class='blue' target='_blank'>http://xn--80abg3be.net/thread57/?play0917</a>");</script><noscript>Нет ссылки? Включите javascript в настройках браузера</noscript>

P.S. Количество символом всегда разное!!!

[Number/1/]

парси регуляркой

Цитата: Reg.Expression := '"&rnd=c67"+wV+"(.*?)#39class=#39blue#39 if Reg.Exec(S) then showmessage (Reg.Match[1]);

[19955991]

Цитата: Сообщение от Number/1/ парси регуляркой

А можно поподробнее? С регулярками никогда не работал

[Number/1/]

можешь посмотреть это тему там отличным пример парсинга и установки регулярки
http://zhyk.ru/forum/showthread.php?t=218901

[=PaLeTiZaToR=]

Var
s:string;
begin
s:=pars('+wV+"',Тут напиши переменную, которая содержит исходный текст с этим значением,'' class=')
end;
end.


!!!
после раздела "implementation" воткни сам парсер

function pars(s_, s, _s: string): string;
var
  p: integer;
  _s_: string;
begin
  _s_ := copy(s, pos(s_, s) + length(s_), length(s) - pos(s_, s) - length(s_));
  p := pos(_s, _s_);
  result := copy(_s_, 1, p - 1);
end;

вот так [Ссылки могут видеть только зарегистрированные пользователи. ]