[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>

Код:

1 2 3 4 5 6 7 8 9

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 это не позиция, до которой копировать, а ДЛИННА, т.е. кол-во символов, которые надо скопировать.

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

Код:

1 2	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 это не позиция, до которой копировать, а ДЛИННА, т.е. кол-во символов, которые надо скопировать.

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

Код:

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

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

[poli-smen]

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

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

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

[nehaali]

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

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

[Alegun]

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

Код:

1 2 3 4 5 6 7 8 9 10

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;

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

З.Ы.

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

Код:

1 2 3 4 5 6 7 8 9

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

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

Код:

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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 парсить страницу:

Код:

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

[Dima170792]

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

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

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

Код:

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

Код:

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