支持中文的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
投稿
猜你喜欢
屏蔽浏览器缓存另类方法
2023-11-21 08:09:23
Win10用vscode打开anaconda环境中的python出错问题的解决
2023-04-21 09:21:21
python中 logging的使用详解
2023-01-11 21:31:14
Python3如何使用多线程升程序运行速度
2023-02-06 05:11:42
Python 图形界面框架TkInter之在源码中找pack方法
2021-10-06 05:10:56
php动态生成版权所有信息的方法
2024-05-02 17:17:30
从Oracle 表格行列转置说起第1/2页
2009-09-24 12:51:00
我的论坛源代码(九)
2023-11-15 05:50:05
python 将字符串转换成字典dict
2023-11-27 17:08:33
php让json_encode不自动转义斜杠“/”的方法
2023-08-19 17:04:28
3分钟看懂Python后端必须知道的Django的信号机制
2022-08-17 18:17:55
详解pytest分布式执行插件 pytest-xdist 的高级用法
2022-11-04 21:41:51
pandas中DataFrame重置索引的几种方法
2023-06-10 00:26:45
纯python实现机器学习之kNN算法示例
2021-05-02 22:57:17
Python3爬虫带上cookie的实例代码
2021-11-10 18:06:58
Python日志处理模块logging用法解析
2021-01-05 14:45:55
Python实现的矩阵类实例
2023-08-13 07:52:09
SQL 比较一个集合是否在另一个集合里存在的方法分享
2011-12-01 10:19:26
python中getaddrinfo()基本用法实例分析
2023-03-15 12:17:34
Javascript调试之console对象——你不知道的一些小技巧
2023-08-07 19:24:14