HTML to text - Общие вопросы Delphi

FelixKoT · 13.03.2010, 00:43

Нужно перевести HTML тэги в нормальный текст..
Если использовать такой вариант

Код:

  Memo1.Text := StringReplace(Memo1.Text,'<br>',#13#10,[rfReplaceAll]);
  Memo1.Text := StringReplace(Memo1.Text,'—','-',[rfReplaceAll]);
  Memo1.Text := StringReplace(Memo1.Text,'&quot;','"',[rfReplaceAll]);
  Memo1.Text := StringReplace(Memo1.Text,'&laquo;','«',[rfReplaceAll]);
  Memo1.Text := StringReplace(Memo1.Text,'&raquo;','»',[rfReplaceAll]);
...

как то много кода получается.

Есть какой нибудь альтернативный способ замены?

mihali4 · 13.03.2010, 01:10

Читайте, весьма пользительно:
http://www.programmersforum.ru/showthread.php?t=46776

На будущее - поиск по форуму "html парсинг" (для данного конкретного случая. В остальных случаях придется подключать мозг).

Напомню из правил:

Цитата:

При создании темы или ответа на существующий вопрос вам необходимо соблюдать следующие несложные правила:

0. Воспользоваться поиском по форуму по интересующему вас вопросу. Темы, созданные без выполнения этого пункта и имеющие кучу "близнецов" в "Похожих темах", будут просто молча закрываться, а затем уничтожаться. Так что не стоит удивляться и возмущаться - проще подумать...

Terikon · 13.03.2010, 01:52

Можно использовать регулярные выражения,
Вот ссылка
http://sites.google.com/site/kemiisto/article/tregexpr

FelixKoT · 13.03.2010, 12:07

Это не то.. Я хотел узнать, есть ли что то наподобие HtmlToChar, коротое по этой таблице заменяет обозначения html символов на обычный вид. Через StringReplace или массив получится громозко.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
text to jpg	HTL	Мультимедиа в Delphi	6	08.01.2010 04:04
text.pascal	xartion	Помощь студентам	2	28.05.2009 16:25
y=Edit1->Text ???	m.a.x.i.m	Помощь студентам	8	31.03.2008 11:29
Text -> Hex	AnK0r	Общие вопросы Delphi	3	07.12.2007 20:36

13.03.2010, 00:43	#1
FelixKoT Пользователь Регистрация: 07.01.2010 Сообщений: 28	HTML to text Нужно перевести HTML тэги в нормальный текст.. Если использовать такой вариант Код: `Memo1.Text := StringReplace(Memo1.Text,'<br>',#13#10,[rfReplaceAll]); Memo1.Text := StringReplace(Memo1.Text,'—','-',[rfReplaceAll]); Memo1.Text := StringReplace(Memo1.Text,'"','"',[rfReplaceAll]); Memo1.Text := StringReplace(Memo1.Text,'«','«',[rfReplaceAll]); Memo1.Text := StringReplace(Memo1.Text,'»','»',[rfReplaceAll]); ...` как то много кода получается. Есть какой нибудь альтернативный способ замены?

13.03.2010, 01:52	#3
Terikon Форумчанин Регистрация: 22.02.2009 Сообщений: 174	Можно использовать регулярные выражения, Вот ссылка http://sites.google.com/site/kemiisto/article/tregexpr

13.03.2010, 12:07	#4
FelixKoT Пользователь Регистрация: 07.01.2010 Сообщений: 28	Это не то.. Я хотел узнать, есть ли что то наподобие HtmlToChar, коротое по этой таблице заменяет обозначения html символов на обычный вид. Через StringReplace или массив получится громозко.