Распарсить таблицу

[lomastr_]

вам дали ссылку на документацию. что еще надо?

[Iron Monk]

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

что не кто не поможет

procedure TForm1.Button1Click(Sender: TObject);
var s: String;
begin
   s := '<span>10:00</span>Текст текст тест<a href="/link" class="fin">Еще текст</a>'  +
        '<span>10:10</span>Текст текст тест<a href="/link2" class="fin">Еще текст</a>' +
        '<span>10:20</span>Текст текст тест<a href="/link3" class="fin">Еще текст</a>' +
        '<span class="live">10:30</span><img src="img.gif" class="class-serve" />Текст текст тест<a href="/link5" class="live">Еще текст</a>';

   with TRegExpr.Create do try

      Expression := '<spa.+?>(.+?)(</span><img src.+?>|</span>)(.+?)<a href.+?class.+?>(.+?)</a>';

       if Exec(s) then repeat
         ListBox1.Items.Add(Match[1] + ' ' + Match[3] + ' ' + Match[4]);
       until not ExecNext;

   finally Free;
   end;
end;
end.

Следующую строку сам распарсишь?

Я сегодня добрый)))

procedure TForm1.Button1Click(Sender: TObject);
var s: String;
begin
   s := '<span>10:00</span>Текст текст тест<a href="/link" class="fin">Еще текст</a>'  +
        '<span>10:10</span>Текст текст тест<a href="/link2" class="fin">Еще текст</a>' +
        '<span>10:20</span>Текст текст тест<a href="/link3" class="fin">Еще текст</a>' +
        '<span class="live">10:30</span><img src="img.gif" class="class-serve" />Текст текст тест<a href="/link5" class="live">Еще текст</a>' +
        '<span>10:40<span class="status">Убран</span></span>Текст текст тест<a href="/link3" class="fin">';

   with TRegExpr.Create do try

      Expression := '<spa.+?>(.+?)(</span><img src.+?>|<.+?pa.+?>)(.+?)(<a href.+?class.+?>|</span></span>)(.+?)(</a>|<a href.+?class.+?>)';

       if Exec(s) then repeat
         ListBox1.Items.Add(Match[1] + ' ' + Match[3] + ' ' + Match[5]);
       until not ExecNext;

   finally Free;
   end;
end;
end.

[nibufep]

Iron Monk,

<span class="live">10:30</span>Текст1<img src="/res/image/blank.gif" class="tennis-serve" />Продолжение Текст1<a href="/link5" class="live">Еще текст</a>

Вот в таком шаблоне парсится мусор:
<img src="/res/image/blank.gif" class="tennis-serve" />

[Iron Monk]

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

Iron Monk,
Вот в таком шаблоне парсится мусор:
<img src="/res/image/blank.gif" class="tennis-serve" />

Вы бы, чтоб здесь не бился народ с неведомым, файлик приложили. Как-то не очень по кусочкам информацию получать...

[nibufep]

Да уже не нужно, я разобрался с этим! Всем большое спасибо за помощь!

[nibufep]

А вот еще, у таблиц есть заголовки

Например идет Заголовок и дальше выводятся несколько любых шаблонов для которых регулярки делали.

Вот так выглядит:

<h4>Заголовок 1</h4>
****Тут выводятся****
<h4>Заголовок 2</h4>
****Тут выводятся****

и тд.

Как мне вывести текст только из под нужных заголовков. Тоесь если там есть определеный текст то вывести, если нет то не нужно.

[nibufep]

Сделал вот так:

RegExpr.Expression := '<h4>(WWW|AAA)(.*?)</h4><spa.+?>(.+?)(</span><img src.+?>|<.+?pa.+?>)(.+?)(<a href.+?class.+?>|</span></span>)(.+?)(</a>|<a href.+?class.+?>)';

Ну парсит только по 1 столбику из каждой таблицы, а нужно чтобы все парсило, как сделать?

[nibufep]

Что не получится так сделать?

[lomastr_]

спросите тут

[viktor-zakal]

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

Сделал вот так:

RegExpr.Expression := '<h4>(WWW|AAA)(.*?)</h4><spa.+?>(.+?)(</span><img src.+?>|<.+?pa.+?>)(.+?)(<a href.+?class.+?>|</span></span>)(.+?)(</a>|<a href.+?class.+?>)';

Ну парсит только по 1 столбику из каждой таблицы, а нужно чтобы все парсило, как сделать?

ну так пройтись надо было циклом и все)))

  if RegExp.Exec(Text) then
   begin
    repeat
      // выводим для примера в мемо)))
      Memo1.Lines.Add(RegExp.Match[1]+RegExp.Match[1]+ И ТАК ДАЛЕЕ...); 
    until not RegExp.ExecNext;
end;