<script language="vbScript">
dim oRe,sStr
sStr = "ab你好dfd"
set oRe = new RegExp
oRe.pattern = "[/u00ff-/uffff]"
alert(oRe.test(sStr))
</script>
<input οnblur="alert('是否含有汉字?/r/n'+ /[/u4e00-/u9fa5]/.test(value))">
<INPUT οnpaste="return false;"
style="IME-MODE: disabled; WIDTH: 400px"
value="I only accept English input! Thanks for corporation!"
name=textfield>
<input type="text" οnchange="if(!/^[/x00-/xff]/.test(this.value)){alert('不能有汉字');this.value=''}">
<script language="vbscript">
class CNWord
public str
private sub Class_Initialize()
set regEx =new RegExp
regEx.IgnoreCase = True '设置是否区分大小写。
regEx.Global = True '设置全局可用性。
end sub
private regEx
Property get CN(x)
dim Arr()
dim maxBound : maxBound = CNBlockCount
redim Arr(maxBound)
dim i:i=1
For each Match in regEx.Execute(str)
Arr(i) = Match
i = i + 1
next
if x<=maxBound then CN = Arr(x)
End Property
Property get CNcount
'返回含有中文的字数
regEx.Pattern = "[/u4e00-/u9fa5]"
CNcount = findCHNnum()
End Property
Property get CNBlockCount
'返回含有中文的块数
regEx.Pattern = "[/u4e00-/u9fa5]+"
CNBlockCount = findCHNnum()
End Property
private function findCHNnum()
findCHNnum = regEx.Execute(str).count
end function
private sub Class_Terminate()
set regEx = nothing
end sub
end class
set wolf = new CNWord
wolf.str ="superDullWolf的CNWord类引用实例,vbs"
msgbox "含有中文数" & wolf.CNcount
msgbox "含有中文块数" & wolf.CNBlockCount
msgbox "第2个中文块是--->" & wolf.CN(2)
set wolf = nothing
</script>