高考问答武侠动画剧本:VB中怎样获得字符串确切的长度
来源：百度文库 编辑：高考问答 时间：2024/05/09 07:45:59
LEN函数是不分中英文字符都算两字节的,有没有什么办法取得字符串真正的长度,就是让英文半角字符长度为1B,而中文字符为2B,返回字节数.谢谢大家
LenB不可以，他把所有的字符全部按照2字节处理！
LenB不可以，他把所有的字符全部按照2字节处理！
function RealLen(txt)
dim x,y,i
x = len(txt)
y = 0
for i = 1 to x
if asc(mid(txt,i,1))<0 or asc(mid(txt,i,1))>255 then
y = y + 2 '双字节
else
y = y + 1 'ascii码字符
end if
next
RealLen=y
end function
用LenB函数
VB:LENB()
PB:LENW()