本帖最后由 apang 于 2013-1-28 13:06 编辑
保存为test.vbs,试试- QQ = "苹果(12345678)"
- fName = "聊天记录.txt"
- ReDim ar(0)
- Set FSO = CreateObject("Scripting.FileSystemObject")
- Set File = FSO.OpenTextFile(fName)
- Do Until File.AtEndOfStream
- Text = File.ReadLine
- If TestLine Then i = i + 1 :ReDim PreServe ar(i)
- ar(i) = ar(i) & Text & vbCrLf
- Loop
-
- For i = 1 to UBound(ar)
- if Instr(ar(i),QQ) <> 0 Then
- FSO.OpenTextFile("Result.txt",8,True).Write ar(i)
- End If
- Next
- CreateObject("Wscript.Shell").Run "Notepad Result.txt"
-
- Function TestLine
- Set Re = New Regexp
- Re.Global = True
- Re.Pattern = "^\d{4}-\d{2}-\d{2}.*\(\d+\)$"
- TestLine = Re.Test(Text)
- End Function
复制代码
|