[文本处理] 批处理怎样把TXT批量替换重命名？

dreamerhgr

1.txt

内容 [a] ####[b] ####[c]

1.xls

包含列a 列b 列c

如何批量替换 生成 a1.txt
内容 [a1] ####[b1] ####[c1]


a2.txt
内容 [a2] ####[b2] ####[c2]

...................

an.txt
内容 [an] ####[bn] ####[cn]

dreamerhgr

没人回吗？

yiwuyun

老实说，没看懂。

Dim objExcel
strPath=Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\"))
Set objExcel=CreateObject("Excel.Application")
objExcel.WorkBooks.Open(strPath&"1.xls")
objExcel.DisplayAlerts=false
objExcel.visible=false
objExcel.SheetsInNewWorkBook=2
row=1
do until objExcel.Workbooks(1).WorkSheets(1).Cells(row,1).value=""
    WriteToFile objExcel.Cells(row,1),objExcel.Cells(row,2),objExcel.Cells(row,3)
    row=row+1 
loop

objExcel.ActiveWorkBook.Close
Set objExcel=Nothing
objExcel.Quit()


Sub WriteToFile(col1,col2,col3)
Dim objFSO
Set objFSO=WScript.CreateObject("Scripting.FileSystemObject")
Set f=objFSO.CreateTextFile(strPath&col1&".txt",True)
f.WriteLine("["+col1+"]"+"####"+"["+col2+"]"+"####"+"["+col3+"]")
f.Close
Set f=Nothing
Set objFSO=Nothing
End Sub
复制代码

DAIC

代码是严重依赖原始文件格式的，你把两个文件压缩一下传上来，不要自己瞎编数据。