中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [分享]vbs脚本打包

作者:

标题: [分享]vbs脚本打包

上一主题 | 下一主题

523066680
银牌会员

SuperCleaner

积分 2362
发帖 1133
注册 2008-2-2
状态离线

『楼主』: [分享]vbs脚本打包

我马甲的原文： hi.baidu.com/paktc/b ... 因个人需要而做的，通用性就没去想拉~ 写它的原因: 我喜欢把脚本用txt格式放在ys168网盘里(经常换地方上线，有网盘真好)，这样就可以直接打开-复制文本而不用另存。不过假如是几个脚本配合执行，或者有其他外部文件环境需要用到，那就又要压缩了，于是就做了曾经的: 批处理脚本打包工具 www.cn-dos.net/forum ... (回看后才想起来，该代码有个地方可以合并) 这次打算用vbs来一个，顺便修理一下，代码如下:

'#act#parcel.vbe
''ThisScriptParcel,code by paktc + if_exist + 523066680
:set fs=createobject("scripting.filesystemobject")
:set readme=fs.opentextfile(wscript.scriptname)
:act=0
:while readme.atendofstream=false
: linea=readme.readline
: if left(linea,6)=chr(39) &"#end#" then
:     act=0 : fnow.close
: end if
: if act=1 then
:     fnow.writeline mid(linea,2)
: end if
: if left(linea,6)=chr(39) &"#act#" then
:     act=1 
:     set fnow=fs.createtextfile(mid(linea,7),true)
: end if
:wend
'wscript.quit
'#end#parcel.vbe
fold=replace(wscript.scriptfullname,wscript.scriptname,"")
set parcel=fs.opentextfile("parcel.vbe",8)
strx=""
format="txt,vbs,bat"
for each fname in fs.getfolder(fold).files
if replace(format,lcase(right(fname,3)),"")<>format then
if replace(fname,wscript.scriptname,"")=fname then
    strx=strx& fname &vbcrlf
    set readx=fs.opentextfile(fname)
    parcel.writeline chr(39) &"#act#"&fs.getfilename(fname)
    parcel.writeline chr(39) &replace(readx.readall,vbcrlf,vbcrlf &chr(39))
    parcel.writeline chr(39) &"#end#"&fs.getfilename(fname)
end if
end if
next
readx.close : parcel.close : msgbox strx
wscript.quit

打包当前的vbs txt bat三种脚本(个人用途) 生成parcel.vbe 包裹里有个代码，来判断自身内容并导出的，这个代码要打包脚本来生成。而打包脚本本身要读取自身的这部分代码，并导出给包裹的开头。因为功能有相同之处，我就写成读取自身的这部分并交给包裹，所以减少了一段。批处理那个我就不改了，让它沉淀一下。^_^ [ Last edited by 523066680 on 2009-10-21 at 08:57 ]