Board logo

标题: 初学VBS帮看看这个代码那地方错了(已解决) [打印本页]

作者: beeny     时间: 2008-2-27 22:29    标题: 初学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 KiB,下载次数: 2)



作者: abcd     时间: 2008-2-27 23:27
f1=fso.CreateTextFile("8899.txt")
f2=fso.CreateTextFile("8806.txt")
f3=fso.CreateTextFile("8835.txt")
f4=fso.CreateTextFile("8869.txt")

少set

作者: regvip2008     时间: 2008-2-28 10:26
楼上正解!

作者: beeny     时间: 2008-2-28 12:08
哦对了!真是的!太大意了,找了半天就是找不到那个地方错了!