Поиск в HTML-коде

[_SERGEYX_]

Добрый день всем. Проблема такая...
Загружаю в memo из интернета исходный код страницы. Где-то в середине страницы есть такая строка:

<tr class=tmain height=16><td>USD<td>Доллар США<td align=right>2145.00<td align=right>2145.00

Это курс доллара. Вопрос: Как передать последнее значение (2145.00) в переменную? Пробую манипулировать функциями copy() и pos(). Что-то не получается.

[Квэнди]

саму эту строчку
<tr class=tmain height=16><td>USD<td>Доллар США<td align=right>2145.00<td align=right>2145.00
вырезать из кода получается ?

[_SERGEYX_]

В том и проблема, что номер строки может меняться.

[Квэнди]

что уникального в этой строке ?
вобщем дай мне url для get-а я тебе скину функцию

[_SERGEYX_]

http://www.nbrb.by
Таблица с курсами слева вверху. Вот этой функцией я загружаю исх. код в Memo
uses wininet;

function DownloadURL(const aUrl: string; aMemo: TMemo): Boolean;
var 
  hSession: HINTERNET; 
  hService: HINTERNET; 
  lpBuffer: array[0..1024 + 1] of Char; 
  dwBytesRead: DWORD; 
begin 
  Result := False;
  hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try 
    if Assigned(hSession) then 
    begin 
      hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, 0, 0); 
      if Assigned(hService) then 
        try 
          while True do 
          begin 
            dwBytesRead := 1024; 
            InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead); 
            if dwBytesRead = 0 then break; 
            lpBuffer[dwBytesRead] := #0;
            aMemo.Lines.Add(lpBuffer);
          end;
          Result := True;
        finally
          InternetCloseHandle(hService);
        end; 
    end; 
  finally
    InternetCloseHandle(hSession);
  end; 
end;

[Квэнди]

ок, интересует курс валют именно доллара так ? и на какой день, на первый или на второй ?

[_SERGEYX_]

На второй. Т.е. последний на сегодня

[Квэнди]

unit Unit14;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls;

type
  TForm14 = class(TForm)
    Button1: TButton;
    ht1: TIdHTTP;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;

implementation

{$R *.dfm}

procedure TForm14.Button1Click(Sender: TObject);
var s:string;
i:integer;
begin
s:=ht1.Get('http://www.nbrb.by/');
s:=copy(s,pos('USD',s),length(s)-pos('USD',s));
s:=copy(s,pos('right',s)+6,length(s)-pos('right',s)-6);
s:=copy(s,pos('right',s)+6,length(s)-pos('right',s)-6);
s:=copy(s,1,pos('<tr',s)-3);
s:=stringreplace(s,chr(160),'',[rfreplaceall]);
s:=stringreplace(s,'.',',',[rfreplaceall]);
end;

end.

[_SERGEYX_]

Квэнди, большое спасибо. Я твой должник.

[Alar]

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

http://www.nbrb.by
Таблица с курсами слева вверху. Вот этой функцией я загружаю исх. код в Memo
uses wininet;

а что какая функция большая, сейчас можно заюзать что-то типа этого

  RichEdit1.Text := http.Get(ComboBox1.text);

ComboBox1.text - это юрл