<SCRIPT LANGUAGE="vbScript">
dim str
str="Wie extrahiere ich alle chinesischen Zeichen aus einer HTML-Seite? Es kann keine anderen HTML-Codes geben."
Warnung FilterChinese(str)
Funktion FilterChinese(strInput)
Ergebnis dimmen:result=""
dimtempStr
für i=1 bis len(strInput)
tempStr=mid(strInput,i,1)
if left(escape(tempStr),2)="%u" then
result=result&tempStr
Ende wenn
nächste
FilterChinese=Ergebnis
Endfunktion
</SCRIPT>
Wenn asc(tempStr)>255, dann
verwenden Sie die reguläre Ausdrucksmethode
<SCRIPT LANGUAGE="vbScript">
dim str
str="Wie extrahiere ich alle chinesischen Zeichen aus einer HTML-Seite? Es kann keine anderen HTML-Codes geben."
Alert RegExpTest("[u4e00-u9fa5]",str)
Funktion RegExpTest(patrn, strng)
Dim regEx, Match, Matches 'Variablen erstellen.
Set regEx = New RegExp ' Erstellt einen regulären Ausdruck.
regEx.Pattern = patrn ' Muster festlegen.
regEx.IgnoreCase = True ' Legen Sie fest, ob die Groß-/Kleinschreibung beachtet werden soll.
regEx.Global = True ' Globale Ersetzung festlegen.
Set Matches = regEx.Execute(strng) ' Suche ausführen.
Für jedes Spiel in „Matches“ durchqueren Sie die Matches-Sammlung.
RetStr = RetStr & Match.Value
Nächste
RegExpTest = RetStr
Endfunktion
</SCRIPT>