Очистка данных от html тегов и css разметки

Dmitry_234 Пользователь Сообщений: 2 Регистрация: 18.01.2017	#1 18.01.2017 11:52:42 Добрый день. Подскажите есть ли способ с помощью макросов «очисть» данные от html тегов и css разметки. Разметка в перемешку с данными в одной ячейке. Пример в файле Прикрепленные файлы пример.xlsx (27.06 КБ)

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#2 18.01.2017 12:00:31 Dmitry_234, недавно было: http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=86711&TITLE_SEO=86711-ubrat-html-kod-ostavit-tolko-russkiy-tekst&MID=721585

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

18.01.2017 12:07:22

Как вариант, - функция ConvertHTMLtoText
http://excelvba.ru/code/html

' Функция преобразует HTML в текст без использования DOM
' Создание функции было обусловлено утечками памяти при использовании библиотеки MSHTML

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Doober

Пользователь

Сообщений: 2380 Регистрация: 09.04.2013

18.01.2017 16:49:37

Так можно.

Код

Public Function ReplaceCSS(S)
    Set RegExp = CreateObject("VBScript.RegExp")
    S = Replace(S, " ", " ")
    RegExp.Global = True
    RegExp.IgnoreCase = True
    RegExp.Pattern = "(<([^>]+)>)"
    ReplaceCSS = RegExp.Replace(S, "")
End Function

Dmitry_234 Пользователь Сообщений: 2 Регистрация: 18.01.2017	#5 18.01.2017 20:07:34 Doober спасибо, помогло

Doober Пользователь Сообщений: 2380 Регистрация: 09.04.2013	#6 18.01.2017 23:11:53 Форматирование сообщений исказило строку. Надо заменять код длинного пробела на пробел S = Replace(S, " ", " ")

Читают тему