为什么lenb("为什么lenb")=14而不等于10?

三山客

为什么lenb("为什么lenb")=14而不等于10?

LucasLynn

以下是引用三山客在2006-5-20 22:25:00的发言：
为什么lenb("为什么lenb")=14而不等于10?

Unicode时代了。

三山客

真是深奥的Unicode......

andymark

中英文混合,可以用下面的方法换算

Dim Str As String

Str = "为什么lenb"
For i = 1 To Len(Str)

c = Asc(Mid(Str, i, 1))
If c >= 0 And c < 128 Then
   Len2 = Len2 + 1 '计算英文
Else
   Len2 = Len2 + 2 '计算中文
End If
Next i

MsgBox Len2

fan0217

为方便你使用，将andymark提供的方法改成了函数。
Function myLen(strString As String) As Integer
Dim intNum As Integer
Dim i As Integer
For i = 1 To Len(strString)
    intNum = Asc(Mid(strString, i, 1))
        If intNum >= 0 And intNum < 128 Then
           myLen = myLen + 1 '计算英文
        Else
           myLen = myLen + 2 '计算中文
        End If
Next
End Function