ASP技巧:让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
- 相关阅读
- 珍惜每一个你遇到过的人 放开你心灵之约的视频
- 做好的网站把http改成https申请SSL域名证书
- vue uni-app判断空字符串/null/undefined或者有误字段
- 一个省市县三级关联select下拉菜单代码
- css里expression实现界面对象的批量控制
- ASP操作access或sqlserver数据库的函数库
- 专注于自由行的旅游服务商建站解决方案
- 深山留言板钓鱼岛效果
- 共有0条关于《ASP技巧:让Len,Left,Right函数识别中文》的评论
- 发表评论
您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。
- 更多>>同类信息
- ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
- asp显示随机密码
- 通过阿里云服务接口获得ip地址详细信息
- iis点开后任务栏上有显示,但是窗口看不到的解决办法
- RSA加密解密插件
- 微软Encoder加密解密函数