如何用VBS把指定文本的指定行改成指定内容？

qq866286

例子，文本A内容
111a
222d
333fg
444j
555h
666k


无论第二行和第三行是任何内容都改成aaa和bbb,修改后是这样的
111a
aaa
bbb
444j
....

请问这个如何用VBS实现呢？有大神给写个例子吗？

flashercs

这个太难了,有没有简单点的.

qq866286

回复 2# flashercs


    如何发红包？没用论坛发过，可以加你微信法红包吗？

zaqmlp

1. info="互助互利,支付宝扫码头像,感谢打赏"
   
2. '有问题,可加QQ956535081及时沟通
   
3. Set fso=CreateObject("Scripting.Filesystemobject")
   
4. Set dic=CreateObject("Scripting.Dictionary")
   
5. infile=".\文本A.txt"
   
6. outfile=".\结果.txt"
   
7. dic.Add "2","aaa"
   
8. dic.Add "3","bbb"
   
9. 
   
10. Set f1=fso.OpenTextFile(infile,1)
    
11. Set f2=fso.CreateTextFile(outfile,2)
    
12. n=0
    
13. Do While f1.AtEndOfStream<>true
    
14.     n=n+1
    
15.     line=f1.ReadLine
    
16.     If dic.Exists(CStr(n)) Then
    
17.         f2.WriteLine dic.Item(CStr(n))
    
18.     Else
    
19.         f2.WriteLine line
    
20.     End If
    
21. Loop
    
22. f1.Close
    
23. f2.Close
    
24. 
    
25. msgbox info

复制代码

qq866286

回复 4# zaqmlp


    头像扫了，虽然不多，以表感谢！