求串长度问题

leijiqiang

dim a as string
a = "Abc中国def"
如何能得到字节数为10?

我要不得到长度8,要不通过lenb得到16,在C中A串的字节数是为10的,我在VBA中如何获得

liwen

作 者：朱亦文
发布日期：2004年2月24日
摘 要：在汉字显示时，一个汉字占了2个英文字母的宽度，而以Len求长度时，1个汉字返回1，1个英文字母也返回1，由于ACCESS中使用的是UniCode编码，故此LenB则会返回2，例如en("中国ACCESS")=8,LenB("中国ACCESS")=16，而实际上“中国ACCESS”在屏幕上只占了10英文字母的宽度，那么如何来求取这个数值呢？

正 文：


Public Function chkGb(strGB As String) As Integer
　 Dim ByteGB() As Byte
　 ByteGB = StrConv(strGB, vbFromUnicode)
　 chkGb = UBound(ByteGB) + 1
End Function

文章出处：http://www.diybl.com/course/7_da ... /2007614/51293.html

ACMAIN_CHM

首先 "a" 并不是只占一个字节。在UNICODE中字符同样也是两个字节。

所以只能你自己写一个函数进行判断了。

liwen

lenb(strconv("Abc中国def",vbFromUnicode))

leijiqiang

非常感谢各位版主,非常清楚,受教