PDA

Просмотр полной версии : [Помогите!] Помогите спарсить код


19955991
17.12.2011, 18:31
Помогите спарсить в этом коде строчку 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'>[Ссылки могут видеть только зарегистрированные и активированные пользователи]>");</script><noscript>Нет ссылки? Включите javascript в настройках браузера</noscript>

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

Number/1/
17.12.2011, 19:01
парси регуляркой
Reg.Expression := '"&rnd=c67"+wV+"(.*?)#39class=#39blue#39
if Reg.Exec(S) then showmessage (Reg.Match[1]);

19955991
17.12.2011, 22:31
парси регуляркой

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

Number/1/
17.12.2011, 23:24
можешь посмотреть это тему там отличным пример парсинга и установки регулярки
[Ссылки могут видеть только зарегистрированные и активированные пользователи]

=PaLeTiZaToR=
21.12.2011, 15:02
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;


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