关于字符个数判断的问题！？

sxgaobo

A=我喜欢你
B=a2-4喜欢
len(A)=4
len(B)=6
可在打印时“我喜欢你”和“a2-4喜欢”占用的物理长度是一样的，如何能得出A的字符数和B的字符数都为8（汉字为双字节），或者用其他方法判断出其占用的物理长度一样啊！？

[ 本帖最后由 sxgaobo 于 2008-10-25 16:29 编辑 ]

tz-chf

我用论坛里的一个示例，在超市小票上用到过。

sxgaobo

能告诉我方法吗

sxgaobo

自己顶

sxgaobo

[:24] 帮忙啊大侠们！

Henry D. Sy

先判断有几个汉字

sxgaobo

麻烦指明怎么判断好吗？

Henry D. Sy

原帖由 sxgaobo 于 2008-10-27 13:58 发表
麻烦指明怎么判断好吗？

我只知道汉字的asc值为负数，但不知道asc值为负数的是不是一定是汉字。
你可以试试，大家共同探讨

Public Function ChnNum(strChnIn As String) As Long
    Dim I As Integer
    Dim lngTemp As Long
    For I = 1 To Len(strChnIn)
        If Asc(Mid(strChnIn, I, 1)) < 0 Then
            lngTemp = lngTemp + 1
        End If
    Next
    ChnNum = lngTemp
End Function

如果上面的函数是正确的
哪么，你的结果应该是
=Len(strChnIn)+ChnNum(strChnIn)

sxgaobo

谢谢！！！高手

glw

sub a
Dim ls1, ls2 As String
      ls1 = "a2-4喜欢"
       ls2 = StrConv(ls1, vbFromUnicode)         
  Debug.Print LenB(ls2)
end sub