VB6程序中文Windows无法运行，Unicode分隔符致EXE损坏求替代方案

方案1：使用固定多字节序列作为分隔符（绕过编码差异） #

直接用自定义的多字节组合作为分隔符（比如&HCA &HFE &HBA &HBE），完全按字节流处理附加数据，避免系统默认编码带来的解析差异：

• 写入时：将每个数据项转成UTF-8字节数组，在项与项之间写入自定义分隔符字节序列，直接追加到EXE末尾。
• 读取时：先读取EXE文件的所有字节，定位到附加数据起始位置（通过解析PE头的SizeOfImage字段），然后遍历字节数组匹配分隔符，拆分出每个数据项的字节数组后，用UTF-8解码成字符串。

示例代码（VB）：

' 写入附加数据
Dim delimiter() As Byte = {&HCA, &HFE, &HBA, &HBE}
Dim dataItems() As String = {"数据1", "TestData", "更多内容"}
Using fs As New FileStream("App.exe", FileMode.Append)
    For Each item As String In dataItems
        Dim itemBytes() As Byte = Encoding.UTF8.GetBytes(item)
        fs.Write(itemBytes, 0, itemBytes.Length)
        fs.Write(delimiter, 0, delimiter.Length)
    Next
End Using

' 读取附加数据
Using fs As New FileStream(Application.ExecutablePath, FileMode.Open)
    ' 解析PE头获取镜像大小，定位到附加数据起始位置（简化版）
    fs.Position = &H3C
    Dim peOffset As Integer = New BinaryReader(fs).ReadInt32()
    fs.Position = peOffset + &H50 ' 指向OptionalHeader的SizeOfImage字段
    Dim imageSize As Integer = New BinaryReader(fs).ReadInt32()
    fs.Position = imageSize

    ' 读取全部附加字节
    Dim attachBytes() As Byte = New Byte(fs.Length - imageSize - 1) {}
    fs.Read(attachBytes, 0, attachBytes.Length)

    ' 匹配分隔符并拆分数据
    Dim splitPositions As New List(Of Integer)
    For i As Integer = 0 To attachBytes.Length - delimiter.Length
        Dim isMatch As Boolean = True
        For j As Integer = 0 To delimiter.Length - 1
            If attachBytes(i + j) <> delimiter(j) Then
                isMatch = False
                Exit For
            End If
        Next
        If isMatch Then splitPositions.Add(i)
    Next

    ' 转换为字符串列表
    Dim result As New List(Of String)
    Dim lastPos As Integer = 0
    For Each pos As Integer In splitPositions
        result.Add(Encoding.UTF8.GetString(attachBytes, lastPos, pos - lastPos))
        lastPos = pos + delimiter.Length
    Next
End Using

方案2：给附加数据加头部元信息（无分隔符方案） #

完全抛弃分隔符，在附加数据开头写入元信息：先写数据项数量，再逐个写入每个数据项的字节长度和内容，读取时直接按长度读取，彻底避免匹配错误：

• 写入时：先写入4字节整数表示数据项数量，然后对每个数据项，先写4字节整数表示其UTF8编码后的字节长度，再写数据内容的字节数组。
• 读取时：定位到附加数据起始位置后，先读取数据项数量，再循环读取每个项的长度和内容。

示例代码（VB）：

' 写入附加数据
Dim dataItems() As String = {"中文测试", "English Test", "混合内容"}
Using fs As New FileStream("App.exe", FileMode.Append)
    Dim writer As New BinaryWriter(fs, Encoding.UTF8)
    writer.Write(dataItems.Length) ' 写入项数量
    For Each item As String In dataItems
        Dim itemBytes() As Byte = Encoding.UTF8.GetBytes(item)
        writer.Write(itemBytes.Length) ' 写入项长度
        writer.Write(itemBytes) ' 写入项内容
    Next
End Using

' 读取附加数据
Using fs As New FileStream(Application.ExecutablePath, FileMode.Open)
    Dim reader As New BinaryReader(fs, Encoding.UTF8)
    ' 定位到附加数据起始位置（同方案1的PE头解析逻辑）
    fs.Position = &H3C
    Dim peOffset As Integer = reader.ReadInt32()
    fs.Position = peOffset + &H50
    Dim imageSize As Integer = reader.ReadInt32()
    fs.Position = imageSize

    ' 读取数据
    Dim itemCount As Integer = reader.ReadInt32()
    Dim result As New List(Of String)
    For i As Integer = 0 To itemCount - 1
        Dim itemLen As Integer = reader.ReadInt32()
        result.Add(Encoding.UTF8.GetString(reader.ReadBytes(itemLen)))
    Next
End Using

方案3：分离数据到外部文件（最简单兼容方案） #

直接放弃修改EXE，把数据数组存成同目录下的外部文件（比如App.dat），程序启动时读取该文件：

• 可以用JSON格式存储数组（规范易维护），或者用自定义分隔符（比如|||），读取时指定UTF-8编码即可，完全不受系统语言版本影响。

示例代码（VB读取JSON格式数据）：

Dim datPath As String = Path.Combine(Path.GetDirectoryName(Application.ExecutablePath), "App.dat")
' App.dat内容示例：["数据1", "数据2", "数据3"]
Dim jsonContent As String = File.ReadAllText(datPath, Encoding.UTF8)
Dim dataItems() As String = Newtonsoft.Json.JsonConvert.DeserializeObject(Of String())(jsonContent)

为什么之前的方案失败？ #

• 单字节分隔符：中文Windows默认编码为GBK，会将连续单字节解析为双字节中文，导致Split函数无法识别分隔符；英文Windows用ASCII编码则能正常解析。
• Unicode字符分隔符：写入时未按正确的字节格式（UTF-16LE）处理，或误修改了EXE的PE结构，导致系统无法识别合法的PE文件。

内容的提问来源于stack exchange，提问作者NewUser