问题1

Question

如何把播放文件和播放器捆绑起来形成一个EXE文件？

Answer 1

Flash导出的EXE就是一个例子,用Flash导出exe文件时,实现上就是把播放文件追加到了Flash播放器后面.
实际上是这捆绑文件的问题,实现如下:
dim arrFile() '存储播放文件数据
dim arrPlayer()'存储播放器数据
open 播放文件路径 for binary as #1
 redim arrfile(lof(1)-1)
 get #1,,arrfile
close #1open 播放器路径 for binary as #1
 redim arrplayer(lof(1)-1)
 get #1,,arrplayer
close #1'重新定义播放器数组大小,以便把播放文件加入到数组后面
redim preserve arrplayer(ubound(arrplayer)+ubound(arrfile))
dim lngi as long
dim lngcount as long
lngcount=ubound(arrplayer)
for lngi=ubound(arrfile) to lngcount
 arrplayer(lngi)=arrfile(lngi)
next'导出成一个exe文件
open 要导出EXE文件的路径 for binary as #1
 put #1,,arrplayer
close #1

Answer 2

想到一个不用循环的办法:
分别将arrfile和arrplayer用join返回到两个字符串中:
dim a as string,b as string
a=join(arrifle,"@分隔@")
b=join(arrplayer,"@分隔@")
a=a & b然后再split到一个新的数组中:
dim arrt
arrt=split(a,"@分隔@")再写到文件中就可以了,不用低效率的循环写...