如何判断字符是几个？

Question

例如：输入中国人3个字，自动判断它为3，输入ABCD，自动判断它为4，并保存在数据库中，
谢谢高手指教

Answer 1

或许我没理解透漏主的意思，Len(Text1.Text)不行吗？

Answer 2

?LenB(StrConv("abcd", vbFromUnicode))
 4 
?LenB(StrConv("计算机ab", vbFromUnicode))
 8 

Answer 3

Private Sub Text1_Change()
Data = Me.Text1.Text
    For x = 1 To Len(Data)                  ' Check total no. of Chinese word
        tmpchar = Mid(Data, x, 1)
'        If Asc(tmpchar) < 20 Or Asc(tmpchar) > 122 Then
'           TotalByte = TotalByte + 2
'        Else
           TotalByte = TotalByte + 1
'        End If    Next
    Debug.Print TotalByte
End Sub--------------
www.vicmiao.com
努力就有美好時光！

Answer 4

小弟试过了，LEN（）可以很好解决，基础差了呀，哎，谢谢各位大哥了

Answer 5

我还以为楼主要的是占位字符呢，幸好没贴！
yun

Answer 6

VB6 中 ，LEN 返回的是字符数，而不是字节。LEN 就可以满足楼主了