0

我希望能够做到这样，当我的程序加载时，它会检查文件中的字节是否设置为特定的值。如果它们被设置为某个字节，则执行代码。

所以我希望能够让它转到一个特定的字节，检查它是否是一个特定的字节，如果是那个特定的字节，然后执行其他代码，如果是其他代码，则执行其他代码。

我试过这个：

    Dim bytes As Byte() = New Byte(writeStream.Length) {}
    Dim ByteResult As Integer = writeStream.Read(bytes, 30, 1)

    MsgBox(ByteResult)

但它不起作用，因为由于某种原因它总是返回 1。

我也试过这个：

        Dim dataArray(60) As Byte

    If dataArray(30) <> writeStream.ReadByte() - 0 Then
        MsgBox("The bytes have been checked.")
    End If

但这似乎也不起作用，因为它从未为我打开消息框。

例如，我希望它寻求偏移 30，然后检查字节是否为 00，然后我希望它执行代码 1，否则如果它是 01，我希望它执行代码 2。

谢谢。

4

2 回答 2

0

你也可以这样做

    Dim FileStream1 As New IO.FileStream("File.txt", IO.FileMode.Open)

    FileStream1.Position = 30
    MsgBox(FileStream1.ReadByte)

    FileStream1.Close()
    FileStream1.Dispose()
于 2013-06-25T08:15:20.320 回答
0

我发现以下代码有效：

        fLocation = ("file.txt")

        Dim writeStream As New FileStream(fLocation, FileMode.Open)
        Dim writeBinary As New BinaryWriter(writeStream)

        writeStream.Seek(30, SeekOrigin.Begin)
        Dim ByteResult = writeStream.ReadByte()

        MsgBox(ByteResult)
于 2013-06-25T08:07:28.257 回答