ASP技巧:让Len,Left,Right函数识别中文


ASP函数:支持中文的Len, Left, Right

'------------------------------------------------------------
'描述:让Len,Left,Right函数识别中文
' 对中文识别为两个字符,ASCII码为一个
' 可用此函数代替Len,Left,Right函数
'示例:LenX("中国ren") => "7"
' LeftX("中国ren",4) => "中国"
' RightX("中国ren",5) => "国ren"
'参数:
' sString 字符串
' lLength 长度
'返回:字符串长度,字符串,字符串
'整理:KimSoft(jinqinghua@gmail.com)
'时间:2005-05-24
'修改:2005-07-07
'------------------------------------------------------------
Public Function LenX(ByVal sString)
Dim reslult, lngStringLen, strCharString, i
lngStringLen = Len(sString)
strCharString = ""

for i = 1 to lngStringLen
strCharString = Mid(sString, i, 1)
if Asc(strCharString) > 0 then reslult= reslult+ 1 else reslult= reslult+ 2
next
LenX= reslult
End Function

Public Function strLeft(ByVal sString, ByVal lLength)
if isBlank(sString) or lLength < 1 then Exit Function
Dim result, lngStringLength, strCharString, lngCounter ,i
lngStringLength = Len(sString)

result = ""
for i = 1 to lngStringLength
strCharString = Mid(sString, i, 1)
result = result & strCharString
if Asc(strCharString) > 0 then lngCounter = lngCounter + 1 else lngCounter = lngCounter + 2
if lngCounter >= lLength then Exit For
next
strLeft = result
End Function

Public Function strRight(ByVal sString, ByVal lLength)
if isBlank(sString) or lLength < 1 then Exit Function
Dim result, lngStringLength, strCharString, lngCounter, i
lngStringLength = Len(sString)

result = ""
for i = lngStringLength to 1 step -1
strCharString = Mid(sString, i, 1)
result = strCharString & result
if Asc(strCharString) > 0 then lngCounter = lngCounter + 1 else lngCounter = lngCounter + 2
if lngCounter >= lLength then Exit For
next
strRight = result
End Function



相关阅读:
dedecms5.1在线生成google sitemap方法
202个免费的高质量XHTML模板(1)
分析ASP.NET服务器控件开发-控件生命周期
FreeBSD4.8安装,汉化全过程
javascript正则表达式的常用方法总结
ASP.NET获取不到js写的cookie解决方法
Javascript简易调色板效果
phpcms更换服务器后前台后台无法登录的解决方法
JavaScript学习历程和心得小结
div水平垂直居中的完美解决方案
提升JS性能:将递归转换为迭代
苹果的MAC操作系统大战微软windows的十个优势介绍
SQL Server2005中按列连接字符串三种方法
虚拟主机中对PHP的特殊设置
快速导航

Copyright © 2016 phpStudy |