| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск / Исключение / Замена

Long1 ©   (2007-01-30 14:56:00) 

Есть такой текст, который содержит в себе html символы (не теги!), например: "hello i'm mike & my brother µmike"

И мне необходимо быстро и корректно заменить их на их не html эквиваленты. " => "; µ => µ, и т.д.

Проблема у меня кроется даже в их корректном поиске, т.е. не знаю как это грамотно осуществить, ибо требуется и учитывать то, что начало & может вовсе и не являться началом html-символа. Чем поможете?

 repeat
   j := 0;
   Inc(i2);
   Param := xHTML[i2];

   if (Param = '&') then
   begin
     uml := param;
     j := 0;
     j2 := i2;
   repeat
     Param := xHTML[j2];
     inc(j2);
     inc(j);
     uml := uml + param;
   until (j = 8) or (param = ';');

   if (param = ';') then
   begin
     ShowMessage('!!!' + uml);
   end else  ShowMessage(uml);
  end;
 until i2 >= Length(xHTML[i2])....;

---

Vlad Oshin   (2007-01-30 15:24:00) [1]

это ?
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1169640296&n=18

---

Long1   (2007-01-30 14:58:00) [2]

&_quot;
&_micro;

это я для примера привел.

---

Наверх