我晕,是用批处理,刚留位置后,写成个VB的了,不过我这个支持长文件名路径,呵呵
下面代码保存为处理.vbs也可以运行
FolderPath=inputbox("输入处理的文件夹","输入处理的文件夹")
'FolderPath="F:\新建文件夹"
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(FolderPath)
set files=folder.files
for each fl in files
if right(fl,4)=".txt" Then
filename=fl
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(filename, 1)
strContents = objFile.ReadAll
objFile.Close
If cbool(instr(strContents,"CDE")) And cbool(instr(strContents,"FGH")) Then
arrpath1=split(strContents,"CDE")
arrpath2=split(strContents,"FGH")
arrpath3=arrpath1(0)&chr(10)&arrpath2(1)
Set fso=CreateObject("Scripting.FileSystemObject")
Set File=fso.OpenTextFile(filename, 2,Ture)
File.WriteLine(arrpath3)
File.Close
End If
end If
Next
MsgBox("成功!")
温馨提示:答案为网友推荐,仅供参考