文本框中的数据转为十六进制的数

[bugaaaaa]

我想将一个文本框里的十六进制数转换为一个十六进制的数组
比如文本框里的数为：55AA00101517
我想转换为
a（1）=55
a（2）=AA
a（3）=00
.
.
.
这样的数组。
求大神解答

[舉杯邀明月]

楼主参考一下：

Option Explicit

Private Sub Command1_Click()
   Dim a()  As Byte
   Dim strData As String
   Dim i&, k As Long

   ' 假设你的“文本框”输入的“16进制数据” 字符数为偶数个
   strData = Text1.Text
   k = Len(strData) \ 2&
   ReDim a(1 To k)      ' 你确定“数组下标”要从1开始？
   For i = 1& To k
      a(i) = Val("&H" & Mid$(strData, i + i - 1&, 2&))
   Next
End Sub

[bugaaaaa]

引用 1 楼 Runnerchin 的回复:

奇数位的情况怎么处理，结尾补0还是开头补0。 确定了这个以后，就用for循环两位一截存到数组

谢谢啦，问题解决了

[bugaaaaa]

引用 2 楼 Chen8013 的回复:

楼主参考一下：

Option Explicit

Private Sub Command1_Click()
   Dim a()  As Byte
   Dim strData As String
   Dim i&, k As Long

   ' 假设你的“文本框”输入的“16进制数据” 字符数为偶数个
   strData = Text1.Text
   k = Len(strData) \ 2&
   ReDim a(1 To k)      ' 你确定“数组下标”要从1开始？
   For i = 1& To k
      a(i) = Val("&H" & Mid$(strData, i + i - 1&, 2&))
   Next
End Sub

谢谢您，您的程序很有帮助

[X-i-n]

奇数位的情况怎么处理，结尾补0还是开头补0。 确定了这个以后，就用for循环两位一截存到数组