Парсинг+замена текста

[Kapitan4ik]

Суть проблемы. Шлю пост запрос с определенными параметрами.
Исходник страницы, после запроса вот:

<code style="color:#000000;">
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
...
...
...
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
</code>

в делфи парсю вот таким кодом:

Delete(S,1,pos('00;">',S)+1);
Delete(S,pos('</code>',S),length(S));

остается только:

00;">
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
...
...
...
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
</code>

собственно пару вопросов:
Как убрать <br> и </b>

и как начинать каждую строку с новой строчки в TMemo?
(после запроса получается что по 2 строки входят в 1)
Заранее спасибо, прошу не кричать ибо я токо начинаю

[Пепел Феникса]

Delete(S,1,pos('00;">',S)+5);
Delete(S,pos('</code>',S),length(S));

останется:

123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
...
...
...
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>
123456<b>:</b>123456<br>

далее

s:=StringReplace(S,'<br>',#13#10,[rlReplaceAll]);
s:=StringReplace(S,'<b>:</b>','',[rfReplaceAll]);

возможно еще придеться проверить на пустые строки.

[Kapitan4ik]

спасибо огромное. Но одно но, в Memo1 в первой строке теряется 1 символ
тобишь получается что-то типо

23456
123456
123456

[Пепел Феникса]

Delete(S,1,pos('00;">',S)+4);

перепутал, но первого можно.

[Kapitan4ik]

Всё, теперь всё просто идеально)
1)Но возникли ещё несколько вопросов:
Как мне теперь сохранить это все в текстовик, но сохранить только то что после двоеточия.Тобишь не

123456:123456a

а просто

123456a

и последний вопрос:
Надо чтобы при последующих запросах, Memo1 не перезагружал текст из запроса, а
дополнял уже существующий текст в Memo1.
Например, я уже 1 раз отправил запрос с нужными мне параметрами, в Memo1 спарсились данные:

123456
123456
123456

Шлю второй запрос, в Memo1 появляется

654321
654321
654321

А мне надо чтобы было:

123456
123456
123456
654321
654321
654321

Надеюсь разъяснил понятно. Заранее спасибо)

[Пепел Феникса]

Надо чтобы при последующих запросах, Memo1 не перезагружал текст из запроса, а
дополнял уже существующий текст в Memo1.

так дополняйте его, а не переписывайте.

Как мне теперь сохранить это все в текстовик, но сохранить только то что после двоеточия.

пробегайтесь по таким строкам и удаляйте в них все что до двоеточия, вы уже умеете это:

Delete(S,1,Pos(':',S));

[Kapitan4ik]

всё, со всем разобрался. Спасибо огромное вам)

[Kapitan4ik]

вешаю на форму кнопку, на нажатие ставлю код:

Memo1.Text:=S;
Delete(S,1,Pos(':',S));

при нажатии удаляет весь текст из Memo :/

[Mad_Cat]

вешаю на форму кнопку, на нажатие ставлю код:

я бы все таки не Memo1.Text использовал а Memo1.Lines

for i:=0 to memo1.lines.count-1 do
begin
s:=memo1.lines[i];
Delete(S,1,Pos(':',S));
memo1.lines[i]:=s;
end;