檢查文件中的特定字節是否在vb中設置為特定值

Question

我希望能夠制作一個，以便在程序加載時檢查文件中的字節是否設置為特定的字節。 如果將它們設置為某個字節，則執行代碼。

因此，我希望能夠將其轉到特定字節，檢查它是否為某個字節，如果是該特定字節，則執行代碼，否則執行其他代碼。

我嘗試了這個：

    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。

謝謝。

Answer 1

我發現以下代碼有效：

        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)

Answer 2

您也可以這樣做

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

    FileStream1.Position = 30
    MsgBox(FileStream1.ReadByte)

    FileStream1.Close()
    FileStream1.Dispose()