vbs脚本打包 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

我马甲的原文：
http://hi.baidu.com/paktc/blog/item/d623622513ba9f09918f9dc3.html

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

第1楼　523066680	发表于 2009-10-21 08:45
银牌会员　发帖 1,133　积分 2,362
[分享]vbs脚本打包我马甲的原文： http://hi.baidu.com/paktc/blog/item/d623622513ba9f09918f9dc3.html 因个人需要而做的，通用性就没去想拉~ 写它的原因: 我喜欢把脚本用txt格式放在ys168网盘里(经常换地方上线，有网盘真好)，这样就可以直接打开-复制文本而不用另存。不过假如是几个脚本配合执行，或者有其他外部文件环境需要用到，那就又要压缩了，于是就做了曾经的: 批处理脚本打包工具 http://www.cn-dos.net/forum/viewthread.php?tid=44620 (回看后才想起来，该代码有个地方可以合并) 这次打算用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 ]

第2楼　523066680	发表于 2009-10-21 09:03
银牌会员　发帖 1,133　积分 2,362
哪，既然发上来了，就做下说明代码有一句 format="txt,vbs,bat" 这里面定义被打包的文件格式的。后面的操作是在文件集里面获取格式并判断是否为其中之一。

第3楼　523066680	发表于 2009-10-22 09:10
银牌会员　发帖 1,133　积分 2,362
slore这次不帮我看一下拉。每次我发应用类的作品都没人鸟我，你说我不写效果我写什么好？

第4楼　plp626	发表于 2009-10-22 11:21
银牌会员　发帖 1,020　积分 2,278
我来灌灌水，辛苦了，楼主已经代替我成为论坛的雷锋

第5楼　yishanju	发表于 2009-10-22 11:36
银牌会员　发帖 1,357　积分 1,488
你们都没我水。-——-

第6楼　523066680	发表于 2009-10-22 14:29
银牌会员　发帖 1,133　积分 2,362
辛苦倒不会，本来做给自己用的，偶尔还可以给自己的作品做备份，用的挺好就发上来了，看来很少人用的上~ 沉就沉吧

第7楼　523066680	发表于 2009-10-25 08:04
银牌会员　发帖 1,133　积分 2,362
看在周日的份上，我再奋力一顶。。。。。