VBA字节数组到字符串

Question

如果此问题以前已得到解答，请致歉，但我无法找到解释。我在VBScript中创建了一个脚本来加密用户输入并匹配已经加密的密码。我遇到了一些问题，并设法推导出以下内容。

我有一个字节数组（1到2）作为值（1,16）。我然后定义与阵列值的字符串按如下：

Dim bytArr(1 To 2) As Byte 
Dim output As String 
bytArr(1) = 16 
bytArr(2) = 1 

output = bytArr 
Debug.Print output 

输出我得到的是d（ETH）ASCII值208.可能有人请解释字节数组如何转换为这个角色？

Answer 1

• 在VBA中，字节数组是特殊的，因为与其他数据类型的数组不同，其他数据类型的数组是string can be directly assigned to a byte array。在VBA中，字符串是UNICODE字符串，所以当给字节数组分配一个字符串时，它会为每个字符存储两位数;
• 虽然字形似乎是一样的，看charmap：
  • d是Unicode Character 'LATIN CAPITAL LETTER ETH' (U+00D0)在charmap DOS西方（中央）欧洲字符集所示（0xD1，即十进制209）;
  • Đ在charmap的Windows西方（中欧）字符集显示Unicode Character 'LATIN CAPITAL LETTER D WITH STROKE' (U+0110)（0xD0，即十进制208）。

获取上述声明的计算机架构记endianness（字节顺序）保持在一起：英特尔x86处理器使用little-endian的，所以字节数组（0x10，0x01）是一样的unicode字符串U+0110。

字符是合并通过公然mojibake的情况。为了证明，请使用Asc and AscW Functions，如下所示：Debug.Print output, Asc(output), AscW(output)带有不同的控制台代码页，例如：根据chcp 852和chcp 1250。