<スクリプト言語="vbScript">
ディムストラ
str="HTML ページからすべての中国語文字を抽出するにはどうすればよいですか? 他の Html コードは使用できません。"
アラート Filter Chinese(str)
関数 Filter Chinese(strInput)
暗い結果:結果=""
dimtempStr
i=1 から len(strInput) まで
tempStr=mid(strInput,i,1)
if left(escape(tempStr),2)="%u" then
result=結果&tempStr
終了する場合
次
フィルター中国語=結果
関数の終了
</SCRIPT>
asc(tempStr)>255 の場合は、
正規表現メソッドを使用します
<スクリプト言語="vbScript">
ディムストラ
str="HTML ページからすべての中国語文字を抽出するにはどうすればよいですか? 他の Html コードは使用できません。"
アラート RegExpTest("[u4e00-u9fa5]",str)
関数 RegExpTest(patrn, strng)
Dim regEx、Match、Matches '変数を作成します。
Set regEx = New RegExp ' 正規表現を作成します。
regEx.Pattern = patrn ' パターンを設定します。
regEx.IgnoreCase = True ' 大文字と小文字を区別するかどうかを設定します。
regEx.Global = True ' グローバル置換を設定します。
Set Matches = regEx.Execute(strng) ' 検索を実行します。
Matches の各一致について ' Matches コレクションをトラバースします。
RetStr = RetStr & Match.Value
次
RegExpTest = RetStr
関数の終了
</SCRIPT>