这里写自定义目录标题
’ 欲计算字串 S 的长度
N = 0
For I = 1 To Len(S)
C = Asc(Mid(S, I, 1)) ’ 取得第 I 个字符组的字符码
If C >= 0 And C <128 Then ’ 英文
N = N + 1
Else ’ 中文
N = N + 2
End If
Next
看起来程序有点罗唆, 如果您不喜欢这个方法, 可以使用 Windows API 的 lstrlen 函数, 假设假计算 S 的长度, 则 API 声明式如下:
Private Declare Function lstrlen Lib “kernel32” Alias “lstrlenA” (ByVal lpString As String) As Long
而调用的叙述则是:
n = lstrlen(“中英Mixed” + Chr(0))
Print n ’ n 将等于 9
请注意调用 lstrlen 时必须加上 Chr(0), 因为此一函数是根据 Chr(0) 来判断字串的结束