vb 二进制打开文件

Dim file() As Byte, MyFiles As String

MyFiles =  "G:\学习资料\第六学期\123.JPG"

Open MyFiles For Binary As #1     '使用二进制方法打开文件

    ReDim file(LOF(1) - 1) As Byte '因为数组从0开唤宴歼始，所以这里数组上标和冲要减去1

    Get #1, , file             '把文件内容存入数组

    Close

Dim a(1, 1)

Dim i As Integer, j As Integer

For i = 0 To 1

    For j = 0 To 1

    a(i, j) = file(179 + i * (2 - 1) + j)

    祥搏Next

Next

1、用open打开二进制文件，用put写文件，用get读文件。

2、所需工具：vb6

3、示例：（二进制文件的写出与读取）

Private Sub Command1_Click()

    Open "c:\111.txt" For Binary Access Write As #1

    Dim s As String

    Dim n1 As Integer, n2 As Long

    Dim f1 As Single, f2 As Double

    

    s = "12345"

    n1 = 10

    n2 = 50000

    f1 = 0.1

    f2 = 0.0000000001

    Put #1, , s

    Put #1, , n1

    Put #1, , n2

    Put #1, , f1

    Put #1, , f2

    

    Close 消渗迅#1

    Print s, n1, n2, f1, f2

End Sub

Private Sub Command2_Click()

    Open "c:\111.txt" For Binary Access Read As #1

    Dim s As String

    Dim n1 As Integer, n2 As Long

    Dim f1 As Single, f2 As Double

    

    s = String(5, 0)

    Get #1, , s

    Get #1, , n1

    Get #1, , 拿此n2

    Get #1, , 喊逗f1

    Get #1, , f2

    

    Close #1

    Print s, n1, n2, f1, f2

End Sub

4、注意：读取字符串时，提前用string()函数生成要读取的长度的串，或者使用定长串。

---