vb.net二进制怎么读取文件？

一、二进制文件读写

1、写二进制数据到指定目录

==>将barray字节数组中的数据创建在strFilename目录文件下，存储格式为二进制，False表示不添加，直接覆盖创建。

2、从指定路径下读取二进制数据到数组

==>将目录中的文件读取到barry字节数组中，即读取二进制文件。

二、字符文件的读写

1、 将txtFile控件中的字符写到srtFileName指定目录,以创建方式。

2、从srtFileName目录中的文件读取到txtFile控件

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

VB.NET打开二进制文件用fileopen完成，打开二进制文件的形式为：openmode.binary

读取二进制文件用的是fileget方法，写入二进制文件用的是fileput方法。

应用示例：将一批随机数保存在一个dat文件中，然后再将其提取到文本框中。

二进制文件的读写一批随机数的存取，程序为：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x, i, fn As Integer

Dim s As String = ""

fn = FreeFile()

FileOpen(fn, "d:\data.dat", OpenMode.Binary)

For i = 1 To 8

x = Int(Rnd() * 100)

s = s + Str(x)

FilePut(fn, x)

Next

FileClose(fn)

TextBox1.Text = s

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim x, fn As Integer

Dim s As String = ""

fn = FreeFile()

FileOpen(fn, "d:\data.dat", OpenMode.Binary)

Do While Not EOF(fn)

FileGet(fn, x)

s = s + Str(x) + " "

Loop

FileClose(fn)

TextBox1.Text = s

End Sub

---