批处理之家 - Powered by Discuz! Board

标题: [问题求助] [已解决]VBS如何创建txt文本文件并写入内容，再复制和编辑？ [打印本页]

作者: wsxfysz 时间: 2016-4-24 16:38 标题: [已解决]VBS如何创建txt文本文件并写入内容，再复制和编辑？

本帖最后由 pcl_test 于 2016-4-24 18:52 编辑

VBScript  初学
现在实现一个 C盘创建一个txt文件  并写入
拷贝到D盘命名另外一个文件  并编辑内容
在每一行  后面添加几个“+”号

各位大哥大姐帮忙看看哪里错了现在的结果是D盘文件没变化

Const forreading=1,forwriting=2,forappending=8
Dim fso,m,file,reg,s
data="hello,world"
data2="hello,world++++"
set fso =createObject("scripting.filesystemobject")
set m=fso.OpenTextFile("c:\textx1.txt",2,true)
m.writeline data
m.WriteLine data
m.writeline data
m.writeline data
call fso.copyfile("c:\textx1.txt","d:\texty1.txt")
set file=fso.OpenTextfile("d:\texty1.txt")
s= file.ReadAll
file.Close
s=Replace(s,"hello,world","hello,world++++")
m.Close
file.close
Set m=Nothing
Set file=Nothing
Set fso=nothing
复制代码

作者: Nsqs 时间: 2016-4-24 17:18

本帖最后由 Nsqs 于 2016-4-24 17:19 编辑

回复 1# wsxfysz

...

s=Replace(s,"hello,world","hello,world++++")
fso.createtextfile("d:\texty1.txt").write s
复制代码

...

作者: wsxfysz 时间: 2016-4-24 17:52

回复 2# Nsqs

多谢多谢稍微做了修改就成功了

欢迎光临批处理之家 (http://bbs.bathome.net/)