Office中国论坛/Access中国论坛

标题: 为什么lenb("为什么lenb")=14而不等于10? [打印本页]

作者: 三山客 时间: 2006-5-21 06:25
标题: 为什么lenb("为什么lenb")=14而不等于10?
为什么lenb("为什么lenb")=14而不等于10?

作者: LucasLynn 时间: 2006-5-21 06:43

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

Unicode时代了。

作者: 三山客 时间: 2006-5-21 06:55
真是深奥的Unicode......

作者: andymark 时间: 2006-5-21 07:37
中英文混合,可以用下面的方法换算

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 时间: 2006-5-21 07:55
为方便你使用，将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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)