批处理怎样把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

老实说，没看懂。

1. 
   
2. Dim objExcel
   
3. strPath=Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,""))
   
4. Set objExcel=CreateObject("Excel.Application")
   
5. objExcel.WorkBooks.Open(strPath&"1.xls")
   
6. objExcel.DisplayAlerts=false
   
7. objExcel.visible=false
   
8. objExcel.SheetsInNewWorkBook=2
   
9. row=1
   
10. do until objExcel.Workbooks(1).WorkSheets(1).Cells(row,1).value=""
    
11.     WriteToFile objExcel.Cells(row,1),objExcel.Cells(row,2),objExcel.Cells(row,3)
    
12.     row=row+1
    
13. loop
    
14. 
    
15. objExcel.ActiveWorkBook.Close
    
16. Set objExcel=Nothing
    
17. objExcel.Quit()
    
18. 
    
19. 
    
20. Sub WriteToFile(col1,col2,col3)
    
21. Dim objFSO
    
22. Set objFSO=WScript.CreateObject("Scripting.FileSystemObject")
    
23. Set f=objFSO.CreateTextFile(strPath&col1&".txt",True)
    
24. f.WriteLine("["+col1+"]"+"####"+"["+col2+"]"+"####"+"["+col3+"]")
    
25. f.Close
    
26. Set f=Nothing
    
27. Set objFSO=Nothing
    
28. End Sub
    

复制代码

DAIC

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