ASP支持中文字符串的截取函数

ASP #截取中文字符串 #函数2012-05-15 08:57

说明：本函数作用是截取指定英汉混合字符串，并保持显示长度一至。就是将一个汉字当两英文来截取。

用途：一般会用在标题显示列表，可以避免截取的字符串参插不齐的现象。

'//A_strString要处理的字符串 
'//A_intLen以英文字符数为准 
'//A_strAddString如果A_strString有截取字符时添中的后缀，如：...，可以为空 
function CutString(byval A_strString,byval A_intLen,byval A_strAddString) 
dim MM_objRe,MM_objMs,MM_objMh 
dim MM_strCut,MM_intLen 
set MM_objRe=new RegExp 
MM_objRe.Global=true'全局搜索 
MM_objRe.IgnoreCase=true'不区分大小写 
MM_objRe.Pattern="[^-ÿ]" 

MM_intLen=A_intLen 
if len(A_strString)<=A_intLen then 
MM_strCut=A_strString 
else 
MM_strCut=left(A_strString,MM_intLen) 
set MM_objMs=MM_objRe.execute(MM_strCut) 
if MM_objMs.count<>MM_intLen then 
for each MM_objMh in MM_objMs 
if MM_objMh.FirstIndex<MM_intLen then 
MM_intLen=MM_intLen-1 
else 
exit for 
end if 
next 
else 
MM_intLen=MM_intLen/2 
end if 
MM_strCut=left(A_strString,MM_intLen) & A_strAddString 
end if 
CutString=MM_strCut 
set MM_objRe=nothing 
end function

asp的cint/clng的范围与防止溢出解决方法 2012/05/15
ASP操作XML的类 2012/05/15
ASP禁止指定IP和只允许指定IP访问网站 2012/05/14
ASP利用MSXML2.XmlHttp和Adodb.Stream采集图片 2012/05/14
ASP的URL参数获取的几种方法 2012/05/14
ASP常用字符串处理类 2012/05/14
ASP单日期自动补零函数 2012/05/14
ASP模板标签替换简单生成静态的方法 2012/05/13
ASP的无限级分类实现方法 2012/05/12
ASP把XML转换为XHTML的方法 2012/05/12

ASP 教程

ASP 对象

ASP 组件

ASP 总结

ASP支持中文字符串的截取函数

相关文章