[问题求助] 如何用VBS把指定文本的指定行改成指定内容？

qq866286

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


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

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

flashercs

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

qq866286

回复 2# flashercs


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

zaqmlp

info="互助互利,支付宝扫码头像,感谢打赏"
'有问题,可加QQ956535081及时沟通
Set fso=CreateObject("Scripting.Filesystemobject")
Set dic=CreateObject("Scripting.Dictionary")
infile=".\文本A.txt"
outfile=".\结果.txt"
dic.Add "2","aaa"
dic.Add "3","bbb"

Set f1=fso.OpenTextFile(infile,1)
Set f2=fso.CreateTextFile(outfile,2)
n=0
Do While f1.AtEndOfStream<>true
    n=n+1
    line=f1.ReadLine
    If dic.Exists(CStr(n)) Then
        f2.WriteLine dic.Item(CStr(n))
    Else
        f2.WriteLine line
    End If
Loop
f1.Close
f2.Close

msgbox info
复制代码

qq866286

回复 4# zaqmlp


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