将二进制数据移动到一个文件中的特定值到另一个文件中

Question

我正在编写Visual Basic应用程序，并且停留在某一时刻：我需要该应用读取文件，选择DDS字符串之前的所有内容，将其从文件中剪切并粘贴到新文件中。

然后在编辑DDS之后插入该标头。

问题是，DDS之前的此标头的长度不固定：此类型的每个文件都有不同的标头。我试图弄乱System.IO.FileStream，但没有结果。

这甚至有可能做到吗？

Answer 1

标题长度不是很多，简单的搜索模式可能就足够了。

将字节序列传递到FindHeader方法的文件内部和文件路径。它返回一个字节数组，其中包含找到指定序列之前收集的所有字节。

这是一个简单的模式匹配，它将向前搜索，直到找到可以与指定序列匹配的第一个字节。然后，它读取缓冲区并将缓冲区与序列进行比较：-如果匹配，则返回到该点为止累积的字节；-如果不是，则从[Sequence Length] - 1位置的当前位置（在当前Stream缓冲区内）回溯并继续。

您可以这样称呼它：

Dim closeSequence = New Byte() { &H44, &H44, &H53 }
Dim headerBytes = FindHeader([Source File 1 Path], closeSequence)

现在我们有了第一个源文件的标题。

第二个源文件的数据部分为：

Dim sourceFile2DataStart = FindHeader([Source File 2 Path], closeSequence).Length + closeSequence.Length
Dim dataLength = New FileInfo([Source File 2 Path]).Length - sourceFile2DataStart

我们需要创建第三个文件，其中将包含第一个文件的标题和从第二个文件读取的数据。

' Create a read buffer. The buffer length is less than or equal to the data length
Dim bufferLength As Integer = CInt(If(dataLength >= 1024, 1024, dataLength))
Dim buffer As Byte() = New Byte(bufferLength - 1) {}
Dim read As Integer = 0

使用两个FileStream对象，我们创建一个新的目标文件，写入第一个源文件的标头，closeSequence标识数据部分的开始，然后从第二个源文件中读取一个缓冲区并将缓冲区写入目标文件：

Dim patchworkFilePath as string = [Path of the Destination File]

Using sWriter As FileStream = New FileStream(patchworkFilePath, FileMode.OpenOrCreate, FileAccess.Write, FileShare.None),
    sReader As FileStream = New FileStream([Source File 2 Path], FileMode.Open, FileAccess.Read, FileShare.None)
    sReader.Seek(sourceFile2DataStart, SeekOrigin.Begin)
    sWriter.Write(header1Bytes, 0, header1Bytes.Length)
    sWriter.Write(closeSequence, 0, closeSequence.Length)

    While True
        read = sReader.Read(buffer, 0, buffer.Length)
        If read = 0 Then Exit While
        sWriter.Write(buffer, 0, read)
    End While
End Using

---

[Header阅读器方法：

Public Function FindHeader(filePath As String, headerClosure As Byte()) As Byte()
    Dim byteToFind = headerClosure(0)
    Dim buffer = New Byte(headerClosure.Length - 1) {}
    Dim header = New List(Of Byte)(2048)
    Dim read As Integer = 0

    Using fs As FileStream = New FileStream(filePath, FileMode.Open, FileAccess.Read, FileShare.None)
        While fs.Position <= (fs.Length - headerClosure.Length)
            read = fs.ReadByte()
            If read = byteToFind Then
                fs.Read(buffer, 1, buffer.Length - 1)
                buffer(0) = CByte(read)
                If buffer.SequenceEqual(headerClosure) Then Exit While
                fs.Seek(-(buffer.Length - 1), SeekOrigin.Current)
            End If
            header.Add(CByte(read))
        End While
    End Using
    Return header.ToArray()
End Function