判断一个字符串里面包含有中文或者英文

<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
</script>

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值