关于二进制文件

Question

可以直接写呀：
Private Sub Command1_Click()
    Dim a As Integer
    
    a = FreeFile
    Open "c:\sddf" For Binary As #a
    Put #a, , "this is  ksdajskdjeriwrwlk"
    Close a
End Sub

Answer 1

Dim a As String * 8
Dim FileName As Stringa="类毒素解放六十九"
FileName="c:\test.dat"Open FileName For Binary As #1'二进制写
    put #1, 1, a
Close #1Open FileName For Binary As #1'二进制读
    get #1, 1, a
Close #1Open FileName For Output As #1'顺序写
    Write #1, a
Close #1Open FileName For Input As #1'顺序读
    Input #1, a
Close #1

Answer 2

Seek(文件号)，用于返回当前的读写位置

Answer 3

to tinyboy(Tinyboy)　
我要如何确定读取或写入的字符数？

Answer 4

确定写入的长度使用
LenB(StrConv("abc类毒素解放六十九", vbFromUnicode))
这样一个汉字返回2，一个英文字母返回1。

Answer 5

读写时是以单字节计算的Dim MyChar
Open "TESTFILE" For Input As #1   ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
   MyChar = Input(LenB(StrConv("abc类毒素解放六十九", vbFromUnicode)), #1)  ' 读入n个字符。
   Debug.Print MyChar   ' 显示到立即窗口。
Loop
Close #1   ' 关闭文件。

Answer 6

Dim MyStr as Byte()
...