如何将二进制数据转换为字符串？

Wonny 2003-09-27 04:09:15

如何将二进制数据转换为字符串？使用哪个函数？

...全文

217 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

Angeleque 2003-09-27

打赏
举报

同意以上做法

海牛 2003-09-27

打赏
举报

笔误！
重新写一次:
你的意思是：比如一个整数10，其二进制数为：1010，转换成‘1010’字符串吧！

给你一个函数（查表法）：
Private Function GetTwo(ByVal strS As String) As String
Dim strHex As String, strTmp As String
Dim I As Long, K As Long
Dim strarrTwo(15) As String
Dim strR As String

strarrTwo(0) = "0000"
strarrTwo(1) = "0001"
strarrTwo(2) = "0010"
strarrTwo(3) = "0011"
strarrTwo(4) = "0100"
strarrTwo(5) = "0101"
strarrTwo(6) = "0110"
strarrTwo(7) = "0111"
strarrTwo(8) = "1000"
strarrTwo(9) = "1001"
strarrTwo(10) = "1010"
strarrTwo(11) = "1011"
strarrTwo(12) = "1100"
strarrTwo(13) = "1101"
strarrTwo(14) = "1110"
strarrTwo(15) = "1111"

strHex = Hex(strS)

K = Len(strHex)

For I = 1 To K
strTmp = Mid(strHex, I, 1)
Select Case strTmp
Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
strR = strR & strarrTwo(Val(strTmp))
Case "A", "B", "C", "D", "E", "F"
strR = strR & strarrTwo(Asc(strTmp) - 55)
End Select
Next I

GetTwo = strR
End Function

海牛 2003-09-27

打赏
举报

你的意思是：比如一个整数10，其二进制数为：1010，转换成‘1010’字符串吧！

给你一个函数（查表法）：
Private Function GetTwo(ByVal strS As String) As String
Dim strHex As String, strTmp As String
Dim I As Long, K As Long
Dim strarrTwo(15) As String
Dim strR As String

strarrTwo(0) = "0000"
strarrTwo(1) = "0001"
strarrTwo(2) = "0010"
strarrTwo(3) = "0011"
strarrTwo(4) = "0100"
strarrTwo(5) = "0101"
strarrTwo(6) = "0110"
strarrTwo(7) = "0111"
strarrTwo(8) = "1000"
strarrTwo(9) = "1001"
strarrTwo(10) = "1010"
strarrTwo(11) = "1011"
strarrTwo(12) = "1100"
strarrTwo(13) = "1101"
strarrTwo(14) = "1110"
strarrTwo(15) = "1111"

strHex = Hex(Me.Text1.Text)

K = Len(strHex)

For I = 1 To K
strTmp = Mid(strHex, I, 1)
Select Case strTmp
Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
strR = strR & strarrTwo(Val(strTmp))
Case "A", "B", "C", "D", "E", "F"
strR = strR & strarrTwo(Asc(strTmp) - 55)
End Select
Next I

GetTwo = strR
End Function

NotReady 2003-09-27