[已解决]批处理如何实现指定行数内容替换？

逆流而上的熊猫

e盘a.txt中指定的某一行，比如名称=1,2,3  b文本在d盘，b.txt中也有 名称=4,5,6  怎么把a的名称后面的内容123 替换到b文本 的456去呢 求大神！！要原来文本所在的路劲不变，不生成新的txt文本，在b文本里面直接改。并且在系统启动的时候启动项里面 可以自动运行的 谢谢

逆流而上的熊猫

大神都去哪里啦。。。。

pcl_test

VBS

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. Function Checkstr(file)
   
3. Set f = fso.OpenTextFile(file, 1)
   
4. word="名称"
   
5. Set re = New RegExp
   
6. re.Pattern = word&"=.+"
   
7. re.IgnoreCase = True
   
8. re.Global = True
   
9. Set matches = re.Execute(f.ReadAll)
   
10. Checkstr=""
    
11. For Each match in matches
    
12. Checkstr=Checkstr&match
    
13. Next
    
14. set re = nothing
    
15. f.Close
    
16. End Function
    
17. str1 = Checkstr("E:\a.txt")
    
18. str2 = Checkstr("D:\b.txt")
    
19. Set f1 = fso.OpenTextFile("D:\b.txt", 1)
    
20. str = Replace(f1.ReadAll,str2,str1)
    
21. f1.Close
    
22. Set f2 = fso.OpenTextFile("D:\b.txt", 2)
    
23. f2.WriteLine str
    
24. f2.Close

复制代码

pcl_test

如果问题已解决，请在标题最前面标上[已解决]
http://www.bathome.net/thread-3473-1-1.html

逆流而上的熊猫

回复 4# pcl_test


    谢谢大牛！很好用！