关于二进制文件的生成与写操作

[hmcheery]

请问我想生成一个二进制文件,并以字节方式去写如何操作?

[enmity]

留下email，给你一个例子

[xming076]

以前上大学的时候做过一个多媒体留言册软件，其中的数据库就是二进制文件的（没有使用现成的数据库系统），时间长我也不记得怎么做的了：）

[无所不能的名侦探]

生成名为filename的二进制文件：
Private Sub Command1_Click()
Dim filenum As Integer
filenum = FreeFile
Open "C:\filename" For Binary As #filenum
End Sub
写入：
Put #filenum ,Position,Varible

[DeityFox]

Private Sub Command1_Click()
dim bytes（）as byte
Dim filenum As Integer
'redim bytes(....）重新分配大小，当然也可定义为固定数组
filenum = FreeFile
Open "C:\filename" For Binary As #filenum
get #filenum,Position,bytes（） ‘在Position位置开始读取字节到bytes数组
如果循环读取则不需制定Position，如 get #filenum,,bytes（）
put #filenum,Position,bytes（） ，在Position位置开始写入bytes数组内容
close #filenum

End Sub

其实所谓的文件分割合并就是这样实现的，你可以试试，动态数组就是为了可以自定义分割
大小，再新建一文件，把数组力的内容写进去，就是分割后的小文件