アスキーコードから数字に変換

質問

アスキーコードで送られてきた４つのデータを数字に変換する方法を教えてください。
４つのデータはいっぺんに送られてくるのでアスキーコード文字数は１６です。（ひとつのデータは４文字です）
よろしくお願いします。

回答No.1

2ch · ベストアンサー

Sub Main()
　　Dim strWk　 As String

　　strWk = "82A082D982BD82EA"

　　MsgBox Funcほげ(strWk)

End Sub

Function Funcほげ(inAscCd As String) As String
　　Const DEF_STR_SPLIT_PNT As Integer = 4
　　Dim i　　　　　 As Integer
　　Dim strAscCd　　As String
　　Dim strRet　　　 As String

　　For i = 1 To Len(inAscCd) Step DEF_STR_SPLIT_PNT
　　　　strAscCd = "&H" & Mid$(inAscCd, i, DEF_STR_SPLIT_PNT)
　　　　strRet = strRet & Chr$(CLng(strAscCd))
　　Next i

　　Funcほげ = strRet
End Function

お礼

ありがとうございます。理解できました。

回答No.3

imogasi

例。
Sub test01()
a = "4956679450379787"
For i = 1 To 16 Step 2
s = s & Chr(Mid(a, i, 2))
Next i
MsgBox s
End Sub

お礼

ありがとうございます。理解できました。

回答No.2

BLUEPIXY

Sub test()
Dim str As String
Dim strWk As String
Dim num(4) As Integer
Dim i

str = "3132333435363738"
strWk = ""
For i = 1 To Len(str) Step 2
strWk = strWk & Chr("&h" & Mid(str, i, 2))
Next
For i = 0 To 3
num(i) = Val(Mid(strWk, 2 * i + 1, 2))
MsgBox num(i)
Next
End Sub

お礼

ありがとうございます。理解できました。