[Dima170792]

Здравствуйте уважаемые форумчане, подскажите как сделать чтобы при обновлении строчки на некоем веб сайте, в предложении Label автоматически принимал значение нижеуказаной строки,

<span>
<a href="/game/profile">
<img height="16" width="16" title="Здоровье" src="http://cdn03.w.meni.mobi/images/icons/icon_header_health.gif?20131118120353" alt=".">
<span id="ajx_health">128450</span>
</a>
</span>

Код:

procedure TForm1.sSpeedButton1Click(Sender: TObject);
 var
 s: String;
  i: Integer;
begin
    s := (WebBrowser1.Document as IHTMLDocument2).Body.innerHTML;
  i := Pos('<span id="ajx_health">', s);
  sLabel1.Caption := Copy(s, i, Pos('</span>', s) - i);
 end;

Что неправильно в коде - вместо того чтобы принять значение 128450 стоящее между тегами

<span id="ajx_health">[b]128450[/b]</span>

, Label просто обнуляет значение caption помогите пожалуйста разобраться
, заранее благодарен.

[lmikle]

Для начала, Pos возвращает индекс, по которому находится НАЧАЛО строки. Далее, третий параметр в Copy это не позиция, до которой копировать, а ДЛИННА, т.е. кол-во символов, которые надо скопировать.

Соответсвенно, данный кусок должен выглядеть примерно так:

Код:

i := Pos('<span id="ajx_health">', s) + Length('<span id="ajx_health">') + 1; 
sLabel1.Caption := Copy(s, i, Length(s) - Pos('</span>', s) - i);

Проверь с длинной, мог что-то напутать.
Ну и еще, если у тебя где-то еще в страничке есть </span>, то надо воспользоваться функцией PosEx, что бы найти позицию правильного </span>

[Dima170792]

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

Для начала, Pos возвращает индекс, по которому находится НАЧАЛО строки. Далее, третий параметр в Copy это не позиция, до которой копировать, а ДЛИННА, т.е. кол-во символов, которые надо скопировать.

Соответсвенно, данный кусок должен выглядеть примерно так:

Код:

i := Pos('<span id="ajx_health">', s) + Length('<span id="ajx_health">') + 1; 
sLabel1.Caption := Copy(s, i, Length(s) - Pos('</span>', s) - i);

Проверь с длинной, мог что-то напутать.
Ну и еще, если у тебя где-то еще в страничке есть </span>, то надо воспользоваться функцией PosEx, что бы найти позицию правильного </span>

Спасибо, по крайней мере label принимает значение- правда в него он действительно вписывает все span id- но не ихние значения. Честно говоря впервые сталкиваюсь с функцией PosEx - а по описанию толком непонял ее возможностей, можте немного просветить?

[poli-smen]

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

Честно говоря впервые сталкиваюсь с функцией PosEx - а по описанию толком непонял ее возможностей, можте немного просветить?

PosEx то же что и Pos, только в третьем параметре можно ещё указывать с какого символа строки нужно начинать поиск подстроки.
Обычная Pos всегда ищет подстроку начиная с первого символа строки.
PosEx появилась в стандартной поставке начиная с Delphi 7 (в модуле StrUtils).

[nehaali]

Спасибо, но можно поподробнее, допустим, мне нужно отправить переменные а и b на страницу php с адресом

И как вернуть обработанные данные обратно?

[Alegun]

Можно ещё вот так

Код:

const tg ='<span id="ajx_health">';
procedure TForm1.sSpeedButton1Click(Sender: TObject);
 var
 s: String;
begin
 s := (WebBrowser1.Document as IHTMLDocument2).Body.innerHTML;
 Delete(s, 1, Pos(tg, s) + Length(tg) - 1);
 Delete(s, Pos('</span>', s), Length(s));
 sLabel1.Caption := s;
 end;

но это очень грубо

З.Ы.

Ну или всё же через посЭкс

Код:

procedure TForm1.sSpeedButton1Click(Sender: TObject);
 var
 s: String;
 i: integer;
begin
 s := (WebBrowser1.Document as IHTMLDocument2).Body.innerHTML;
 i := Pos('<span id="ajx_health">', s) + Length('<span id="ajx_health">');
  sLabel1.Caption := Copy(s, i, PosEx('</span>', s, i) - i);
 end;

[poli-smen]

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

Можно ещё вот так

Код:

const tg ='<span id="ajx_health">';
procedure TForm1.sSpeedButton1Click(Sender: TObject);
 var
 s: String;
begin
 s := (WebBrowser1.Document as IHTMLDocument2).Body.innerHTML;
 Delete(s, 1, Pos(tg, s) + Length(tg) - 1);
 Delete(s, Pos('</span>', s), Length(s));
 sLabel1.Caption := s;
 end;

но это очень грубо

Это действительно грубовато.

Через PosEx делается примерно так:

Код:

const tg ='<span id="ajx_health">';
.....
var
.....
  p1, p2: Integer;
begin
.....
  p1 := Pos(tg, s);
  if p1>0 then
  begin
    Inc(p1, Length(tg));
    p2 := PosEx('</span>', s, p1);
    if p2 > 0 then sLabel1.Caption := Copy(s, p1, p2-p1);
  end;
end;

Но проще (и наверное лучше) воспользоваться умением TWebBrowser парсить страницу:

Код:

  sLabel1.Caption := (WebBrowser1.Document as IHTMLDocument3).getElementById('ajx_health').innerText;

[Dima170792]

Сообщение от poli-smen

Это действительно грубовато.

Через PosEx делается примерно так:

Код:

const tg ='<span id="ajx_health">';
.....
var
.....
  p1, p2: Integer;
begin
.....
  p1 := Pos(tg, s);
  if p1>0 then
  begin
    Inc(p1, Length(tg));
    p2 := PosEx('</span>', s, p1);
    if p2 > 0 then sLabel1.Caption := Copy(s, p1, p2-p1);
  end;
end;

Но проще (и наверное лучше) воспользоваться умением TWebBrowser парсить страницу:

Код:

  sLabel1.Caption := (WebBrowser1.Document as IHTMLDocument3).getElementById('ajx_health').innerText;

Огромное спасибо! Действительно помогло!!!!!!