支持中文的Len, Left, Right函数
作者:KimSoft 时间:2008-03-18 13:50:00
描述:让Len,Left,Right函数识别中文;对中文识别为两个字符,ASCII码为一个;可用此函数代替Len,Left,Right函数。
示例:LenX("中国ren") => "7";LeftX("中国ren",4) => "中国";RightX("中国ren",5) => "国ren"
参数:sString 字符串;Length 长度
返回:字符串长度,字符串,字符串
整理:KimSoft(jinqinghua@gmail.com)
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
标签:left,right,len,函数
0
投稿
猜你喜欢
PHP遍历目录实现方法介绍
2023-05-25 06:31:41
pre标签自动换行
2009-03-13 13:37:00
一条sql 语句搞定数据库分页
2009-03-21 18:32:00
用户体验的时间尺度[译]
2009-10-30 18:25:00
Javascript 小游戏,“是男人坚持 100 次”
2009-01-22 14:25:00
英文版面设计的8个禁忌
2009-10-14 20:42:00
sql如何在Access中选择指定日期前的记录?
2010-06-17 12:47:00
一个ASPJPEG组件的asp类 CLASS
2008-03-11 12:22:00
asp如何处理页面执行时发生的错误?
2009-11-14 20:43:00
不成熟的标准化是我们唯一惧怕的
2008-08-15 18:55:00
ASP程序代码执行时间统计类
2007-10-15 12:45:00
Yahoo!网站性能最佳体验的34条黄金守则——JavaScript和CSS
2008-05-29 13:34:00
Fibonacci数,Θ(log n)
2010-03-28 13:28:00
再论Javascript下字符串连接的性能
2010-06-26 13:13:00
什么样的图标更具有可用性
2007-10-16 17:47:00
SNS用户体验和互动性浅析
2011-01-17 17:56:00
mysql导入导出命令
2011-07-04 11:28:50
asp单主键高效通用分页存储过程
2009-02-23 19:21:00
CSS制作滑动折叠的文字效果
2008-12-01 13:10:00
费茨法则在交互设计中的应用
2009-07-09 19:02:00