Проблема с парсингом

[UKRtortik]

Добрый день! Возникла такая проблемка, нужно спарсить весь текст между определенными тегами, и вывести ListView.

Заходим на сайте, там например идет:

<from1>Текст1</from1>
<from2>Текст2</from2>
<from3>Текст3</from2>

И после этого между такими же тегами уже другой текст

<from1>Текст4</from1>
<from2>Текст5</from2>
<from3>Текст6</from2>

и тд.

Нужно получить этот текст и вывести его в listviev

    item:=ListView1.Items.Add;
    item.Caption:=Текст1;
    item.SubItems.Add(Текст2);
    item.SubItems.Add(Текст3);

и потом так же следующий текст вывести

    item:=ListView1.Items.Add;
    item.Caption:=Текст3;
    item.SubItems.Add(Текст4);
    item.SubItems.Add(Текст5);

Как это можно реализовать?

[XE5]

Чем не устроила эта тема?

[UKRtortik]

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

Чем не устроила эта тема?

Спасибо! То что нужно!

[UKRtortik]

XE5, только проблема такая, что парсит почему то слишними тегами, в чем может быть причина?

[XE5]

Как я могу сказать в чём у Вас проблема, если я не вижу код? Я не экстрасенс пока что

[UKRtortik]

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

Как я могу сказать в чём у Вас проблема, если я не вижу код? Я не экстрасенс пока что

go:=idhttp1.Get('http://');
while pos('<mail_from>', go) > 0 do begin
Delete(go, 1, pos('<mail_from>', go) + 2);
ot:=(Copy(go, 1, pos('</mail_from>', go) - 1));

[XE5]

Delete(go, 1, pos('<mail_from>', go) + 10);
+ 10 это количество символов после начала тега, которые не требуется копировать

[Serge_Bliznykov]

кстати, в той теме я выложил свой вариант - тыц

[UKRtortik]

XE5, спасибо помогло.