如何在Visual Basic中将字符串转换为字节

Question

我试图在密码学中模拟algoritham，我需要将一个0和1的字符串转换回一个单词。例： 我有：01011110010101101000001101100001101 我把它拆分成一个字符串数组： 0101111,0010101，......

每个成员有7个字符。我想收到一封0101111代表UTF8的信吗？我该怎么做呢？

我尝试CType（＆＃34; 0010101＆＃34;，Byte），但它失败了。我可以通过这种方式传递最大值111。 帮助：/

Answer 1

UTF-8是8位，那些只有7位。你的意思是7位ASCII？

在这种情况下，你去：

Function BinToStr(binStr As String) As String

    Dim i As Long

    For i = 0 To (Len(binStr) / 7) - 1
        [A1] = CLng(Mid(binStr, i * 7 + 1, 7))
        BinToStr = BinToStr & Chr([BIN2DEC(A1)])
    Next
End Function

如果那不是你要找的东西，请告诉我。