admin类[jscript]

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

<input value="看看superDullWolf的CNWord类引用实例,vbs,改进了一下,可以提供chinese出现的位置了" id="input1" style="width:100%"/>

<br/>

<button onclick="vbs:classAndRegExp">验证</button>

<script language = "vbscript">

sub classAndRegExp()

set wolf = new CNWord

wolf.str = input1.value

msgbox "含有中文数" & wolf.CNcount

msgbox "含有中文块数" & wolf.CNBlockCount

msgbox "第2个中文块是--->" & wolf.CN(2)

msgbox "第1个中文块出现的位置是--->" & wolf.CNIndex(1)

set wolf = nothing

end sub

</script>

<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

dim Match

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 CNIndex(x)

dim Arr()

dim maxBound : maxBound = CNBlockCount

redim Arr(maxBound)

dim i:i=1

dim Match

For each Match in regEx.Execute(str)

Arr(i) = Match.FirstIndex + 1

i = i + 1

next

if x<=maxBound then CNIndex = 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

</script>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航