Delphi | Help

Код:

                <td><span>Номер аккаунта</span></td>
                <td><span>99235</span></td>

Пробовал, не выходит( (из-за пробела и новой строки)



функция рабочая

Код:

function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then  Exit;
  a := Pos(T_, ForS);
  if a = 0 then    Exit
  else  a := a + Length(T_);

  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then Result := Copy(ForS, 1, b - 1);
end;

 

<td><span></span></td>
кажись нужно так

 

так будет, но парсит другое. т.к на сайте такого +30

 

ссылку откуда парсите?

 

http://prod.advance-rp.ru/account/info/

Dima_Smit;wanrltw, blue server.

 

Number:=pars('<td><span>'+utf8toansi('Номер аккаунта')+'</span></td>'+#13+'<td><span>',parsing.Text,'</div>');

 

ЯСНО