How to extract all Chinese characters from an HTML page

Chinese Character | page

<script language= "VbScript" >
Dim str
Str= "How to extract all Chinese characters from an HTML page?" Cannot have other HTML code. "
Alert Filterchinese (str)

function Filterchinese (strinput)
Dim result:result= ""
Dim tempstr
For I=1 to Len (strinput)
Tempstr=mid (strinput,i,1)
If left (Escape (TEMPSTR), 2) = "%u" Then
Result=result & TempStr
End If
Next
Filterchinese=result
End Function

</SCRIPT>

If ASC (TEMPSTR) >255 Then

The method of using regular expressions
<script language= "VbScript" >
Dim str
Str= "How to extract all Chinese characters from an HTML page?" Cannot have other HTML code. "
Alert Regexptest ("[\u4e00-\u9fa5]", str)

Function regexptest (PATRN, STRNG)
Dim regEx, Match, matches ' Set variable.
Set regEx = New RegExp ' establishes a regular expression.
Regex.pattern = Patrn ' Set mode.
Regex.ignorecase = True ' Sets whether case sensitive.
Regex.global = True ' Sets global substitution.
Set matches = Regex.execute (strng) ' performs a search.
For the Match in matches ' traverses the matches collection.
Retstr = retstr & Match.value
Next
Regexptest = Retstr
End Function

</SCRIPT>