Cпарсить курс валют

[foxes]

Помогите спарсить курс валют на finance.i.ua/usd/

<div class="content clear">
		<h2>Средний курс валют</h2>
		<table class="local_table" summary="Курс покупки и продажи доллара (USD), евро (EUR) и рубля (RUB) к гривне в коммерческих банках Украины">
			<tr>
				<th class="align_left">Валюта</th>
				<th class="width_25" title="курс покупки валюты">Покупка</th>
				<th class="width_25" title="курс продажи валюты">Продажа</th>
				<th class="width_25" title="курс продажи валюты">НБУ</th>
			</tr>
			<tr>
				<td class="align_left"><b>USD/td>
				<td><big>12.1510</big><i class="increase"></i><br /><span class="report">+0.0616</span></td>
				<td><big>12.5337</big><i class="increase"></i><br /><span class="report">+0.0451</span></td>
				<td><big>12.3549</big><i class="increase"></i><br /><span class="report">0.0573</span></td>
			</tr>
			<tr>
				<td class="align_left"><b>EUR</b></td>
				<td><big>16.2600</big><i class="increase"></i><br /><span class="report">+0.1049</span></td>
				<td><big>16.9404</big><i class="increase"></i><br /><span class="report">+0.0726</span></td>
				<td><big>16.5333</big><i class="increase"></i><br /><span class="report">0.0275</span></td>
			</tr>
			<tr>
				<td class="align_left"><b>RUB</b></td>
				<td><big>0.3267</big><i class="decrease"></i><br /><span class="report">-0.0026</span></td>
				<td><big>0.3542</big><i class="increase"></i><br /><span class="report">+0.0017</span></td>
				<td><big>0.3451</big><i class="increase"></i><br /><span class="report">0.0003</span></td>
			</tr>
		</table>
	</div>

[Lardes]

foxes, покажите Ваши наработки. В помощь Copy, Pos, можно библиотекой RegExpr

[foxes]

Питался так не выходит

function parse(s, exchange: string; var buy, sell: string): boolean;
var
  p1, p2: integer;
begin
  result := false;
  p1 := pos(exchange + '</td>', s);
  if p1 <> 0 then
  begin
    p1 := posex(';">', s, p1);
    if p1 <> 0 then
    begin
      p2 := posex('</td>', s, p1);
      if p2 <> 0 then
      begin
        buy := copy(s, p1 + 3, p2 - p1 - 3);
        p1 := posex(';">', s, p2);
        if p1 <> 0 then
        begin
          p2 := posex('</td>', s, p1);
          if p2 <> 0 then
          begin
            sell := copy(s, p1 + 3, p2 - p1 - 3);
            result := true;
          end;
        end;
      end;
    end;
  end;
end;
//Курсы валют
  if parse(IdHTTP1.Get('http://finance.i.ua/usd/'), 'USD', b, s) then
  begin
    Label2.Caption := b;
    Label3.Caption := s;
  if parse(IdHTTP1.Get('http://privatbank.ua/'), 'EUR', e, u) then
  begin
    Label4.Caption := e;
    Label5.Caption := u;
  if parse(IdHTTP1.Get('http://privatbank.ua/'), 'RUB', ru, d) then
  begin
    Label6.Caption := ru;
    Label7.Caption := d;

[Lardes]

uses
  RegExpr;

procedure TMainForm.RegExprParsButtonClick(Sender: TObject);
var
  AData: string;
  RegExpr, SubRegExpr: TRegExpr;

  Value, Currency, Curse, Report, Res: string;
  I: Integer;
begin
  AData := Trim(SourceMemo.Lines.Text); // здесь исходный текст

  Res := '';

  RegExpr := TRegExpr.Create;
  try
    RegExpr.Expression := '<tr>(.*?)<td class="align_left"><b>(.*?)</b></td>(.*?)</tr>';

    if RegExpr.Exec(AData) then
      repeat
        Currency := Trim(RegExpr.Match[2]);
        Value := Trim(RegExpr.Match[3]);

        SubRegExpr := TRegExpr.Create;
        try
          SubRegExpr.Expression := '<td><big>(.*?)</big>(.*?)<span class="report">(.*?)</span></td>';
          if SubRegExpr.Exec(Value) then
          begin
            I := 0;

            repeat
              Curse := Trim(SubRegExpr.Match[1]);
              Report := Trim(SubRegExpr.Match[3]);

              case I of
                0: Res := Res + Format('Валюта %s. Покупка: %s (%s)',
                    [Currency, Curse, Report]) + #13#10;
                1: Res := Res + Format('Валюта %s. Продажа: %s (%s)',
                    [Currency, Curse, Report]) + #13#10;
                2: Res := Res + Format('Валюта %s. НБУ: %s (%s)',
                    [Currency, Curse, Report]) + #13#10;
              end;

              Inc(I);

            until not SubRegExpr.ExecNext;

          end;

        finally
          SubRegExpr.Free;
        end;

        Res := Res + #13#10;

      until not RegExpr.ExecNext;

  finally
    RegExpr.Free;
  end;

  Res := Trim(Res);
  ShowMessage(Res);
end;

Скачать библиотеку с оф. сайта

[foxes]

Большое вам спасибо не подскажите как сделать проверку на decrease или increase ?

				<td><big>0.3267</big><i class="decrease"></i><br /><span class="report">-0.0026</span></td>
				<td><big>0.3542</big><i class="increase"></i><br /><span class="report">+0.0017</span></td>

[Lardes]

Пожалуйста. Либо изменить регулярку в SubRegExpr.Expression := '<td><big>(.*?)</big>(.*?)<span class="report">(.*?)</span></td>';, либо узнать присутствует "+" или "-" в переменной Report (я бы так сделал) и исходя из полученного результата выводить что-то своё

[foxes]

А можно код?