无法使用 Visual Basic 将字节数组附加到现有文件

Question

我有两个字符串，每个字符串是一个 PDF 礼仪，我必须把这两个礼仪写成一个 PDF 文件。为此，我将每个字符串转换为字节数组（我不知道这是否是最好的方法）并将每个字符串都写入 PDF 文件。当我将一个礼仪写入PDF文件时一切都很好，我看到了礼仪，但是我尝试附加第二个，结果是一样的，文件中只有第一个礼仪。例如这段代码先写礼仪，一切正常：

Dim fs As FileStream = New FileStream(fullFileName, FileMode.CreateNew)
fs.Close()
fs = New FileStream(fullFileName, FileMode.Append)
Dim str As String = GetPDFString(27)
Dim binaryData As Byte() = ConvertStringToByte(str)
fs.Write(binaryData, 0, binaryData.Length)
fs.Close()

但如果我想使用此代码在同一个 PDF 文件中附加第二个礼节......这不是附加的。

Dim fs As FileStream = New FileStream(fullFileName, FileMode.CreateNew)
fs.Close()
fs = New FileStream(fullFileName, FileMode.Append)
Dim str As String = GetPDFString(25)
Dim str1 As String = GetPDFString(27)
Dim binaryData As Byte() = ConvertStringToByte(str)
Dim binaryData1 As Byte() = ConvertStringToByte(str1)
fs.Write(binaryData, 0, binaryData.Length)
fs.Write(binaryData1, 0, binaryData1.Length)
fs.Close()

两者都有相同的结果，我不明白为什么第二个礼仪没有附加？非常感谢。

Answer 1

您的问题标题表明您在询问如何将字节附加到 FileStream，而不是关于 PDF，也不是关于 Base64 字符串转换（您在代码中使用）。

在 StackOverflow 上提问之前，您需要确保一次只传达一个问题。删除所有不相关的内容，并准备一个我们可以在全新的 VS 项目中使用的代码示例，以便重现您的问题并帮助您解决它。

现在，如果您的问题真的是关于将一​​个字节（或一个字节数组）附加到文件中，那么它就像一行代码（或两行，如果您采用 FileStream 方法）一样简单。见以下链接：

• C# Append byte array to existing file

还有copy-pasted 为您提供方便（以及converted 从 C# 到 VB.NET）：

Dim appendMe As Byte() = New Byte(999) {}
File.AppendAllBytes("C:\test.exe", appendMe)

或者，avoid memory overflow，如果您的字节数组预计足够大：

Public Shared Sub AppendAllBytes(path As String, bytes As Byte())
   'argument-checking here.

   Using stream = New FileStream(path, FileMode.Append)
       stream.Write(bytes, 0, bytes.Length)
   End Using
End Sub

Answer 2

用这一行：

fs.Write(binaryData1, binaryData.Length + 1, binaryData1.Length)

特别是第二个参数 (binaryData.Length + 1)，您是在告诉它从错误的 binaryData1 位置开始追加。例如，如果它是 3 个字节长，binaryData 也是如此，它不会附加任何内容。它应该类似于第一行.Write：

fs.Write(binaryData1, 0, binaryData1.Length)

所以它附加了binaryData1 的所有。它仍然会在 binaryData 之后附加它 - 您无需在此行中指定前面的 binaryData 的长度。

---

或者，完全绕过上述内容，在将两个字符串编码/写入文件之前连接它们：

Dim fs As FileStream = New FileStream(fullFileName, FileMode.CreateNew)
fs.Close()
fs = New FileStream(fullFileName, FileMode.Append)
Dim str As String = GetPDFString(id, token, depot, 25)
Dim str1 As String = GetPDFString(id, token, depot, 27)
Dim binaryData As Byte() = Convert.FromBase64String(str & str1) 'concatenate strings
fs.Write(binaryData, 0, binaryData.Length)
fs.Close()