вытащить текст из тегов

[lezgin]

добрый день всем. Вот у меня исходный код главной страницы 2ip.ru. Он лежит в memo1. Мне нужно оттуда вытянуть местоположение в memo2. Как это сделать?

[Вадим Мошев]

Регулярные выражения. Вы с ними знакомы?

[Человек_Борща]

Вадим Мошев, жирновато для 15 байтов. Проще Copy, Pos, Delete применить.

[BDA]

uses strutils;
...
function extract(const text, begin1, end1: string): string;
var
  startpos, endpos: integer;
begin
  result := '';
  startpos := Pos(begin1, text);
  if startpos < 1 then
    exit;
  inc(startpos, length(begin1));
  endpos := PosEx(end1, text, startpos);
  if endpos < 1 then
    exit;
  result := Copy(text, startpos, endpos - startpos);
end;
...
extract(memo1.text, 'href="/geoip/">', '</a>');

[lezgin]

не помогает(((
У меня есть такой код, который делает запрос на myip.ru и получает оттуда ip. Вы можете как нибудь его настроить, чтобы он делал запрос на 2ip.ru и вытянул оттуда местоположение?
Вот код:
var
site: string;
n1,n2: integer;
begin
site:=IdHTTP1.Get('http://www.myip.ru/get_ip.php?loc=');
n1:=pos('<TD bgcolor=white align=center valign=middle>',site);
n2:=pos('</TABLE></TD></TR>',site);
Edit1.text:=copy(site,n1+45,n2-n1-56);

[Slym]

uses strutils;

function extract(const text, begin1, end1: string): string;
var
  startpos, endpos: integer;
begin
  result := '';
  startpos := Pos(begin1, text);
  if startpos < 1 then
    exit;
  inc(startpos, length(begin1));
  endpos := PosEx(end1, text, startpos);
  if endpos < 1 then
    exit;
  result := Copy(text, startpos, endpos - startpos);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  site: string;
begin
  site:=IdHTTP1.Get('http://www.myip.ru/get_ip.php');
  Edit1.text:=extract(LowerCase(site), '<td bgcolor=white align=center valign=middle>','</td>');
end;

[lezgin]

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

uses strutils;

function extract(const text, begin1, end1: string): string;
var
  startpos, endpos: integer;
begin
  result := '';
  startpos := Pos(begin1, text);
  if startpos < 1 then
    exit;
  inc(startpos, length(begin1));
  endpos := PosEx(end1, text, startpos);
  if endpos < 1 then
    exit;
  result := Copy(text, startpos, endpos - startpos);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  site: string;
begin
  site:=IdHTTP1.Get('http://www.myip.ru/get_ip.php');
  Edit1.text:=extract(LowerCase(site), '<td bgcolor=white align=center valign=middle>','</td>');
end;

все работает.
только у меня так выходит((((
Посмотреть точное место на карте" href="/geoip/"/?phpsessid=4uo3gl5u9htnkdg1qd77vggi 66>russian federation, Махачкала

Что сделать?

[Lardes]

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

все работает.
только у меня так выходит((((
Посмотреть точное место на карте" href="/geoip/"/?phpsessid=4uo3gl5u9htnkdg1qd77vggi 66>russian federation, Махачкала

Что сделать?

Это формат UTF, перекодируйте строчку, которую получаете, этой функцией:

function Utf8Decode(const S: UTF8String): WideString;

[lezgin]

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

Это формат UTF, перекодируйте строчку, которую получаете, этой функцией:

function Utf8Decode(const S: UTF8String): WideString;

куда прописать этот код?

[Lardes]

var
  site: string;
begin
  site:=Utf8Decode(IdHTTP1.Get('http://www.myip.ru/get_ip.php'));
  Edit1.text:=extract(LowerCase(site), '<td bgcolor=white align=center valign=middle>','</td>');