您的位置: 首页 >> 文章首页 >> 编程开发 >> asp教程 >>
站内搜索
分类列表
本类阅读排行
本类推荐文章
广告
ASP技巧：让Len,Left,Right函数识别中文
作者：    来源：    点击：    日期：2007-11-23 14:52:20   

　　ASP函数:支持中文的Len, Left, Right,如何让Len,Left,Right函数识别中文

　　对中文识别为两个字符，ASCII码为一个,可用此函数代替Len,Left,Right函数

　　示例：LenX("中国ren") => "7"

　　LeftX("中国ren",4) => "中国"

　　RightX("中国ren",5) => "国ren"

      参数：　String 字符串　Length 长度

      返回：字符串长度，字符串，字符串

以下是引用片段：
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 

ASP技巧：让Len,Left,Right函数识别中文 评论