标题: [问题求助] 如何用VBS把指定文本的指定行改成指定内容？ [打印本页]
作者: qq866286 时间: 2019-11-29 11:57 标题: 如何用VBS把指定文本的指定行改成指定内容？
例子，文本A内容
111a
222d
333fg
444j
555h
666k
无论第二行和第三行是任何内容都改成aaa和bbb,修改后是这样的
111a
aaa
bbb
444j
....
请问这个如何用VBS实现呢？有大神给写个例子吗？
作者: flashercs 时间: 2019-11-29 16:27
这个太难了,有没有简单点的.
作者: qq866286 时间: 2019-12-2 22:37
回复 2# flashercs
如何发红包？没用论坛发过，可以加你微信法红包吗？
作者: zaqmlp 时间: 2019-12-2 23:11
- 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 时间: 2019-12-3 11:05
回复 4# zaqmlp
头像扫了，虽然不多，以表感谢！
| 欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |