<IDIOMA DE ESCRITURA="vbScript">
cadena tenue
str="¿Cómo extraer todos los caracteres chinos de una página HTML? No puede haber otros códigos HTML."
de alerta FilterChinese (str)
FilterChinese (strInput)
resultado tenue: resultado = ""
dimtempStr
para i=1 a len(strInput)
tempStr=mid(cadenaEntrada,i,1)
si se deja(escape(tempStr),2)="%u" entonces
resultado=resultado&tempStr
terminar si
próximo
FiltrarChino=resultado
función final
</SCRIPT>
si asc(tempStr)>255 entonces
use el método de expresión regular
<IDIOMA DE ESCRITURA="vbScript">
cadena tenue
str="¿Cómo extraer todos los caracteres chinos de una página HTML? No puede haber otros códigos HTML."
alerta RegExpTest("[u4e00-u9fa5]",str)
Función RegExpTest(patrón, cadena)
Dim regEx, Match, Matches 'Crea variables.
Set regEx = New RegExp ' Crea una expresión regular.
regEx.Pattern = patrón ' Establecer patrón.
regEx.IgnoreCase = True ' Establece si se distingue entre mayúsculas y minúsculas.
regEx.Global = True ' Establece reemplazo global.
Set Matches = regEx.Execute(strng) 'Ejecutar búsqueda.
Para cada partido en Partidos 'Recorre la colección de Partidos.
RetStr = RetStr y Match.Value
Próximo
PruebaExpReg = RetStr
Función final
</SCRIPT>