中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]请高手指点此代码为何不能生成bat文件

learner0
初级用户

积分 108
发帖 49
注册 2008-2-26
状态离线

『楼主』: [求助]请高手指点此代码为何不能生成bat文件

On Error Resume next
Dim str1,str2,str3,cnt
str1="$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $"
str2="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 1 2 3 4 5 6 7 8 9"
str3="@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @"
cnt=0
While cnt<4
cnt=cnt+1
str1=str1&vbCrLf&str2&vbCrLf&str3
Wend
Set cnt=Nothing
MsgBox str1,vbInformation,"vbscript application"
Set str1=Nothing
Set str2=Nothing
Set str3=Nothing
Call write_dat("e:\my.bat")

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

2008-4-22 23:24