Question

求问vb6.0中如何实现文本框中的段落数，字符数，字母数，和数字个数的统计

Answer 1

'用正规表达式对象操作
'首选引用 Microsoft VBScript Regular Expressions 5.5 库
'放1个文本框,4个按钮
Dim regEx As New RegExp
Private Sub Form_Load()
    regEx.Global = True
    regEx.MultiLine = True
    regEx.IgnoreCase = True
End Sub
Private Sub Command1_Click() '统计行数
    regEx.Pattern = "$"
    MsgBox "行数：" & regEx.Execute(Text1.Text).Count
End Sub
Private Sub Command2_Click() '统计数字
    regEx.Pattern = "\d"
    MsgBox "数字：" & regEx.Execute(Text1.Text).Count
End Sub
Private Sub Command3_Click() '统计字母
    regEx.Pattern = "[a-z]"
    MsgBox "字母数：" & regEx.Execute(Text1.Text).Count
End Sub
Private Sub Command4_Click() '统计总字符数
    MsgBox "字符数：" & Len(Text1.Text)
End Sub

Answer 2

思路：
可以使用VB6中的Instr()函数，来查找关键的内容；
1，找段落，就是找回车、换行符号，VB用常量符号 VbCrlf来表示。
2，找字符数，直接用函数Len()
3，找字母数，使用Asc()函数，字母的ASCII码的范围：大写字母65-90，小写字母97-122。
4，找数字，使用Asc()函数，数字的ASCII码的范围：48-57。