标题: [文本处理] [已解决]批处理提取指定qq号码的qq群聊天记录的内容,顺祝新年快乐 [打印本页]
作者: echobat 时间: 2013-1-27 23:42 标题: [已解决]批处理提取指定qq号码的qq群聊天记录的内容,顺祝新年快乐
因为查资料记得在一个qq群聊天记录里面,但是一页一页的翻不好好!所以我就将qq群聊天记录导出为txt文本文件命名:聊天记录.txt
现在要做的就是将特定qq号码的那个人的聊天记录提取出来放在另外一个txt里面!下面是qq群聊天记录的内容格式,随便选了一点
比如只要截取 苹果(12345678)的聊天记录,主要qq聊天记录是是换行的,聊天内容在人物下面,假如不换行,批处理不换行很简单,用findstr "12345678" 聊天记录.txt >b.txt
2010-11-05 11:11:31 苹果(12345678)
你今天不要来了
2010-11-05 11:11:34 香蕉(34543243)
[表情]
2010-11-05 11:11:32 朱荃(5643543)
又不是很贵的东西,可以参考的啊
2010-11-05 11:11:41 苹果(12345678)
记得以前你也这么说的
2010-11-05 11:11:45 泪月(1321344)
俺属气管炎类型[图片]
谢谢各位!
作者: echobat 时间: 2013-1-28 10:07
有人帮我看一下吗
谢谢
作者: echobat 时间: 2013-1-28 11:31
日渐理清啊
都返乡过年了吗
作者: apang 时间: 2013-1-28 12:43
本帖最后由 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
复制代码
作者: BAT-VBS 时间: 2013-1-28 13:28
- gawk -v RS= "/(12345678)/" 聊天记录.txt >b.txt
复制代码
http://www.bathome.net/thread-1114-1-1.html
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |