[Помогите!] Парсинг

[Skrillex3]

Есть некий сайт на котором есть разделы ,в разделах есть по несколько страниц , мне нужно вытаскивать последнню страницу раздела , пример кода на сайте

Цитата: <a href='?p=2'>2</a><a href='?p=3'>3</a><a href='?p=4'>4</a><a href='?p=5'>5</a><a href='?p=6'>6</a><a href='?p=7'>7</a><a href='?p=8'>8</a><a href='?p=9'>9</a><a href='?p=10'>10</a>&nbsp;...&nbsp;&nbsp;<a href="?p=33">33</a></div>

и ещё вариант

Цитата: <a href='?p=2'>2</a><a href='?p=3'>3</a><a href='?p=4'>4</a><a href='?p=5'>5</a><a href='?p=6'>6</a></div>

А вот мой код

Цитата: function GetCount(source: string): string; var caz:tstringlist; begin try result:='0'; caz:=tstringlist.Create; result := pars('Сортировать по',S,'function showClubPrice(id, showAlert'); Reg.Expression := 'href="(.*?)</a>'; if Reg.Exec(result) then repeat Caz.add(reg.Match[1]); until not Reg.ExecNext else add('Не вышло спарсить кол-во страниц!'); result := pars('?p=' , caz.Text,'">'); add(result); except Add('Проблемы с соединением или критическая ошибка!'); end; Caz.Free; end;

Проблема заключается в том что очень часто процедура вытягивает какой нибудь текст ,а не число.

[VeTaL_UA]

function Pars(s:string):string;
var
s1:string;
begin
s1:=Copy(s,Pos('?p=',s)+6,Pos('</a></div>',s)-Pos('?p=',s)-6);
s1:=Copy(s1,Length(s1)-5,6);
s1:=Copy(s1,Pos('>',s1)+1,Length(s1)-Pos('>',s1));
result:=s1;
end;

Юзать так:

{тут переменная, куда парсим}:=Pars({тут исходный код страницы});

P.S. Функшн пишется за 2 минуты, если знать основы

[Skrillex3]

основы я знаю , практики мало , код твой парсит чтото вообще из другой части страници , спс канечно за помощь , буду разбераться

[VeTaL_UA]

Цитата: Сообщение от Skrillex3 код твой парсит чтото вообще из другой части страници , спс канечно за помощь

Я написал функцию парса по тому, что было в теме. Откуда я должен был знать, что в неё ты всунешь весь исходный код? Где это написано в теме?

[Skrillex3]

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

[VeTaL_UA]

Я думал, что этого "мануала" по Copy, Pos, Delete хватит даже для умственно отсталых людей, но я ошибался.

Я тебе дал функшн парса. Тебе осталось выцепить из исходного кода что-то похожее на пример, который ты указал в теме, и всунуть в мой функшн. Сверху ссылка на пост-мануал, на плечах должны быть руки, в черепной коробке желательно иметь мозг, в мозге поищи немного фантазии и аналитических способностей. Дерзай.