VB 二进制文件put函数保存数组

put函数保存数组

这里感谢“VB人生”QQ群，是他们告诉我下面的方法！

VB6 操作二进制文件实例

Dim Byt() As Byte 定义一个数组

Dim A1S As String

Dim A2S As String

Dim A1L As Long

Dim A2L As Long

Open (App.Path + "\abc.DAT") For Binary As #1 用二进制方式打开文件

A2L = LOF(1) - 1

ReDim Byt(1 To A2L) As Byte 从第二个字节开始取数据放入数组

Get #1, 2, Byt

Open (App.Path + "\abc_1.DAT") For Binary As #2 '新的文件

Put #2, , Byt 将数组写入新的文件

Close #1

Close #2 关闭打开的文件

其实通过这种方法，我们可以任意取数组中的数据保存为另一个文件。