28,390
社区成员
发帖
与我相关
我的任务
分享求一段算字符长度的代码
要求非常简单,求一段算字符串长度的代码.
一个字节的字符算1,两个字节的字符算2
如:
1234 = 4
1个字 = 5
二个字 =6
一个字节的字符算1,两个字节的字符算2
如:
1234 = 4
1个字 = 5
二个字 =6
...全文
请发表友善的回复…
发表回复
邦迪代驾 2006-06-10
- 打赏
- 举报
len是字符串内字符的数目
lenb是字符串的字节数
lenb是字符串的字节数
cqq 2006-06-10
- 打赏
- 举报
Function CheckStringLength(txt)
txt=trim(txt)
x = len(txt)
y = 0
for ii = 1 to x
if asc(mid(txt,ii,1))<0 or asc(mid(txt,ii,1))>255 then
y = y + 2
else
y = y + 1
end if
next
CheckStringLength = y
End Function
txt=trim(txt)
x = len(txt)
y = 0
for ii = 1 to x
if asc(mid(txt,ii,1))<0 or asc(mid(txt,ii,1))>255 then
y = y + 2
else
y = y + 1
end if
next
CheckStringLength = y
End Function
hainanfz 2006-06-10
- 打赏
- 举报
len(text)
