ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格:冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
admin类[jscript]

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

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




相关文章

相关软件