推荐订阅源

'引用Microsoft VBScript Regular Expressions 1.0
'统计单词出现次数
Private Function TongJi(ByVal T_txt As String) As Long
    Dim cnt As Long
    Dim re As RegExp
    Dim mhs As MatchCollection
    Set re = New RegExp
    re.IgnoreCase = False
    re.Global = True
 
    Dim strLine As String

    Open "C:\1.log" For Input As #1
    
    Do Until EOF(1)
        Line Input #1, strLine
        re.Pattern = T_txt
        Set mhs = re.Execute(strLine)
        cnt = cnt + mhs.Count
    Loop
    
    Close #1

     TongJi = cnt
End Function

Private Sub Command1_Click()
    Dim e As Long
    e = TongJi(Text1.Text)
    Cls
    
    List1.AddItem Text1.Text & " 出现过： " & e & " 次"
    
End Sub