asp len取得中文字符串长度的问题
我用len("中午")这样来取得这个字符串长度,会报错,不知道这个问题该怎么解决呢,希望谁能帮一下,谢谢了...
我用len("中午")这样来取得这个字符串长度,会报错,不知道这个问题该怎么解决呢,希望谁能帮一下,谢谢了
展开
3个回答
展开全部
'**************************************************
'函数名:strLength
'作 用:求字符串长度。汉字算两个字符,英文算一个字符。
'参 数:str ----要求长度的字符串
'返回值:字符串长度
'**************************************************
Function strLength(str)
ON ERROR RESUME NEXT
dim WINNT_CHINESE
WINNT_CHINESE = (len("中国")=2)
if WINNT_CHINESE then
dim l,t,c
dim i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
End if
next
strLength=t
Else
strLength=len(str)
End if
if err.number<>0 then err.clear
End Function
一个汉字算2个字节
'函数名:strLength
'作 用:求字符串长度。汉字算两个字符,英文算一个字符。
'参 数:str ----要求长度的字符串
'返回值:字符串长度
'**************************************************
Function strLength(str)
ON ERROR RESUME NEXT
dim WINNT_CHINESE
WINNT_CHINESE = (len("中国")=2)
if WINNT_CHINESE then
dim l,t,c
dim i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
End if
next
strLength=t
Else
strLength=len(str)
End if
if err.number<>0 then err.clear
End Function
一个汉字算2个字节
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询