Question

请问，VB如何将多张固定位置的图片，写入同一个文件中，然后如何读取。

本人纯粹VB菜鸟，希望越简单越好，比如像这种类型。
dim a(2) as string
a(1)="456" a(2)="789"
open "c:\x.dat" output as #1
for i=1 to 2
write #1,a(i)
close #1

Answer 1

那容易，你可以定义前面100个字符的内容，比如：
11111.bmp，23354｜
这样的格式，前面是文件名，用逗号分开，后面是文件大小，然后用｜分开下一个文件，如果文件不多的话，很容易吧。最后在101字符开始的位置依次写入11111.BMP内容...
然后读出文件列表，按文件大小从101字符开始取出对应大小的数据，保存为11111.bmp即可。

追问

求范例。你这么说，我- -不懂

追答

晕，先获取文件全地址，然后
Dim MySize
MySize = FileLen("文件全地址") ' 取得文件的大小
Dim Mytxt
Mytxt = 文件全地址 & "," & format(MySize,"0") & "|"

然后再将那几文件都这样添加到Mytxt字段里
再Mytxt = Mytxt & String(" ",100 - Len(Mytxt)) '定义前面100个字符的内容

然后就是把Mytxt和那几个文件写到一个文件里完成了啊。

这不是很容易的事嘛，晕死。