парсинг HTML кода

[beegl]

нашел компонент easynet.zip , надо как-то пропарсинговать код:

это результат в Memo1:

<td>Лицевой счет</td>
2508431
<td>Абонент</td>
Безконтрактний абонент
<td>Номер телефона</td>
0569989487
<td>Состояние</td>
Активен
<td>Тарифный план</td>
<a href="http://www.intertelecom.ua/ru/tariffs/internet/tariffs/day_gig">                                                        Гига-День 150
<td>Дополнительное соглашение</td>
Нет
<td>Дата подключения</td>
04.10.2012
<td>Абонентский стаж (гг.мм)</td>
1.4
<td>Лояльный стаж (гг.мм)</td>
1.4
<td>Дата последней абонентской активности (мм.гггг)</td>
03.02.2014
<td>Контактный номер телефона</td>
0632232945 <a href="/ru/cp-bonus/">Изменить</a>
<td>E-Mail</td>
beegl1985@rambler.ru
(грн.)
<td>Сальдо</td>
-18.20
<td>Предоплаченые услуги на месяц</td>
0.00
<td>Кредит до...</td>
-30.00
<td>Неактивированные бонусы (с 094)</td>
0.00
<td>Правило (USER_NAME)</td>
Трафик МБ (получено+передано)
<td>IT</td>
3968
<td>NO_MONEY</td>
4
<td>Текущая сессия интернет без тарификации <br />(по состоянию на 05.02.2014 16:16)</td>
EVDO
<td>Авторизован по правилу (логин)</td>
IT (IT)
<td>Трафик МБ</td>
<strong>        37.612</strong>
<td>IP</td>
10.133.244.140
<h2 class="assa_title">Предоплачено на пакете</h2>
<table class="assa" border="0" cellspacing="0" cellpadding="0">
<td>Трафик (без учета текущей сессии)</td>
<td style="color:;">(МБ)</td>
<td>Ночной трафик (Rev.A)</td>
<td style="color:#000000;">29114.6816 по 28.02.2014</td>
<td>пакетный трафик (Rev.A/Rev.B)</td>
<td style="color:#000000;">400.0000 по 05.02.2014</td>
<td>пакетный трафик (Rev.A/Rev.B)</td>
<td style="color:#000000;">1688.1064 по 05.02.2014</td>

нужен примерно такой результат:

Лицевой счет: 2508431
Абонент: Безконтрактний абонент
Номер телефона:0569989487
Состояние: Активен
Тарифный план: Гига-День 150
Дополнительное соглашение: Нет
Дата подключения: 04.10.2012
Абонентский стаж (гг.мм): 1.4
Лояльный стаж (гг.мм): 1.4
Дата последней абонентской активности (мм.гггг): 03.02.2014
Контактный номер телефона: 0632232945
E-Mail: beegl1985@rambler.ru
Сальдо: -18.20 грн
Предоплаченые услуги на месяцЖ 0.00
Кредит до...: -30.00
Неактивированные бонусы (с 094): 0.00
Правило (USER_NAME): Трафик МБ (получено+передано)
IT: 3968
NO_MONEY: 4
Текущая сессия интернет без тарификации(по состоянию на 05.02.2014 15:16): EVDO
Авторизован по правилу (логин)
IT (IT)
Трафик МБ: 9.890
IP: 10.133.244.140
Предоплачено на пакете Трафик (без учета текущей сессии): (МБ)
Ночной трафик: 29114.6816 по 28.02.2014
пакетный трафик (Rev.A/Rev.B): 400.0000 по 05.02.2014
пакетный трафик (Rev.A/Rev.B): 1688.1064 по 05.02.2014

[Кольша]

удалите все теги и все. в интернете море примеров.

[beegl]

Сообщение от Кольша

удалите все теги и все. в интернете море примеров.

нашел какую-то функцию:

function ConvertHTML(AInput: WideString): WideString;
var
  Len, WriteLen, ReadPos, OldPos, WritePos: integer;
begin
  Len := Length(AInput);
  if Len = 0 then
    Exit;
  SetLength(Result, Len);
  ReadPos := 1;
  WritePos := 1;
  while ReadPos < Len do
  begin
    OldPos := ReadPos;
    while (AInput[ReadPos] <> WideChar('<')) and (ReadPos < Len) do
      Inc(ReadPos);
    WriteLen := ReadPos - OldPos;
    if WriteLen > 0 then
    begin
      Move(AInput[OldPos], Result[WritePos], WriteLen*2);
      Inc(WritePos, WriteLen);
    end;
    while (AInput[ReadPos] <> WideChar('>')) and (ReadPos < Len) do
      Inc(ReadPos);
    Inc(ReadPos);
  end;
  SetLength(Result, WritePos - 1);
end;

результат такой:

Лицевой счет
2508431
Абонент
Безконтрактний абонент
Номер телефона
0569989487
Состояние
Активен
Тарифный план
                                                        Гига-День 150
Дополнительное соглашение
Нет
Дата подключения
04.10.2012
Абонентский стаж (гг.мм)
1.4
Лояльный стаж (гг.мм)
1.4
Дата последней абонентской активности (мм.гггг)
03.02.2014
Контактный номер телефона
0632232945 Изменить
E-Mail
beegl1985@rambler.ru
(грн.)
Сальдо
-18.20
Предоплаченые услуги на месяц
0.00
Кредит до...
-30.00
Неактивированные бонусы (с 094)
0.00
Правило (USER_NAME)
Трафик МБ (получено+передано)
IT
3968
NO_MONEY
4
Текущая сессия интернет без тарификации (по состоянию на 05.02.2014 17:01)
EVDO
Авторизован по правилу (логин)
IT (IT)
Трафик МБ
        47.603
IP
10.133.244.140
Предоплачено на пакете

Трафик (без учета текущей сессии)
(МБ)
Ночной трафик (Rev.A)
29114.6816 по 28.02.2014
пакетный трафик (Rev.A/Rev.B)
400.0000 по 05.02.2014
пакетный трафик (Rev.A/Rev.B)
1688.1064 по 05.02.2014

надо теперь как-то выровнять текст, и некоторые пункты убрать, например:

Лицевой счет: 2508431 (чтобы не с новой строчки номер был)

эти строчки не нужны:

IP
10.133.244.140
Предоплачено на пакете

Трафик (без учета текущей сессии)
(МБ)

[Человек_Борща]

ну так уберите, в чем проблема...

[beegl]

Сообщение от Человек_Борща

ну так уберите, в чем проблема...

подскажите каким методом можно убрать?

[ZuBy]

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

подскажите каким методом можно убрать?

Я вроде показал в коде как это делается...

or (itemstr = 'то что не нужно занесите сюда')

[beegl]

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

Я вроде показал в коде как это делается...

or (itemstr = 'то что не нужно занесите сюда')

напишите пожалуйста краткий пример, что-то не понятно, т.к. все не нужные теги вписаны, но в отчете они присуцтвуют

 if (itemstr = '') or (itemstr = '</td>') or (itemstr = 'h1>Данные по номеру</h1>') or
      (itemstr = '<h2 class="assa_title"><!--Данные по номеру--></h2>') or (itemstr = '</tr>') or (itemstr = '<tr class="">') or
      (itemstr = '<td style="color:#000000;">') or (itemstr = '<tr>') or (itemstr = '</tbody></table>') or (itemstr = '<br />') or
      (itemstr = '</table>') or (itemstr = '<table class="assa" border="0" cellspacing="0" cellpadding="0"><tbody>') or
      (itemstr = '<td>.</td>') or (itemstr = '<td></td>') or (itemstr = '<tr >') or (itemstr = '<tr class="line">') or
      (itemstr = '<tr class="title">') or (itemstr = '<td style="color:;">') or
      (itemstr = '</a>                                                    						</td>') or
      (itemstr = '<td style="color:#007236;">') or (itemstr = '<td>-</td>') or (itemstr = '<td style="color:#FF0000;">') then
      ProStr.Delete(i)
    else

результат все эти теги отображает, что не так?

[beegl]

добрый час, подскажите, как парсить, если одинаковое условие, по акции (Rev.A/Rev.B), ..

на скрине отчет, где множеством заказов 'бонусов'



я так проверяю, но выводит результат первой строки по акции (Rev.A/Rev.B), а следующие не показывает (не затрагивает).

Подскажите, как проциклить строку по акции (Rev.A/Rev.B) и вывести в сообщение?

TrafficBonusTwo := Trim(List.Values['по акции (Rev.A/Rev.B)']);
  pbt := Pos(' ', TrafficBonusTwo);
  if (pbt > 0) then
  TrafficBonusTwo := Copy(TrafficBonusTwo, 1, pbt - 6);

  TrafficBonusThree := Trim(List.Values['по акции (Rev.A/Rev.B)']);
  pbth := Pos(' ', TrafficBonusThree);
  if (pbth > 0) then
  TrafficBonusThree := Copy(TrafficBonusThree, 1, pbth - 6);

ShowMessage(Traffic + '   '+ TrafficBonus  + '    '+ TrafficBonusTwo+'    ' +  TrafficBonusThree+ '    '+TrafficSesia);

где: - по акции (Rev.A/Rev.B)
- TrafficBonus (разное количество)
- TrafficBonusTwo (разное количество)
- TrafficBonusThree (разное количество)