0

我希望能够查找文件中的特定字节，然后更改该字节。我已经尝试了一些东西，但没有任何效果。

        Const fileName As String = "Option.mco"

    Using writer As BinaryWriter = New BinaryWriter(File.Open(fileName, FileMode.Create))
        writer.Seek(39, SeekOrigin.Begin)
        writer.Write(1600)
    End Using

使用此代码我可以转到字节 39，但问题是该字节之前的所有内容都变为 00，而之后的所有内容都将被删除。

我也试过这个：

     Dim fLocation = ("Option.mco")
    Dim fInfo As New FileInfo(fLocation)
    Dim numBytes As Long = fInfo.Length
    Dim fStream As New FileStream(fLocation, FileMode.Open, FileAccess.Read)
    Dim br As New BinaryReader(fStream)
    Dim data As Byte() = br.ReadBytes(CInt(numBytes))
    Dim fs As New FileStream(fLocation, FileMode.Open, FileAccess.Read)


    ' Show the number of bytes in the array.
    'Label1.Text = Convert.ToString(data.Length)

    'Dim writeStream As FileStream
    'writeStream = New FileStream(fLocation, FileMode.Create)
    'Dim writeBinay As New BinaryWriter(writeStream)

    Dim value As Short = 1600
    Dim value2 As Short = 900
    Dim dataArray(1600) As Byte
    fs.Seek(39, SeekOrigin.Begin)
    fs.Write(1600)
    'writeBinay.Write(value)
    fs.Seek(43, SeekOrigin.Begin)
    'writeBinay.Write(value2)
    fs.WriteByte(value2)
    'writeBinay.Close()

    br.Close()

    fStream.Close()

我也试过这个：

    Dim fLocation = ("Option.mco")

    Dim writeStream As New FileStream(fLocation, FileMode.Create)
    Dim writeBinay As New BinaryWriter(writeStream)

    Dim value As Short = 1600
    Dim value2 As Short = 900
    writeBinay.Seek(39, SeekOrigin.Begin)
    writeBinay.Write(value)
    writeBinay.Seek(43, SeekOrigin.Begin)
    writeBinay.Write(value2)
    writeBinay.Close()

这是文件的字节：http: //puu.sh/3nxrd.jpg

4

1 回答 1

3

以下代码非常适合我。它首先创建一个包含 100 个“A”字符的文件 Test.dat，然后转到位置 50 并写入一个“F”字符，而其他“A”保持不变。

    Sub Main()
    Const fileName As String = "Test.dat"

    Dim dataArray(100) As Byte
    For i As Integer = 0 To dataArray.Length - 1
        dataArray(i) = 65
    Next

    Dim fileStream As IO.FileStream = _
        New IO.FileStream(fileName, IO.FileMode.Create)
    Try

        ' Write the data to the file, byte by byte.
        For i As Integer = 0 To dataArray.Length - 1
            fileStream.WriteByte(dataArray(i))
        Next i

        ' Set the stream position to the desired location of the stream.
        fileStream.Seek(50, IO.SeekOrigin.Begin)


        'Write Character ASCII 70
        fileStream.WriteByte(70)

        ' Set the stream position to the begining of the stream.
        fileStream.Seek(0, IO.SeekOrigin.Begin)
    Finally
        fileStream.Close()
    End Try
End Sub

然后使用以下代码再次打开文件，转到位置 98 并写一个“G”，一切正常。

Sub Main()
    Const fileName As String = "Test.dat"

    Dim fileStream As IO.FileStream = _
        New IO.FileStream(fileName, IO.FileMode.Open)
    Try
        ' Set the stream position to the desired location of the stream.
        fileStream.Seek(98, IO.SeekOrigin.Begin)

        'Write Character ASCII 71
        fileStream.WriteByte(71)
    Finally
        fileStream.Close()
    End Try
End Sub

希望这可以帮助...

于 2013-06-24T23:07:22.037 回答