'用到了正则表达式，用到了字典Option ExplicitPrivate Sub Command1_Click()Dim reg As RegExpDim W As New DictionaryDim Words As StringDim ResultDim iNumwords As LongDim sNumwords As LongDim sTotal As Long '双字节字符Dim iTotal As Long '中文字符Dim eTotal As Long '英文字符Dim otherTotal As LongDim bTotal As LongDim inum As LongDim i As LongDim c As StringSet reg = New RegExpreg.IgnoreCase = False '区别大小写reg.Global = Truereg.MultiLine = Truereg.Pattern = "[\u4e00-\u9fa5]"Words = Text1For i = 1 To Len(Words)c = Mid(Words, i, 1)If reg.Test(c) ThenIf Not IsNumeric(c) TheniNumwords = iNumwords + 1If Not W.Exists(c) Then W.Add c, 1End IfiTotal = iTotal + 1End IfNextFor i = 1 To Len(Words)If Mid(Words, i, 2) = vbCrLf TheneTotal = eTotal + 1i = i + 1Elsereg.Pattern = "[^\x00-\xff]"c = Mid(Words, i, 1)If reg.Test(c) ThenIf Not IsNumeric(c) ThensNumwords = sNumwords + 1End IfsTotal = sTotal + 1ElseeTotal = eTotal + 1End Ifreg.Pattern = "[0-9]"If reg.Test(c) Theninum = inum + 1End IfEnd IfNextDim zhongwen As LongDim zbiaodian As LongDim zhongwenbiaodian As LongDim yingwen As LongDim shuzi As Longzhongwen = iTotalzbiaodian = sTotal - iTotalzhongwenbiaodian = sTotalyingwen = eTotalshuzi = inumText2 = ""Text2 = "汉字：" & zhongwen & " 个" & vbCrLfText2 = Text2 & "中文标点：" & zbiaodian & " 个" & vbCrLfText2 = Text2 & "汉字+标点：" & zhongwenbiaodian & " 个" & vbCrLfText2 = Text2 & "英文：" & yingwen & " 个 （含英文状态下的数字、符号、标点）" & vbCrLfText2 = Text2 & "数字：" & shuzi & " 个" & vbCrLfText2 = Text2 & "字符总数：" & iTotal * 2 + (sTotal - iTotal) * 2 + eTotal & "个字符" & vbCrLfEnd SubPrivate Sub Form_Load()If Mid(Text1, Len(Text1) - 1) = vbCrLf ThenText1 = Mid(Text1, 1, Len(Text1) - 2)End IfEnd Sub
