ÅжÏÒ»¸ö×Ö·û´®ÀïÃæ°üº¬ÓÐÖÐÎÄ»òÕßÓ¢ÎÄ

ïLë…¡©ŸoÐÄ¥á

<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 ccc= new CNWord
ccc.str ="CNWordÀàÒýÓÃʵÀý,vbs"

msgbox "º¬ÓÐÖÐÎÄÊý" & ccc.CNcount
msgbox "º¬ÓÐÖÐÎÄ¿éÊý" & ccc.CNBlockCount
msgbox "µÚ2¸öÖÐÎÄ¿éÊÇ--->" & ccc.CN(2)

set ccc = nothing