Как извлечь все китайские иероглифы со страницы Html

<SCRIPT LANGUAGE="vbScript">
Тусклая улица
str="Как извлечь все китайские символы из HTML-страницы? Других HTML-кодов быть не может."

функция

оповещения FilterChinese(str)

тусклый результат:result=""
dimtempStr
от i=1 до len(strInput)
tempStr=mid(strInput,i,1)
если left(escape(tempStr),2)="%u" тогда
результат=результат&tempStr
конец, если
следующий
FilterChinese=результат
конечная функция

</SCRIPT>

если asc(tempStr)>255,

используйте метод регулярного выражения
<SCRIPT LANGUAGE="vbScript">
Тусклая улица
str="Как извлечь все китайские символы из HTML-страницы? Других HTML-кодов быть не может."
предупреждение RegExpTest("[u4e00-u9fa5]",str)

Функция RegExpTest(patrn, strng)
Dim regEx, Match, Matches 'Создайте переменные.
Set regEx = New RegExp 'Создаем регулярное выражение.
regEx.Pattern = Patrn 'Установить шаблон.
regEx.IgnoreCase = True 'Укажите, следует ли учитывать регистр.
regEx.Global = True ' Устанавливаем глобальную замену.
Set Matches = regEx.Execute(strng) 'Выполнение поиска.
Для каждого совпадения в Matches ' Просмотрите коллекцию Matches.
RetStr = RetStr & Match.Value
Следующий
РегЭкспТест = РетСтр
Завершить функцию

</SCRIPT>