摘要： '引用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... 阅读全文