Парсинг

[Malriser]

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

Точней не много не так.

<response list="true">
<id>1</id>
</response>

Получить все что в <id></id> и подставьте значения к ссылкам и переходить по ним по очереди, спарсить там еще (ну это я уже сам разберусь).

Второй пост посмотри. Я ответил тебе и привел код функции.

Используешь ее в цикле, передавая по очереди из списка строку, если нету <id> то она вернет -1, а если возвращает что-то другое значит там стоит такой айди. Но учти, если ID - строковый, будет вылет.

[mogo]

В чем тут ошибка:

http.HTTPMethod('GET', 'https://api.vk.com/method/groups.get?uids='+id+'&filter=admin&access_token='+token);
html.LoadFromStream(http.Document);
StringReplace(html.Text, '[', ',',[rfReplaceAll, rfIgnoreCase]);
StringReplace(html.Text, ']', ',',[rfReplaceAll, rfIgnoreCase]);
StringReplace(html.Text, ',', ':;',[rfReplaceAll, rfIgnoreCase]);
      http.Document.Clear;
      http.Headers.Clear;
      html.Clear;
end;
begin
reg3:=tregexpr.Create;
reg3.Expression:=';(.*?):';
if reg3.Exec(html2) then repeat
prx3.Add(reg3.Match[1]);
until
not
reg3.Execnext;
prx3.Text:=trim(prx3.Text);
if prx3.Count>0 then
begin
for i := 0 to prx3.Count-1 do
begin
http.HTTPMethod('GET', 'https://api.vk.com/method/groups.getById?gids='+prx3[i]+'&fields=members_count&access_token='+token);
html.LoadFromStream(http.Document);
bars.Add('Link: http://vk.com/club'+prx3[i]);
bars.Add('Name groups: '+pars('"name":"' , html.Text ,'"'));
bars.Add('Member: ' + pars('"members_count":',html.Text, ',')) ;
bars.Add('Stats: http://vk.com/stats?gid='+prx3[i]);
bars.Add('------------');
end;
end else
bars.Add('Нет групп');
end;
      http.Document.Clear;
      http.Headers.Clear;
      html.Clear;

[doktor255]

А как ошибка себя проявляет?

[mogo]

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

А как ошибка себя проявляет?

Почему то всегда "Нет групп'"

[doktor255]

Я не вижу в коде загрузки данных в html2

[mogo]

Соровно ошибка:

http.HTTPMethod('GET', 'https://api.vk.com/method/groups.get?uids='+id+'&filter=admin&access_token='+token);
html.LoadFromStream(http.Document);
StringReplace(html.Text, '[', ',',[rfReplaceAll, rfIgnoreCase]);
StringReplace(html.Text, ']', ',',[rfReplaceAll, rfIgnoreCase]);
StringReplace(html.Text, ',', ':;',[rfReplaceAll, rfIgnoreCase]);
      http.Document.Clear;
      http.Headers.Clear;
      html.Clear;
end;
begin
reg3:=tregexpr.Create;
reg3.Expression:=';(.*?):';
if reg3.Exec(html.Text) then repeat
prx3.Add(reg3.Match[1]);
until
not
reg3.Execnext;
prx3.Text:=trim(prx3.Text);
if prx3.Count>0 then
begin
for i := 0 to prx3.Count-1 do
begin
http.HTTPMethod('GET', 'https://api.vk.com/method/groups.getById?gids='+prx3[i]+'&fields=members_count&access_token='+token);
html.LoadFromStream(http.Document);
bars.Add('Link: http://vk.com/club'+prx3[i]);
bars.Add('Name groups: '+pars('"name":"' , html.Text ,'"'));
bars.Add('Member: ' + pars('"members_count":',html.Text, ',')) ;
bars.Add('Stats: http://vk.com/stats?gid='+prx3[i]);
bars.Add('------------');
end;
end else
bars.Add('Нет групп');
end;
      http.Document.Clear;
      http.Headers.Clear;
      html.Clear;

[doktor255]

html.Clear;

Ты же очистил html. А теперь пытаешься с него читать? Оригинально.

[mogo]

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

html.Clear;

Ты же очистил html. А теперь пытаешься с него читать? Оригинально.

Убрал. Но соровно ошибки не решена ((

[mogo]

Все. Уже сам решил проблему.

[Malriser]

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

Все. Уже сам решил проблему.

Напиши как решил. А то вдруг у кого-то такая же проблема и с помощью гугла он попадет сюда - а тут пишут "Уже сам решил". Знаешь, как проклинаешь таких? Поэтому повысь карму - напиши решение для тех, у кого сейчас такая проблема