'------------------------------------------------------------
'描述:让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)
LenX = 0
Dim lngStringLen
Dim strCharString
Dim i
lngStringLen = Len(sString)
strCharString = ""
For i = 1 To lngStringLen
strCharString = Mid(sString, i, 1)
If Asc(strCharString) > 0 Then
LenX = LenX + 1
Else
LenX = LenX + 2
End If
Next
End Function
Public Function LeftX(ByVal sString, ByVal lLength)
LeftX = ""
If sString = "" Or lLength < 1 Then Exit Function
Dim lngStringLength
Dim strCharString
Dim lngCounter
Dim i
lngStringLength = Len(sString)
For i = 1 To lngStringLength
strCharString = Mid(sString, i, 1)
LeftX = LeftX & strCharString
If Asc(strCharString) > 0 Then
lngCounter = lngCounter + 1
Else
lngCounter = lngCounter + 2
End If
If lngCounter >= lLength Then Exit For
Next
End Function
Public Function RightX(ByVal sString, ByVal lLength)
RightX = ""
If sString = "" Or lLength < 1 Then Exit Function
Dim lngStringLength
Dim strCharString
Dim lngCounter
Dim i
lngStringLength = Len(sString)
For i = lngStringLength To 1 Step -1
strCharString = Mid(sString, i, 1)
RightX = strCharString & RightX
If Asc(strCharString) > 0 Then
lngCounter = lngCounter + 1
Else
lngCounter = lngCounter + 2
End If
If lngCounter >= lLength Then Exit For
Next
End Function
分享到:
相关推荐
ASP函数支持中文的Len, Left, Right ASP函数支持中文的Len, Left, Right
TIA博途WINCC的触摸屏VB脚本入门(Len函数获取字符串长度以及Right和Left函数)
第1.25例 Left 和 Right 函数 第1.26例 Len 函数 第1.27例 LTrim、RTrim与 Trim 函数 第1.28例 Mid 函数 第1.29例 Month 和 MonthName函数 第1.30例 MsgBox 函数 第1.31例 Now函数 第1.32例 RGB函数 第1.33例 Rnd...
4.2 LEFT、RIGHT函数 4.3 MID函数 4.4 LEN函数 4.5 FIND函数 4.6 SEARCH函数 4.7 综合运用一 4.8 综合运用二 4.9 REPLACE函数 4.10 SUBSTITUTE函数 4.11 CHAR与CODE 4.12 UPPER与LOWER EXACT 4.13 REPT ...
比如一个汉字也只会算一个字节,在排版时如果全是汉字,好说,反正... 以下用法和len(),left(),right()一样。 程序代码 代码如下: Function Strlength(Str) Temp_Str=Len(Str) For I=1 To Temp_Str Test_Str=(Mid(Str,
Left 和 Right 函数 Len 函数 LTrim、RTrim与Trim 函数 Mid 函数 Month 和 MonthN ame函数 MsgBox 函数 Now函数 RGB函数 Rnd函数 Round函数 Split 函数 Sqr 函数 Str 和CStr 函数 Time 函数 TimeSerial ...
mid/len/left/right等函数,补丁文件。更新替换就行了
Len() 系统与环境函数 StopHotLink() 窗口操作函数 String() Clipboard() Close() CommandParm() DDE服务器函数 CloseWithReturn() 数据类型检查与转换函数 DoScript() GetCommandDDE() Open() Asc() ...
C#字符串函数大全将包括Len Len(string|varname) 、Trim Trim(string) 、Ltrim Ltrim(string)等多项内容 LenLen(string|varname)返回字符串内字符的数目,或是存储一变量所需的字节数。 TrimTrim(string)将字符串...
create function bigconvert(@tt varchar) returns varchar as begin --declare @tt varchar(12) --set @tt='123456789.32' declare @strleft varchar(50) --小数点左边 ...set @len=len(@strleft)
代码如下:LEN(string)函数LOWER(string)函数UPPER (string)函数LTRIM(string)函数RTRIM (string)函数SUBSTRING(string,start_position,length)函数CHARINDEX(string,substring)函数LEFT (string,length)函数RIGHT ...
EXCEL中一些常见函数的用法,如文本类,逻辑类函数的用法及注意事项的总结,TRIM、CLEAN、LEN、LENB、MID、LEFT、RIGHT、IF及这些函数的嵌套使用等。
5.LEFT 42 6.LEN 43 7.LOWER 44 8.LTRIM 45 9.NCHAR 46 10.PATINDEX 49 11.REPLACE 51 12.QUOTENAME 52 13.REPLICATE 53 14.REVERSE 56 15.RIGHT 57 16.RTRIM 59 17.SOUNDEX 60 18.SPACE 61 19.STR 62 20.STUFF 65
·REPT ·RIGHT 或 RIGHTB ·SEARCH 或 SEARC ·SUBSTITUTE ·T ·TEXT ·TRIM ·UPPER ·value ·WIDECHAR 四、逻辑运算符(6条) ·AND ·FALSE ·IF ·NOT ·OR ·TRUE 五、查找和引用函数(17条) ...
本书从函数功能、函数格式、参数说明、注意事项、Excel 版本提醒、案例应用、交叉参考7 个方面,全面、细致地介绍了Excel 2016/2013/2010/2007/2003 中公式和函数的使用方法、实际应用和操作技巧。最后3 章还将公式...
函数 语法 功能 Len Len(string|varname) 返回字符串内字符的数目,或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) ...
Len 函数 返回字符串中的字符数量,或者存储变量所需的字节数。 Length 属性 返回在搜索字符串中匹配的长度。 LoadPicture 函数 返回图片对象。仅用于 32 位平台。 Log 函数 返回数的自然对数。 LTrim 函数 返回...
Len函数获取字符串字节长度(中英数都是1字节) Right右截取字符串函数 SubString中间截取字符串函数 Left左截取字符串函数 stuff指定位置插入字符串、删掉字符串函数 查看数据库信息功能大全 存储过程解析大全 获取...
Len 函数 返回字符串中的字符数量,或者存储变量所需的字节数。 Length 属性 返回在搜索字符串中匹配的长度。 LoadPicture 函数 返回图片对象。仅用于 32 位平台。 Log 函数 返回数的自然对数。 LTrim 函数 返回...