中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 脚本文件如何自动转成批处理文件

bd123456789
中级用户

积分 360
发帖 216
注册 2007-5-29
状态离线

『楼主』: 脚本文件如何自动转成批处理文件

我有一个脚本文件 1.vbs
内容是
msgbox "111 & 333" & "222&333"
现在我放在批处理中生成(手动)
即找到没有被引号引到的&,在前面加 ^
>>test.vbs echo msgbox "111 ^& 333" & "222&333"

现在我的代码中有许多这样的脚本代码,如何自动加转义符??

主要目的是批处理自动生成脚本文件后再执行,精简文件个数,且方便调用..

例:
CONST TEMPORARY_INTERNET_FILES = &H20&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path & "/*.*"
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(strPath)

或创建快捷方式并网页链接.vbs

      set WshShell = WScript.CreateObject("WScript.Shell")
      strDesktop = WshShell.SpecialFolders("Desktop")
      set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk")
      oShellLink.TargetPath = WScript.ScriptFullName
      oShellLink.WindowStyle = 1
      oShellLink.Hotkey = "Ctrl+Alt+e"
      oShellLink.IconLocation = "notepad.exe, 0"
      oShellLink.Description = "Shortcut Script"
      oShellLink.WorkingDirectory = strDesktop
      oShellLink.Save
      set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Microsoft Web Site.url")
      oUrlLink.TargetPath = "http://www.baidu.com/s?kw=&sc=web&cl=3&tn=sitehao123&ct=0&rn=&lm=&ie=gb2312&rs2=&myselectvalue=&f=&pv=&z=&from=&word=%B2%BB%C0%CF%B5%C4%B4%AB%CB%B5"
      oUrlLink.Save

set WshShell = WScript.CreateObject("WScript.Shell")

         strDesktop = WshShell.SpecialFolders("Desktop")

         set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk")

         oShellLink.TargetPath = WScript.ScriptFullName

         oShellLink.WindowStyle = 1

         oShellLink.Hotkey = "Ctrl+Alt+e"

         oShellLink.IconLocation = "notepad.exe, 0"

         oShellLink.Description = "Shortcut Script"

         oShellLink.WorkingDirectory = strDesktop

         oShellLink.Save

         set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Microsoft Web Site.url")

         oUrlLink.TargetPath = "http://www.baidu.com/s?kw=&sc=web&cl=3&tn=sitehao123&ct=0&rn=&lm=&ie=gb2312&rs2=&myselectvalue=&f=&pv=&z=&from=&word=%B2%BB%C0%CF%B5%C4%B4%AB%CB%B5"

         oUrlLink.Save

[ Last edited by bd123456789 on 2008-12-22 at 20:36 ]

2008-12-22 15:13