如何在vb里获得字符串的字节数，要区分字母和汉字

Question

lenb()函数就可以得到字符串的字节数，但不管是汉字还是英文字符均为两个字节。用以下程序可以对汉字和英文字符进行区分。x="基本原则中asdfasdfasdfasdfasd"
n=len(x)
p=0
for i=1 to n
    y=mid(x,i,1)
    if asc(y)>0 then
       p=p+1
    else
       p=p+2
    endif
next i
P就是字符串X的字节数。
----------------------------------
能够对您有所帮助是我最大的快乐！！！

Answer 1

'取得字符串的字节数，中文和全角字符占两个字节
Function LenX(ByVal Text As String) As Long    Dim b() As Byte
    Dim i As Long
    Dim l As Long
    
    b = Text: l = 0
    For i = 0 To UBound(b)
        If b(i) Then l = l + 1
    Next i
    Erase b
    LenX = l
End Function

Answer 2

我同意wjying(葡萄)　的方法，这才识最好的解决方法

Answer 3

用API函数。给分呵呵'计算中英文混合字串的长度 调用的叙述应如下:(Chr(0)为字符串结束标记一定要加入)'
'n = lstrlen("中英Mixed" + Chr(0))'Print n ' n 将等于 9
Declare Function lstrlen Lib "Kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long