假设我有字符串“A3C0”,我想将它的二进制值存储在布尔数组中。
转换后(从字符串到二进制)结果应为= 1010001111000000
然后我想将它存储在这个数组中,
dim bits_array(15) as Boolean
最后:
bits_array(0)=0
bits_array(1)=0
.
.
.
.
bits_array(15)=1
我该怎么做?
答案 0 :(得分:2)
这很容易。
Function HexStringToBinary(ByVal hexString As String) As String
Dim num As Integer = Integer.Parse(hexString, NumberStyles.HexNumber)
Return Convert.ToString(num, 2)
End Function
样本用法:
Dim hexString As String = "A3C0"
Dim binaryString As String = HexStringToBinary(hexString)
MessageBox.Show("Hex: " & hexString & " Binary: " & binaryString)
要将二进制数字输入数组,您只需执行以下操作:
Dim binaryDigits = HexStringToBinary(hexString).ToCharArray
答案 1 :(得分:1)
让s
为值 A3C0 的输入字符串,output
是存储输出的变量。
循环将迭代输入中的每个字母并将其存储在临时变量temp
中。现在看代码:
Dim s As String = "A3C0"
Dim output As String = ""
Dim temp As String = ""
For i As Integer = 1 To Len(s)
temp = Mid(s, i, 1)
output = output & System.Convert.ToString(Asc(temp), 2).PadLeft(4, "0")
' converting each letter into corresponding binary value
'concatenate it with the output to get the final output
Next
MsgBox(output)' display the binary equivalent of the input `s`
Dim array() As Char = output.ToArray()' convert the binary string to binary array
希望这实际上是你所期待的。