Добрый день.....
Уменя есть HTML код... мне надо все пробелы в этом коде заменить симолом <B>.</B>
Проблема в том что к примеру если пробел находится в ТЭГЕ <font color=red><a> </a> то естественно тэг разбивается тогда и получается вот такая ерунда <font<B>.</B>color=red><a><B>.</B></a> тоесть в ТЭГЕ тож заменился пробел! Как уйти от этого!?
Как получить текс чтоб тэги были сохранены а пробелы были заменены только в тексте!?
Вот мой пример:
| Код |
procedure TForm1.Button2Click(Sender: TObject);
var
iPos:integer;
s,sParam,k,p,x:string;
begin
s:=MemoText.Text;
iPos:=1;
MemoText.Clear;
while iPos<>0 do
Begin
iPos:=Pos(' ', s);
sParam:=Copy(s, 1, iPos-1); //Значение слева
if (sParam<>'') and (sParam<>' ') then
Begin
MemoText.Text:=MemoText.Text+sParam+'<B>.<B>';
end;
iPos:=Pos(' ', s);
s:=Copy(s, iPos+1, Length(s)); //Копируем всю строку....
end;
end;
|
а так же исходник проги - посмотрите пожалуйста!
M
Rrader | Pararam, использование заглавных букв в названии темы не приветствуется! |
|