Regexp

[Fahman]

Всем доброго времени, как спарсить регулярками с исходного кода

                                            </tr>
                                            <tr>
                                                <td>Short</td>
                                                <td>40%</td>
                                                <td>7117.45 Lots</td>
                                                <td>19649</td>
                                            </tr>
                                            <tr>
                                                <td>Long</td>
                                                <td>59%</td>
                                                <td>10653.49 Lots</td>
                                                <td>30194</td>
                                            </tr>
                                        </tbody>

Например надо только

<td>Long</td>
                                                <td>59%</td> // это надо 
                                                <td>10653.49 Lots</td>   // НЕ НАДО
                                                <td>30194</td>              // НЕ НАДО

у меня был где-то пример я не помню помоему на этом форуме я видел толи где...
мне надо спарсить таблицу которая находится над графиком.... Решил спарсить регулярками
может вы чо по советуете свое? ну как лучше было бы и практичней....
вот сайт если нужен

[Stilet]

может вы чо по советуете свое?

Недавно задавал вопрос по поводу разбора сайта: http://www.programmersforum.ru/showthread.php?t=262558
Если применить к этому XPath то можно проход делать запросами - быстрее будет. Я правда у себя не использовал его для разбора HTML, но вроде можно сделать.
Короче говоря я предлагаю вместо регулярок использование MSHTML

[Fahman]

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

Недавно задавал вопрос по поводу разбора сайта: http://www.programmersforum.ru/showthread.php?t=262558
Если применить к этому XPath то можно проход делать запросами - быстрее будет. Я правда у себя не использовал его для разбора HTML, но вроде можно сделать.
Короче говоря я предлагаю вместо регулярок использование MSHTML

У меня chromium стоит....

[Stilet]

Ты хочешь прямо через хромиум по DOM страницы проходится?

[Fahman]

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

Ты хочешь прямо через хромиум по DOM страницы проходится?

Дело не в том что я не хочу, хотелось бы регулярками так как DOM не знаю а учить долго))))

[Stilet]

Ну... Мое дело - предложить. Я регулярки редко использую, и не парсил им сайты.

[Fahman]

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

Ну... Мое дело - предложить. Я регулярки редко использую, и не парсил им сайты.

Я видел тут был пример где-то на форуме но не могу найти....

Вопрос остается открытым кто знает еще способ пишите)

[саша40]

Можно и стандартными функциями Insert, Copy, Delete, Length и т.п.

[Fahman]

Сообщение от саша40

Можно и стандартными функциями Insert, Copy, Delete, Length и т.п.

можно не спорю) только я их не знаю ща буду читать.........
Уже изучил)

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