中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 初学VBS帮看看这个代码那地方错了（已解决）

beeny
初级用户

积分 136
发帖 49
注册 2007-1-4
状态离线

『楼主』: 初学VBS帮看看这个代码那地方错了（已解决）

dim fso,f1,f2,f3,f4,i,str
set fso=createobject("scripting.filesystemobject")
f1=fso.CreateTextFile("8899.txt")
f2=fso.CreateTextFile("8806.txt")
f3=fso.CreateTextFile("8835.txt")
f4=fso.CreateTextFile("8869.txt")

for i = 1 to 999
str="000" & i
str=right(str,3)
f1.writeline("8899" & str)
f2.writeline("8806" & str)
f3.writeline("8835" & str)
f4.writeline("8869" & str)
next
f1.close
f2.close
f3.close
f4.close
set fso=nothing

[ Last edited by beeny on 2008-2-28 at 12:09 PM ]

附件 1: 1.JPG (2008-2-27 22:31, 12.61 K,下载次数： 2)

2008-2-27 22:29

abcd
银牌会员

积分 1436
发帖 739
注册 2007-10-11
状态离线

『第 2 楼』:

f1=fso.CreateTextFile("8899.txt")
      f2=fso.CreateTextFile("8806.txt")
      f3=fso.CreateTextFile("8835.txt")
      f4=fso.CreateTextFile("8869.txt")

少set

此帖被 +2 点积分点击查看详情

2008-2-27 23:27

(470237592)

regvip2008
初级用户

积分 187
发帖 87
注册 2007-10-23
状态离线

『第 3 楼』:

楼上正解！

2008-2-28 10:26

beeny
初级用户

积分 136
发帖 49
注册 2007-1-4
状态离线

『第 4 楼』:

哦对了！真是的！太大意了，找了半天就是找不到那个地方错了！

2008-2-28 12:08

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: