Office中国论坛/Access中国论坛

标题: 如何能够计算字符串里英文字母和中文字符的数量 [打印本页]

作者: duoxiqi 时间: 2006-11-22 19:44
标题: 如何能够计算字符串里英文字母和中文字符的数量
请教各位大侠：如何计算字符串里英文字母和中文字符的数量各是多少？例如“ABCD中国”如何计算英文字母的字符数为4个、中文字符数为2个？[em01]

作者: duoxiqi 时间: 2006-11-24 06:17
请版主及各位高手不要吝啬指点一下哈，真心求教！

[此贴子已经被作者于2006-11-23 22:19:25编辑过]

作者: baije 时间: 2006-11-27 05:19
Dim a As String, b As Long, c As Long, D As Long, E As Long, f As Long, g As Long, h As Long
b = 0
E = 0
f = 0
c = 0
a = Me.文本1

For i = 1 To Len(a)
D = Asc(Mid(a, i, 1))
      If D < 0 Then                   '中文
         b = b + 1
      ElseIf D > 64 And D <= 90 Then       '大写字母
         c = c + 1
      ElseIf D > 96 And D < 123 Then       '小写字母
         E = E + 1
      ElseIf D > 47 And D < 58 Then       '数字
         f = f + 1
      End If
Next i

h = Len(a) - b - c - E - f             '其它，如空格，半角标点
MsgBox "总共有" & Len(a) & "个字符，中文" & b & "个，英文大写" & c & "个，英文小写" & E & "个，数字" & f & "个，其它" & h & "个"
End Sub

作者: duoxiqi 时间: 2006-11-28 17:54
多谢baijie帮我解决了多天的困扰，感谢你这种乐于助人的精神，向你学习！！！

也希望斑竹及众多高手们多向他学习，学习他的精神。。。。。[em07]

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