将以下代码保存为VBS文件,修改相应目录C:\12为放txt文件的目录,修改相应的关键词,双击执行即可。- Dim fso,fo,file
- str1="孤寂之狼"
- A="97言情小说网"
- B="free97.cn"
- str2="收藏此书加入书签"
- Set fso=CreateObject("scripting.filesystemobject")
- Set re=New RegExp
- re.Global=True
- Set file=fso.GetFolder("c:\12\").Files
- For Each f In file
- aa=Right(f.Path,3)
- If Right(f.Path,3)="txt" then
- txt=fso.OpenTextFile(f.Path).ReadAll
- re.Pattern="[\s\S]*"&str1&"([\s\S]+)"&str2&"[\s\S]*$"
- txt1=re.Replace(txt,"$1")
- re.Pattern=A&".+"&B&"[\s\S]{2}"
- txt1=re.Replace(txt1,"")
-
- fso.OpenTextFile(f.Path,2,True).Write txt1
- End if
- Next
- MsgBox "已完成!",vbOKOnly,"完成"
复制代码
|