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

@xhugo · Регистрация: 26.09.2010

Author24 — интернет-сервис помощи студентам

Не получается спарсить текст такого вида:

HTML5

1 2	<td align="right"><span class="arial">Country code:</span></td> RU (RUS)</td>

нужно выдрать RU (RUS)

Пробовал по разному, а так сайт:http://geoiptool.com

@smw1975 · 14.01.2011, 14:14

эээ, в смысле не получается???
не знаете как найти эту строку или сервак по другому отдает?
Если первое - пользовать Pos и PosX (или регулярки)
если второе - так код смотреть надо, хотя и в первом случае не помешает

@xhugo · 14.01.2011, 14:48 **[ТС]**

в смысле я пробовал Pos и PosX у меня не получилось.
Хотел посмотреть как у вас получится это сделать

@smw1975 · 14.01.2011, 15:00

Delphi

1
2
3

startPos := Pos('<td align="right"><span class="arial">Country code:</span></td>', str);
endPos := PosEx('</td>', str, startPos + 63);
Countru := Trim(MidStr(str, startPos, endPos - startPos - 63));

Как то вот так, писал сразу сюда, так что не проверял

@xhugo · 14.01.2011, 15:18 **[ТС]**

Не сработало,
выводит <td align="right"><span class="arial">Country code:</span

Delphi

 var
 startPos,endPos:integer;
 str, Countru:string;
begin
str:=idhttp1.get('http://geoiptool.com/');
  startPos := Pos('<td align="right"><span class="arial">Country code:</span></td>', str);
endPos := PosEx('</td>', str, startPos + 63);
Countru := Trim(MidStr(str, startPos, endPos - startPos - 63));
memo1.lines.add(Countru);

@smw1975 · 14.01.2011, 15:37

блин, а посмотреть по отладке ?
Я просто чуть ошибся

Delphi

str:=idhttp1.get('http://geoiptool.com/');
  startPos := Pos('<td align="right"><span class="arial">Country code:</span></td>', str);
  startPos := PosEx('<td align="left" class="arial_bold">', str, startPos + 63);
  endPos := PosEx('</td>', str, startPos + 36);
  Countru := Trim(MidStr(str, startPos + 36, endPos - startPos - 36));
  memo1.lines.add(Countru);

@xhugo · 14.01.2011, 15:53 **[ТС]**

ok

только вот почему пусто выводит ()
а если зайти то все норм

Delphi

   var
 startPos,endPos:integer;
 str, Countru:string;
begin
 str:=idhttp1.get('http://geoiptool.com/?IP=95.52.112.168/');
  startPos := Pos('<td align="right"><span class="arial">Country code:</span></td>', str);
  startPos := PosEx('<td align="left" class="arial_bold">', str, startPos + 63);
  endPos := PosEx('</td>', str, startPos + 36);
  Countru := Trim(MidStr(str, startPos + 36, endPos - startPos - 36));
  memo1.lines.add(Countru);
 
end;

@smw1975 · 14.01.2011, 15:56

Delphi

1	str:=idhttp1.get('http://geoiptool.com/?IP=95.52.112.168');

@xhugo · 14.01.2011, 16:56 **[ТС]**

ну почему тут то пусто
должно быть норм а ()

Pascal

var
 
      startPos,endPos,i:integer;
 str, Countru:string;
begin
 for i:=0 to mainform.Memo4.Lines.Count-1    do
 begin
        idhttp1.Create(nil);
 
 
 
 str:=idhttp1.get('http://geoiptool.com/?IP='+mainform.Memo8.Lines[i]);
  startPos := Pos('<td align="right"><span class="arial">Country code:</span></td>', str);
  startPos := PosEx('<td align="left" class="arial_bold">', str, startPos + 63);
  endPos := PosEx('</td>', str, startPos + 36);
  Countru := Trim(MidStr(str, startPos + 36, endPos - startPos - 36));
  memo8.lines.add(Countru);
 
end;

@smw1975 · 14.01.2011, 17:10

пара провакационных вопросов:
1. сами пытались понять почему не получается, если да, то как именно
2. такое страшное слова как "снифер" кога нибуть слышали? В частности HTTPAnalyzer или аналог?

@WestSide072 · 18.01.2011, 14:06

Delphi

1
2
3

Memo1.Text:=IdHttp1.Get('http://geoiptool.com/?IP=195.0.0.1');
Memo1.Text:=Copy(Memo1.Text,Pos('<td align="right"><span class="arial">Country code:</span></td>',Memo1.Text)+63,Pos('<td align="right"><span class="arial">Region:</span></td>',Memo1.Text)-Pos('<td align="right"><span class="arial">Country code:</span></td>',Memo1.Text)-63);
Edit1.Text:=Copy(Memo1.Text,Pos('<td align="left" class="arial_bold">',Memo1.Text)+36,Pos('</td>',Memo1.Text)-Pos('<td align="left" class="arial_bold">',Memo1.Text)-36);

@smw1975 54 / 54 / 4 Регистрация: 15.12.2010 Сообщений: 260
	14.01.2011, 14:14	2
	эээ, в смысле не получается??? не знаете как найти эту строку или сервак по другому отдает? Если первое - пользовать Pos и PosX (или регулярки) если второе - так код смотреть надо, хотя и в первом случае не помешает 1

@xhugo 1 / 1 / 2 Регистрация: 26.09.2010 Сообщений: 73
	14.01.2011, 14:48 [ТС]	3
	в смысле я пробовал Pos и PosX у меня не получилось. Хотел посмотреть как у вас получится это сделать 0

@smw1975 54 / 54 / 4 Регистрация: 15.12.2010 Сообщений: 260
	14.01.2011, 17:10	10
	пара провакационных вопросов: 1. сами пытались понять почему не получается, если да, то как именно 2. такое страшное слова как "снифер" кога нибуть слышали? В частности HTTPAnalyzer или аналог? 0

	18.01.2011, 14:06