[文本处理] [已解决]批处理提取指定qq号码的qq群聊天记录的内容,顺祝新年快乐

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
复制代码

gawk -v RS= "/(12345678)/" 聊天记录.txt >b.txt
复制代码