社区
ASP
帖子详情
VBScript不能使用strconv函数,怎么处理文本里的汉字啊?
yfbaozi
2005-05-27 01:52:29
各位大侠,我写了一段代码用来从文本里读数据到我的数据库里,但VBScript不能使用strconv函数,我怎么处理文本里的汉字啊?我查了一下以前的帖子,好象没人给出答复啊!
...全文
165
8
打赏
收藏
VBScript不能使用strconv函数,怎么处理文本里的汉字啊?
各位大侠,我写了一段代码用来从文本里读数据到我的数据库里,但VBScript不能使用strconv函数,我怎么处理文本里的汉字啊?我查了一下以前的帖子,好象没人给出答复啊!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
yfbaozi
2005-05-30
打赏
举报
回复
谢谢楼上的,我知道可以自己写一个函数来判断,我想知道是不是没有直接可以用的函数啊!
是是非非
2005-05-27
打赏
举报
回复
<script language="VBScript">
Dim s1 : s1="赵晓妹 5472630200405011800004466887华山路168号 44678302山东省"
Dim s2 : s2="李平 5472630200405011800004466887泰山路45号甲 44678302山东省"
Public Function LeftNBytes(str,nLen)
Dim iCnt,sOut,cTmp,iLen
sOut=""
iCnt=1
iLen=0
cTmp=""
While iLen<=nLen
cTmp=Mid(str,iCnt,1)
If Asc(cTmp)<0 Then
iLen=iLen+2
Else
iLen=iLen+1
End If
sOut=sOut & cTmp
iCnt=iCnt+1
Wend
LeftNBytes=sOut
End Function
Dim o1,o2
o1=LeftNBytes(s1,20)
o2=LeftNBytes(s2,20)
Dim p1,p2
p1=Left(s1,20)
p2=Left(s2,20)
MsgBox "字符串一:[" & o1 & "] 长度:" & Len(o1) & " Unicode占用长度:" & LenB(o1) & vbCrLf & _
"字符串二:[" & o2 & "] 长度:" & Len(o2) & " Unicode占用长度:" & LenB(o2)
MsgBox "字符串一:[" & p1 & "] 长度:" & Len(p1) & " Unicode占用长度:" & LenB(p1) & vbCrLf & _
"字符串二:[" & p2 & "] 长度:" & Len(p2) & " Unicode占用长度:" & LenB(p2)
</script>
yfbaozi
2005-05-27
打赏
举报
回复
带B的也不行,只是长度增加一倍而已!
是是非非
2005-05-27
打赏
举报
回复
错了,呵呵
是是非非
2005-05-27
打赏
举报
回复
用带B的函数
yfbaozi
2005-05-27
打赏
举报
回复
我用mid取的时候,如果取前20位(姓名字段占20位),因为汉字的关系,取出来的数据是错误的,比如每一行的len是17,而第二行是18。
yfbaozi
2005-05-27
打赏
举报
回复
比如下面是我所要取的文本中的一行,各个字段之间是无分隔符的,但是每个字段都是定长的,因此我一行行的读出来,用mid函数分成各个字段后写进库里,但问题是一个汉字占两个字符位,这样取出来的长度就不定了,我想知道怎么解决这个问题,在VB里我可以用strconv这个函数,但ASP里没有啊!
赵晓妹 5472630200405011800004466887华山路168号 44678302山东省
李平 5472630200405011800004466887泰山路45号甲 44678302山东省
leo963258
2005-05-27
打赏
举报
回复
处理什么汉字啊
你代码?
vb获取汉子拼音头
输入汉子字符串后,自动获取汉子字符串拼音头
GB和UTF网页源码采集器解决乱码
解决读取GB2312,UTF-8网页源码乱码问题,只要输入完整的网页地址,选择抓取方式即可得到无乱码的源码,程序引用了Microsoft.XMLHTTP
精彩编程与编程技巧-如何取得中英混合字符串的长度?...
精彩编程与编程技巧-如何取得中英混合字符串的长度? ...
[VB]常用
函数
(一)类型转换类
函数
1. CType(X) [格式]: P=CBool(X) ' 将X转换为"布尔"(Boolean)类型 P=CByte(X) ' 将X转换为"字节"(Byte)类型 P=CCur(X) ' 将X转换为"金额"(Currency)类型 P=CDate(X) ' 将X转换为"日期"(Date)类型 P=CDbl(X) ' 将X转换为"双精...
VB常用字符串
函数
1. ASC(X),Chr(X):转换字符字符码 [格式]: P=Asc(X) 返回字符串X的第一个字符的字符码 P=Chr(X) 返回字符码等于X的字符 [范例]: (1)P=Chr(65) ‘ 输出字符A,因为A的ASCII码等于65 (2)P=Asc(“A”) ‘ 输出65 2. Len(X): 计算字符
ASP
28,406
社区成员
356,946
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章