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

[nibufep]

Всем Доброго Дня! Столкнулся с проблемой.

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

и тд.

Как в ListBox вывести это в таком виде:

10:00 Текст текст тест
10:10 Текст текст тест
10:20 Текст текст тест

[Stilet]

MSHTML разрешается юзать?

[nibufep]

да, можно любыми способами))

[Iron Monk]

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

да, можно любыми способами))

Распарсить текст напрямую, если он разбит построчно:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
tmp: string;
begin
      for i:= 0 to Memo1.Lines.Count - 1 do
      begin
        tmp:= Copy(Memo1.Lines[i],
                   Pos('<span>',  Memo1.Lines[i]) + 6,
                   Pos('</span>', Memo1.Lines[i]) -
                   Pos('<span>',  Memo1.Lines[i]) - 6) + '  ' +
              Copy(Memo1.Lines[i],
                   Pos('</span>', Memo1.Lines[i]) + 7,
                   Pos('<a href', Memo1.Lines[i]) -
                   Pos('</span>', Memo1.Lines[i]) - 7);
        ListBox1.AddItem(tmp, nil);
      end;
end;
end.

[Stilet]

Такс... Тогда примерно так:

var d:IHTMLDocument2; l: IHTMLElementCollection; innerHTML:Variant; i:integer;
begin
  d:=IHTMLDocument2(CoHTMLDocument.Create);
  innerHTML:=VarArrayCreate([0,0],varVariant);
  innerHTML[0]:=Content; //Тут твой HTML';
  d.write(PSafeArray(TVarData(innerHTML).VArray));
  d.close;
  l:=d.links;
  for i:=0 to l.length do begin
    ListBox.AddItem(l.Item(i).innerText);
  end;
end;

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

[exn]

Или так. )

procedure TForm2.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>';

   with TRegExpr.Create do try

      Expression := 'span>(.+?)</span>(.+?)<a href.+?class="fin">(.+?)</';

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

   finally Free;
   end;
end;

[nibufep]

exn,
Регулярки вещь)) Спасибо!
А еще в это таблице попадаются ссылки вот такого вида:

<span class="live">10:30</span><img src="img.gif" class="class-serve" />Текст текст тест<a href="/link5" class="live">Еще текст</a>

Можно их как то сразу обрабатывать и такой и такой вид?

Что нельзя сразу так сделать?

[SQLPowerUser]

procedure TForm1.Button1Click(Sender: TObject);
var
  s, s_res: string;
begin
  Memo1.Clear;
  s := '<span class="live">10:30</span><img src="img.gif" class="class-serve" />Текст текст тест<a href="/link5" class="live">Еще текст</a>';

  while Pos('>',s) > 0 do
  begin
    s := Copy(s,Pos('>',s)+1,length(s));
    s_res := Copy(s,0,Pos('<',s)-1);
    if Trim(s_res) <> '' then
      Memo1.Lines.Add(s_res);
  end;
end;

[exn]

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

Что нельзя сразу так сделать?

Можно!
http://regexpstudio.com/RU/TRegExpr/...xp_Syntax.html
Изучай!

[NIKOLAYY2]

Как в ListBox вывести это в таком виде:

При помощи регулярки- такой парс пишется 2 минуты, абсолютно без проблем.