7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
viena 2006-09-21
- 打赏
- 举报
没有编码转换，转为byte数组然后遍历，如果有为0的，说明是单字节字符，长度-1
viena 2006-09-21
- 打赏
- 举报
我觉得我的方法比1楼的效率会高一些
但也不能肯定，没有自信了
但也不能肯定，没有自信了
viena 2006-09-21
- 打赏
- 举报
dim length as integer = len(str)
dim 你说的长度 as integer = length * 2
dim arr() as byte = str
dim i as integer
for i=0 to ubound(arr)
if arr(i)=0 then 你说的长度 = 你说的长度 - 1
next
很久不写VB6了，不知道写得对不对，呵呵~
dim 你说的长度 as integer = length * 2
dim arr() as byte = str
dim i as integer
for i=0 to ubound(arr)
if arr(i)=0 then 你说的长度 = 你说的长度 - 1
next
很久不写VB6了，不知道写得对不对，呵呵~
viena 2006-09-21
- 打赏
- 举报
晕，这也叫有难度~
xiaomaoaa 2006-09-21
- 打赏
- 举报
xiexie
wully 2006-09-21
- 打赏
- 举报
LenB(StrConv(String, vbFromUnicode))
zq972 2006-09-21
- 打赏
- 举报
LenB(StrConv(str, vbFromUnicode))
