[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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]

没人回吗?

TOP

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

TOP

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

TOP

返回列表