[FlasheR]

фрагмент кода
<div class="stat">
<p>
<span>
текст:50,99руб. текст // нужно вытащить только "50" и 
</span>                     // присвоить это значение переменной
<span>
текст
</span>
</p>
</div>

Код:

var
  i, value : Integer;
  st : string;
  doc : IHTMLDocument3;
  coll : IHTMLElementCollection;
begin
  value := -1;
 
  doc := (WebBrowser1.Document as IHTMLDocument3);
  coll := doc.getElementsByTagName('div');
  for i := 0 to coll.length - 1 do
  begin
    if (coll.item(i, 0) as IHTMLElement).className = 'stat' then
    begin
      st := Trim((coll.item(i, 0) as IHTMLElement).innerText);
      value :=     //чему будет равно???
    end;
  end;
  // в Value будет нужное значение
end;

[poli-smen]

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

фрагмент кода
<div class="stat">
<p>
<span>
текст:50,99руб. текст // нужно вытащить только "50" и 
</span>                     // присвоить это значение переменной
<span>
текст
</span>
</p>
</div>

Вытаскиваешь строку "текст:50,99руб. текст", а потом из этой строки легко вытащить и число.

[FlasheR]

не подскажете новичку? 1 строка ведь)) я думаю не сложно это

[poli-smen]

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

не подскажете новичку? 1 строка ведь)) я думаю не сложно это

Код:

function GetNum(str: String): Integer;
var
  i: Integer;
begin
  Result:=0;
  i:=1;
  while not (str[i] in ['0'..'9']) do Inc(i);

  while str[i] in ['0'..'9'] do
  begin
    Result:=Result*10 + (Ord(str[i])-Ord('0'));
    Inc(i);
  end;
end;
.....
      value :=  GetNum(st);

[FlasheR]

value := AnsiReplaceStr(value, 'текст для замены', 'текст после замены');
а так не получится?

[FlasheR]

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

Код:

function GetNum(str: String): Integer;
var
  i: Integer;
begin
  Result:=0;
  i:=1;
  while not (str[i] in ['0'..'9']) do Inc(i);

  while str[i] in ['0'..'9'] do
  begin
    Result:=Result*10 + (Ord(str[i])-Ord('0'));
    Inc(i);
  end;
end;
.....
      value :=  GetNum(st);

Спасибо я попробую вечерком, отпишусь тогда))!