VB如何写入16位的文件并存储

来源：百度知道 编辑：UC知道 时间：2024/06/22 19:20:09
就是象Winhex一样 可以直接写入到16位数据里

比如这个16位数据"59 E9 8B AD 51 6F 64 A1 C4 4F.."

要求存为*.dat格式

高手帮帮啊~
....1楼
我说的数据不是固定的...用循环写可否

Dim FID As Integer '写入文件时所用的文件号
Dim bDatas() As Byte '要写入的数据
'在这里向 bDatas 数组里放数据，例如：
ReDim bDatas(9) '声明数组的长度（0 to 9）
'将十六进制数值赋给数组
'59 E9 8B AD 51 6F 64 A1 C4 4F
bDatas(0) = &H59
bDatas(1) = &HE9
bDatas(2) = &H8B
bDatas(3) = &HAD
bDatas(4) = &H51
bDatas(5) = &H6F
bDatas(6) = &H64
bDatas(7) = &HA1
bDatas(8) = &HC4
bDatas(9) = &H4F

FID = FreeFile
Open "C:\myFile.dat" For Binary As #FID '打开要写入的文件 C:\myFile.dat
Put #FID, , bDatas '写入数据（从文件的开头覆盖）
'如果要在特定位置写入，使用 Put #filenumber,offset,data
Close #FID

dim i as byte
open "C;\1.dat" for binary as #1
i=255
put #1,,i
close #1
用这段代码建立的1.dat，用Winhex打开看一下，里面只有一个字节FF.，若想多写就用循环重复调用。