7,763
社区成员
发帖
与我相关
我的任务
分享
Dim a() As Byte, i As Long
Text1 = "0200030B3A00000000013231343433B903"
ReDim a(Len(Text1) \ 2 - 1)
For i = 0 To UBound(a)
a(i) = Val("&H" & Mid(Text1, i * 2 + 1, 2))
Debug.Print "&H" & Hex(a(i)) & " ";
Next i
Debug.Print
结果&H2 &H0 &H3 &HB &H3A &H0 &H0 &H0 &H0 &H1 &H32 &H31 &H34 &H34 &H33 &HB9 &H3
Option Explicit
Dim strHex As String
Private Sub Command1_Click()
Dim bytHex() As Byte
Dim i As Long
ReDim bytHex(Len(strHex) / 2 - 1)
For i = 1 To Len(strHex) Step 2
bytHex((i - 1) / 2) = Val(Mid(strHex, i, 2))
Next
For i = 0 To UBound(bytHex)
Debug.Print bytHex(i)
Next
End Sub
Private Sub Form_Load()
strHex = "0200030B3A00000000013231343433B903"
End Sub
#include <stdio.h>
char s[]="0200030B3A00000000013231343433B903";
char b[100];
int i,v;
int main() {
i=0;
while (1) {
if (1!=sscanf(s+2*i,"%2x",&v)) break;
b[i]=(char)v;
i++;
if (i>=100) break;
}
n=i;
for (i=0;i<n;i++) printf("b[%d]==0x02X\n",i,(unsigned char)b[i]);
return 0;
}