<LANGUE SCRIPT="vbScript">
dim str
str="Comment extraire tous les caractères chinois d'une page HTML ? Il ne peut pas y avoir d'autres codes HTML."
alerte FilterChinese(str)
fonction FilterChinese(strInput)
résultat faible :result=""
dimtempStr
pour i=1 à len(strInput)
tempStr=milieu(strInput,i,1)
si left(escape(tempStr),2)="%u" alors
résultat=résultat&tempStr
finir si
suivant
FiltreChinois=résultat
fonction de fin
</SCRIPT>
si asc(tempStr)>255 alors
utilisez la méthode d'expression régulière
<LANGUE SCRIPT="vbScript">
dim str
str="Comment extraire tous les caractères chinois d'une page HTML ? Il ne peut pas y avoir d'autres codes HTML."
alerte RegExpTest("[u4e00-u9fa5]",str)
Fonction RegExpTest(patrn, strng)
Dim regEx, Match, Matches 'Créer des variables.
Set regEx = New RegExp 'Créer une expression régulière.
regEx.Pattern = patrn 'Définir le modèle.
regEx.IgnoreCase = True 'Définit s'il doit être sensible à la casse.
regEx.Global = True 'Définit le remplacement global.
Set Matches = regEx.Execute(strng) 'Exécuter la recherche.
Pour chaque correspondance dans les correspondances ' Parcourez la collection Matches.
RetStr = RetStr & Match.Value
Suivant
RegExpTest = RetStr
Fin de fonction
</SCRIPT>