订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

ASP技巧:让Len,Left,Right函数识别中文

无极网 2007/12/1 21:59:17 深山行者 字体: 浏览 8391
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 

相关阅读
珍惜每一个你遇到过的人 放开你心灵之约的视频
做好的网站把http改成https申请SSL域名证书
vue uni-app判断空字符串/null/undefined或者有误字段
一个省市县三级关联select下拉菜单代码
css里expression实现界面对象的批量控制
ASP操作access或sqlserver数据库的函数库
专注于自由行的旅游服务商建站解决方案
深山留言板钓鱼岛效果
共有0条关于《ASP技巧:让Len,Left,Right函数识别中文》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
python通过代码修改pip下载源让下载库飞起
python里面requests.post返回的res.text还有其它的吗
aliyun阿里云续费域名优惠口令(注册、续费都可以使用)
windows7环境下安装配置jdk
python对微信操作要用到这两个库wxpy与itchat
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
DW设置之后更好用 DreamweaverCS编辑GB2312与UTF-8文件在代码视图中点击鼠标错位问题的解决办法
解决国内 github.com 打不开的准确方法
更多>>随机抽取信息
CSS设计中常见的精华问题收集
网站终于在计划时间内完成了
asp中Request.ServerVariables能获取的信息整理总结
uni-app 搜索、历史记录功能简单实现
纯div+css制作的弹出菜单-02
连云港酒店预订网站