从VB6字符串数据到.NET字节数组的转换

Question

我正在编写一个C＃应用程序，该程序从VB6代码生成的SQL数据库中读取数据。 数据是单打数组。 我正在尝试将它们转换为浮点数[]

以下是将数据写入数据库的VB6代码（无法更改此代码）：

  Set fso = New FileSystemObject
  strFilePath = "c:\temp\temp.tmp"

  ' Output the data to a temporary file
  intFileNr = FreeFile
  Open strFilePath For Binary Access Write As #intFileNr
  Put #intFileNr, , GetSize(Data, 1)
  Put #intFileNr, , GetSize(Data, 2)
  Put #intFileNr, , Data
  Close #intFileNr

  ' Read the data back AS STRING
  Open strFilePath For Binary Access Read As #intFileNr
  strData = String$(LOF(intFileNr), 32)
  Get #intFileNr, 1, strData
  Close #intFileNr

  Call Field.AppendChunk(strData)

如您所见，数据被放入一个临时文件中，然后以VB6字符串的形式读回并写入数据库（dbLongBinary类型的行）

我尝试了以下方法：

进行BlockCopy

byte[] source = databaseValue as byte[];
float [,] destination = new float[BitConverter.ToInt32(source, 0), BitConverter.ToInt32(source, 4)];
Buffer.BlockCopy(source, 8, destination, 0, 50 * 99 * 4);

这里的问题是VB6二进制到字符串的转换。 VB6字符串char是2字节宽，我不知道如何将其转换回我可以处理的二进制格式。

以下是VB6代码生成的临时文件的转储： 替代文本http://robbertdam.nl/share/dump%20of%20text%20file%20Generated%20by%20VB6.png

这是我从数据库（= VB6字符串）中读取数据时的数据转储： 替代文本http://robbertdam.nl/share/dump%20of%20database%20field.png

Answer 1

我看到的一种可能方法是：

1. 以System.Char []的形式读回数据，就像VB BSTR一样，它是Unicode。
2. 通过Encoding.ASCII.GetBytes（）将其转换为ASCII字节数组。 有效地，这消除了所有交错的0。
3. 将此ASCII字节数组复制到您的最终浮点数组。

像这样：

char[] destinationAsChars = new char[BitConverter.ToInt32(source, 0)* BitConverter.ToInt32(source, 4)];
byte[] asciiBytes = Encoding.ASCII.GetBytes(destinationAsChars);
float[] destination = new float[notSureHowLarge];
Buffer.BlockCopy(asciiBytes, 0, destination, 0, asciiBytes.Length);

现在，目的地应包含原始浮点数。 CAVEAT：不确定VB6 Singles的内部格式是否与System.Float的内部格式二进制兼容。 如果不是，则所有投注均无效。

Answer 2

这是我从上面的答案中得出的解决方案。

以unicode char[]读取文件，然后重新编码为我的默认系统编码，从而生成可读文件。

internal void FixBytes()
{
    //Convert the bytes from VB6 style BSTR to standard byte[].

    char[] destinationAsChars = 
    System.Text.Encoding.Unicode.GetString(File).ToCharArray();

    byte[] asciiBytes =  Encoding.Default.GetBytes(destinationAsChars);
    byte[] newFile = new byte[asciiBytes.Length];
    Buffer.BlockCopy(asciiBytes,0, newFile, 0, asciiBytes.Length);
    File = newFile;
}

Answer 3

您可能知道，在VB6端这是非常糟糕的编码。 它试图做的是将Single数据（与C＃中的float相同）转换为String。 但是，尽管有更好的方法可以做到这一点，但开始时确实是一个坏主意。

主要原因是，在当前代码页上使用，将二进制数据读入VB6 BSTR会将数据从8位字节转换为16位字符。 因此，这可能会在数据库中产生不同的结果，具体取决于它在哪个语言环境中运行。

因此，当您从数据库读回它时，除非指定与编写时使用的代码页相同的代码页，否则您将获得不同的浮点数，甚至可能是无效的浮点数。

这将有助于以十六进制形式查看二进制（单个）和DB（字符串）形式的数据示例，以验证是否正在发生这种情况。

在以后的文章中：

实际上，这不是“不好的” VB6代码。

这是因为它将二进制数据带入字符串域，这违反了现代VB编码的主要规则。 这就是存在Byte数据类型的原因。 如果您忽略了这一点，那么当您创建的数据库越过区域边界时，您可能会得到不可解密的数据。

他正在做的事情是以紧凑的二进制格式存储数组，并将其作为“块”保存到数据库中。 有很多正当的理由要这样做。

当然，他有一个想要这样做的正当理由（尽管您对“紧凑”的定义不同于传统的定义）。 目的是好的：选择的手段不是。

到OP：

您可能无法更改输入数据的含义，因此以上内容大部分是学术性的。 如果还有时间更改用于创建Blob的方法，那么让我们建议不涉及字符串的方法。

在应用任何提供的解决方案时，请尽量避免使用字符串，如果不能，请使用与创建字符串的代码页匹配的特定代码页对其进行解码。

Answer 4

您能否说明文件的内容是什么（即示例）？ 是二进制（也许是十六进制）还是字符？ 如果数据是VB6字符串，则必须使用float.Parse（）读取它。 .NET字符串也是每个字符2个字节，但是从文件加载时，可以使用Encoding进行控制。

Answer 5

实际上，这不是“不好的” VB6代码。 他正在做的事情是以紧凑的二进制格式存储数组，并将其作为“块”保存到数据库中。 有很多正当的理由要这样做。

VB6代码将其保存到磁盘并进行回读的原因是因为VB6不支持仅在内存中读写文件。 如果要创建二进制数据块并将其填充到其他地方（例如数据库字段），这是常见的算法。

在.NET中处理此问题不是问题。 我的代码在VB.NET中，因此您必须将其转换为C＃。

修改为处理字节和unicode问题。

Public Function DataArrayFromDatabase(ByVal dbData As byte()) As Single(,)
    Dim bData(Ubound(dbData)/2) As Byte
    Dim I As Long
    Dim J As Long

    J=0
    For I = 1 To Ubound(dbData) step 2
        bData(J) = dbData(I)
        J=1
    Next I

    Dim sM As New IO.MemoryStream(bData)
    Dim bR As IO.BinaryReader = New IO.BinaryReader(sM)
    Dim Dim1 As Integer = bR.ReadInt32
    Dim Dim2 As Integer = bR.ReadInt32
    Dim newData(Dim1, Dim2) As Single

    For I = 0 To Dim2
        For J = 0 To Dim1
            newData(J, I) = bR.ReadSingle
        Next
    Next

    bR.Close()
    sM.Close()
    Return newData
End Function

关键技巧是像在VB6中一样读入数据。 我们可以在.NET中使用MemoryStreams，因此这相当容易。

首先，我们跳过其他所有字节以消除Unicode填充。

然后，我们从字节数组创建一个内存流。 然后，使用MemoryStream初始化BinaryReader。

我们在数组的第一维中读取VB6 Long或.NET Int32在数组的第二维中读取VB6 Long或.NET Int32

读取循环以与数组维数相反的顺序构造。 Dim2是外部循环，Dim1是内部循环。 原因是VB6以二进制格式存储阵列。

返回newData，您已经成功还原了在VB6中创建的原始阵列！

现在，您可以尝试使用一些数学技巧。 二维为4个字节/字符，每个数组元素为4个字节/字符。 但是对于长期的可维护性，我发现对内存流使用字节操作更为明确。 从现在起5年后重新访问它需要花费更多的代码，但要清晰得多。

Answer 6

首先，我们跳过其他所有字节以消除Unicode填充。

嗯...如果那是一个有效的策略，那么数据库字符串转储中的所有其他列将只包含零。 但是快速浏览一下第一个显示情况并非如此。 实际上，这些列中有很多非零字节。 我们可以舍弃它们吗？

这表明使用字符串引起的向Unicode的转换不只是添加“填充”，而是更改了数据的字符。 您所说的填充是以下事实的巧合：ASCII范围（00-7F二进制）映射到相同的Unicode范围。 但这对于二进制80-FF而言并非如此。

看一下第一个存储的值，它的原始字节值为94 9A 27 3A。 转换为Unicode时，它们不会变成94 00 97 00 27 00 3A00。它们变成1D 20 61 01 27 00 3A 00。

丢弃其他所有字节将为您提供1D 61 27 3A －而不是原始的94 9A 27 3A。