如果您正在处理字节数组,您必须先知道字符编码,然后才能将其转换为字符串。没有这些知识,字节将被转换为错误的字符。
ADODB.Stream
object可以处理字节数组。这里是一个函数,做的是:
Const adTypeBinary = 1
Const adTypeText = 2
Const adModeReadWrite = 3
Function BytesToString(bytes, charset)
With CreateObject("ADODB.Stream")
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write bytes
.Position = 0
.Type = adTypeText
.Charset = charset
BytesToString = .ReadText
End With
End Function
这里是如何使用它:
MsgBox BytesToString(binary, "Windows-1252")
为了完整起见,这是反向操作:
Function StringToBytes(str, charset)
With CreateObject("ADODB.Stream")
.Mode = adModeReadWrite
.Type = adTypeText
.Charset = charset
.Open
.WriteText str
.Position = 0
.Type = adTypeBinary
StringToBytes = .Read
End With
End Function
由于您的输入似乎是字符串像"00110001 00110010 00110011 00110100"
,她e是将其转换成一个字节数组,然后你就可以用BytesToString()
使用上面的函数:
Function BinaryStringToBytes(binaryStr)
Dim b, n, i, l
l = GetLocale
SetLocale 1031
With CreateObject("ADODB.Stream")
.Mode = adModeReadWrite
.Charset = "Windows-1252"
.Type = adTypeText
.Open
For Each b In Split(binaryStr, " ")
If Len(b) <> 8 Or Replace(Replace(b, "0", ""), "1", "") <> "" Then
' invalid procedure call or argument
Err.Raise 5, "BinaryStringToBytes", _
"Only stings of 8-blocks of 0s and 1s, " & _
"separated by a single space are accepted."
End If
n = 0
For i = 0 To 7
n = n + Mid(b, 8 - i, 1) * 2^i
Next
.WriteText Chr(n)
Next
.Position = 0
.Type = adTypeBinary
BinaryStringToBytes = .Read
End With
SetLocale l
End Function
使用
Dim input, output
input = "00110001 00110010 00110011 00110100"
output = BytesToString(BinaryStringToBytes(input), "Windows-1252")
MsgBox output ' -> "1234"
而且,更重要的是,它能够正确处理多字节编码:
input = "00110001 00110010 00110011 00110100 11000011 10100100"
output = BytesToString(BinaryStringToBytes(input), "UTF-8")
MsgBox output ' -> "1234ä"
即二进制不以任何方式 “加密”。另外,“以二进制存储”甚至是什么意思?你不能用二进制存储任何东西。或者,表达方式不同,*所有*都以二进制形式存储在计算机中。那么,它是什么?一个字节数组?它从何而来?如果它是一个字节数组,它代表了哪种字符编码? – Tomalak 2014-10-29 07:43:00