[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] [已解决]VBS如何创建txt文本文件并写入内容,再复制和编辑?

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

VBScript  初学   
现在实现一个   C盘 创建一个txt文件  并写入
拷贝到D盘   命名另外一个文件  并编辑内容
在每一行  后面添加几个“+”号              各位大哥大姐帮忙看看哪里错了     现在的结果是D盘文件没变化
  1. Const forreading=1,forwriting=2,forappending=8
  2. Dim fso,m,file,reg,s
  3. data="hello,world"
  4. data2="hello,world++++"
  5. set fso =createObject("scripting.filesystemobject")
  6. set m=fso.OpenTextFile("c:\textx1.txt",2,true)
  7. m.writeline data
  8. m.WriteLine data
  9. m.writeline data
  10. m.writeline data
  11. call fso.copyfile("c:\textx1.txt","d:\texty1.txt")
  12. set file=fso.OpenTextfile("d:\texty1.txt")
  13. s= file.ReadAll
  14. file.Close
  15. s=Replace(s,"hello,world","hello,world++++")
  16. m.Close
  17. file.close
  18. Set m=Nothing
  19. Set file=Nothing
  20. Set fso=nothing
复制代码
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

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

回复 1# wsxfysz

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

1

评分人数

TOP

回复 2# Nsqs


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

TOP

返回列表