VPF::Замена текста в HTML коде - Форум программистов

Pararam

Дата 23.6.2009, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 13.5.2007

Репутация: нет
Всего: нет

Добрый день.....
Уменя есть HTML код... мне надо все пробелы в этом коде заменить симолом .

Проблема в том что к примеру если пробел находится в ТЭГЕ <a> </a> то естественно тэг разбивается тогда и получается вот такая ерунда <font.color=red><a>.</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, использование заглавных букв в названии темы не приветствуется!

Это сообщение отредактировал(а) Rrader - 23.6.2009, 17:41

Присоединённый файл ( Кол-во скачиваний: 2 )

1.ZIP 203,40 Kb

Frees

Дата 23.6.2009, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

Код


uses StrUtils;
function ReplaceHTMLText(AText, AFrom, ATo: string ): string;
var
  I: Integer;
  ATagCount: Integer;
begin
  ATagCount := 0;
  I := 1;
  while i < Length(AText) do
  begin
    if AText[i] = '<' then
      Inc(ATagCount);
    if AText[i] = '>' then
      Dec(ATagCount);
    if (PosEx(AFrom, AText, i) = i) and (ATagCount = 0) then
    begin
      Result := Result + ATo;
      I := I + Length(AFrom);
    end
    else
    begin
      Result := Result + AText[i];
      Inc(I)
    end;
  end;
end;

--------------------

Кольцов Виктор Владимирович

Crw

Дата 23.6.2009, 13:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 25.2.2008

Репутация: 3
Всего: 4

А еще можно компонент ВебБравзер использовать.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »