Regexp

[Fahman]

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

uses
  RegExpr;

function ParsFromString(AValueBegin, AValue, AValueEnd: string): string;
begin
  Result := Copy(AValue, Pos(AValueBegin, AValue) + Length(AValueBegin), MaxInt);
  Result := Copy(Result, 1, Pos(AValueEnd, Result) - 1);
end;

{ TMainForm }

procedure TMainForm.ParsingButtonClick(Sender: TObject);
const
  ValueBegin = '<table class="center paddTD10 dataTable maxWidth"';
  ValueEnd = '</table>';
var
  RegExpr: TRegExpr;
  AValue: string;
  S: string;
begin
  // в AValue должен находиться полный исходный код страницы
  AValue := 'view-source:http://www.myfxbook.com/community/outlook/EURUSD';

  AValue := ParsFromString(ValueBegin, AValue, ValueEnd);

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

    if RegExpr.Exec(AValue) then
    repeat
      S := '';
      S := S + 'Action = ' + RegExpr.Match[2] + #13#10;
      S := S + 'Percentage = ' + RegExpr.Match[4] + #13#10;
      S := S + 'Volume = ' + RegExpr.Match[6] + #13#10;
      S := S + 'Positions = ' + RegExpr.Match[8] + #13#10;

      ShowMessage(S);

    until not RegExpr.ExecNext;
  finally
    RegExpr.Free;
  end;
end;

Чеснто сказать я не ожидал такого ответа, думал ща начнется "изучи это..." или "прочто это" большое вам человеческое спасибо а можно про коментировать исходник чтоб я понял оканчально... спасибо)

[Lardes]

Какие моменты не понятны?

[Fahman]

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

Какие моменты не понятны?

если чесно все) можно по подробней про коментировать все строки? заранее спасибо завтра отвечу...

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

Какие моменты не понятны?

Вот сделал так но у меня что-то не парсит...

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    mmo1: TMemo;
    mmo2: TMemo;
    btn1: TButton;
    IdHTTP1: TIdHTTP;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function ParsFromString(AValueBegin, AValue, AValueEnd: string): string;
begin
  Result := Copy(AValue, Pos(AValueBegin, AValue) + Length(AValueBegin), MaxInt);
  Result := Copy(Result, 1, Pos(AValueEnd, Result) - 1);
end;

procedure TForm1.btn1Click(Sender: TObject);
const
  ValueBegin = '<table class="center paddTD10 dataTable maxWidth"';
  ValueEnd = '</table>';
var
  RegExpr: TRegExpr;
  AValue: string;
  S: string;
begin
  AValue := mmo1.Text; // Сюда внес...
  AValue := ParsFromString(ValueBegin, AValue, ValueEnd);
  RegExpr := TRegExpr.Create;
  try
    RegExpr.Expression := '<tr>(.*?)<td>(.*?)</td>(.*?)<td>(.*?)</td>(.*?)<td>(.*?)</td>(.*?)<td>(.*?)</td>(.*?)</tr>';
    if RegExpr.Exec(AValue) then
    repeat
      S := '';
      S := S + 'Action = ' + RegExpr.Match[2] + #13#10;
      S := S + 'Percentage = ' + RegExpr.Match[4] + #13#10;
      S := S + 'Volume = ' + RegExpr.Match[6] + #13#10;
      S := S + 'Positions = ' + RegExpr.Match[8] + #13#10;

      mmo2.Lines.Add((S)); // Сюда надо было вписать.... но не чо не выходит

    until not RegExpr.ExecNext;
  finally
    RegExpr.Free;
  end;
end;

end.

[Stilet]

Сюда надо было вписать.... но не чо не выходит

Отладка что показывает?
RegExpr.Exec отрабатывает или дает False?

[Lardes]

А что в mmo1? Полный исходный код страницы?

[Fahman]

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

Отладка что показывает?
RegExpr.Exec отрабатывает или дает False?

Не чо не показывает все вроде компилирует без б...

А что в mmo1? Полный исходный код страницы?
да взял исходный код скопировал и вставил ну не через "idhttp"

[Stilet]

Не чо не показывает все вроде компилирует без б...

Не компиляция, а отладка )
Отладку-пошаговку делал? Бряк на код ставил?

[Fahman]

Оо по пробовал через idhttp все норм почти вот что спарсил
Action = Long
Percentage = 57%
Volume = 9338.63 Lots
Positions = 26636
Спарсилось только "Long" а как спарсить еще и "Short" позиции? ну вторая строка в таблице? можно даже и без слов так
57%
9338.63 Lots
26636
слова не обязательно я потом сделаю в StringGrid.

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

Не компиляция, а отладка )
Отладку-пошаговку делал? Бряк на код ставил?

Про отладку не знаю) ща по читаю....

[Lardes]

У меня всё отлично парсится, я не знаю что Вы делаете не так

[Fahman]

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

У меня всё отлично парсится, я не знаю что Вы делаете не так

не я не говорю что норм стало только спарсил одну строку из таблицы а их же две....

Stilet
а какую именно отладку запускать?
я запускал
Breakpoints и CallStack ни чего не выходит такого подозрительного...