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

SYD8801是一款低功耗高性能蓝牙低功耗SOC，集成了高性能2.4GHz射频收发机、32位ARM Cortex-M0处理器、128kB Flash存储器、以及丰富的数字接口。SYD8801片上集成了Balun无需阻抗匹配网络、高效率DCDC降压转换器，适合用于可穿戴、物联网设备等。具体可咨询：http://www.sydtek.com/

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          关闭打开的文件
其实通过这种方法，我们可以任意取数组中的数据保存为另一个文件。