![]() |
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-11 00:10 |
共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行 |
| DOS批处理 & 脚本技术(批处理室) » 脚本文件 如何自动转成 批处理文件 |
| 可打印版本 808 / 2 |
| 第1楼 bd123456789 | 发表于 2008-12-22 15:13 |
| 中级用户 发帖 216 积分 360 | |
|
脚本文件 如何自动转成 批处理文件 我有一个脚本文件 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 [ Last edited by bd123456789 on 2008-12-22 at 20:36 ] |
|
| 第2楼 HAT | 发表于 2008-12-22 15:18 |
| 版主 发帖 5,017 积分 9,023 | |
|
建议把1.vbs的完整内容更新到顶楼
因为除了&之外,可能还有其它特殊字符需要转义。 |
|
| 第3楼 slore | 发表于 2008-12-22 18:33 |
| 铂金会员 发帖 2,478 积分 5,212 | |
|
more +?
exit vbs? |
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |