中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-07 15:19 |
共 48,041 主题排行 / 350,128 发帖 / 今日 3 篇 / 48,252 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » 初学VBS帮看看这个代码那地方错了（已解决） |
| 可打印版本 696 / 3 |
| 第1楼 beeny | 发表于 2008-02-27 22:29 |
| 初级用户 发帖 49 积分 136 | |
|
初学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.JPG (12.61 KiB) |
|
| 第2楼 abcd | 发表于 2008-02-27 23:27 |
| 银牌会员 发帖 739 积分 1,436 | |
|
f1=fso.CreateTextFile("8899.txt")
f2=fso.CreateTextFile("8806.txt") f3=fso.CreateTextFile("8835.txt") f4=fso.CreateTextFile("8869.txt") 少set |
|
| 第3楼 regvip2008 | 发表于 2008-02-28 10:26 |
| 初级用户 发帖 87 积分 187 | |
|
楼上正解！
|
|
| 第4楼 beeny | 发表于 2008-02-28 12:08 |
| 初级用户 发帖 49 积分 136 | |
|
哦对了！真是的！太大意了，找了半天就是找不到那个地方错了！
|
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |