<SCRIPT LANGUAGE="vbScript">
escurecimento
str="Como extrair todos os caracteres chineses de uma página HTML? Não pode haver outros códigos HTML."
alerta FilterChinese(str)
FilterChinese(strInput)
resultado escuro:resultado=""
dimtempStr
para i=1 para len(strInput)
tempStr=mid(strInput,i,1)
se esquerda(escape(tempStr),2)="%u" então
resultado=resultado&tempStr
terminar se
próximo
FiltroChinês=resultado
função final
</SCRIPT>
se asc(tempStr)>255 então
use o método de expressão regular
<SCRIPT LANGUAGE="vbScript">
escurecimento
str="Como extrair todos os caracteres chineses de uma página HTML? Não pode haver outros códigos HTML."
alerta RegExpTest("[u4e00-u9fa5]",str)
Função RegExpTest(patrn, string)
Dim regEx, Match, Matches 'Cria variáveis.
Set regEx = New RegExp ' Cria uma expressão regular.
regEx.Pattern = patrn ' Definir padrão.
regEx.IgnoreCase = True ' Define se deve diferenciar maiúsculas de minúsculas.
regEx.Global = True ' Define a substituição global.
Definir correspondências = regEx.Execute(strng) 'Executa pesquisa.
Para cada partida em Matches ' Percorra a coleção Matches.
RetStr = RetStr & Match.Value
Próximo
RegExpTest = RetStr
Função final
</SCRIPT>