取字符串长度

Question

我知道API中有一函数可以取包括汉字在内的准确的字符个数，但不知道是哪一个，请告之，最好有例子。谢谢！

Answer 1

不用API函数,直接调用下面的函数就可以了
Public Function uLen(ByVal strBuf As String) As Long
    Dim i As Long
    Dim lngLen As Long
    Dim lngULen As Long
    
    lngLen = Len(strBuf)
    For i = 1 To lngLen
        ''判断该字符是否为汉字.
        ''如果是汉字,那么该字符的高8位为1
        If Asc(Mid(strBuf, i, 1)) And &H80 Then   
            lngULen = lngULen + 1
        End If
        lngULen = lngULen + 1
    Next
    uLen = lngULen
End Function

Answer 2

len("你好ABC") = 5
uLen("你好ABC") =7