注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

admin类jscript  

2011-06-04 18:19:30|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

input val="看看superDullWolf的CNWord类引用实例,vbs,改进了一下,可以提供chinese出现的位置了" id="input1" style="width:100%"/
br/
button onclick="vbs:classAndRegExp"验证/button
script lang ge = "vbscript"
s  classAndRegExp()
set wolf = new CNWord
wolf.str = input1.val
msgbox "含有中文数"  wolf.CNcount
msgbox "含有中文块数"  wolf.CNBlockCount
msgbox "第2个中文块是---"  wolf.CN(2)
msgbox "第1个中文块出现的位置是---"  wolf.CNIndex(1)
set wolf = nothing
end s
/script
script lang ge="vbscript"
class CNWord
p lic str
private s  Class_Initialize()
set regEx =new RegExp
regEx.IgnoreCase = Tr '设置是否区分大小写。
regEx.Global = Tr '设置全局可用性。
end s
private regEx
Property get CN(x)
dim Arr()
dim maxBound : maxBound = CNBlockCount
redim Arr(maxBound)
dim i:i=1
dim Matc
For each Match in regEx.Execute(str)
Arr(i) = Matc
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 Matc
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 = "[\一-\龥]"
CNcount = findCHNnum()
End Property
Property get CNBlockCount
'返回含有中文的块数
regEx.Pattern = "[\一-\龥]+"
CNBlockCount = findCHNnum()
End Property
private function findCHNnum()
findCHNnum = regEx.Execute(str).count
end function
private s  Class_Terminate()
set regEx = nothing
end s
end class
/script

  评论这张
 
阅读(67)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017