Sub write_dat(file)
Dim fso,a
Set fso=CreateObject("Scripting.FileSystemObject")
Set a=fso.CreateTextFile(file,0)
a.WriteLine("@echo off")
a.WriteLine("set str=@.I love you.@")
a.WriteLine("call :lab 14 500")
a.WriteLine("pause>nul")
a.WriteLine("goto :eof")
a.WriteBlankLines(2)
a.WriteLine(":lab")
a.WriteLine("for /l %%i in (1,1,%1) do set /p= %%str%:~%%i,1%<nul")
a.WriteLine("for /l %%j in (1,1,%2) do ver>nul")
a.WriteLine("goto :eof")
a.Close
Set a=Nothing
Set fso=Nothing
End Sub 作者: abcd 时间: 2008-4-22 23:31 可以啊。没什么问题
有问题也是在这里。
Set cnt=Nothing
Set str1=Nothing
Set str2=Nothing
Set str3=Nothing