16進文字列をＤＬＬにバイナリ形式で渡すには？ (ID:102174)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > dim bb() as byte ReDim の指定はどうされましたか? Len(aa) が 8 なので、受け側の配列としては bb(0)〜bb(3) 分の指定が必要ですよね。 > 一応、こんな感じと作ってみましたが… 一括変換という事であれば、下記のような方法もありますが、 KT さんのコードと結果は同じになるはず…。 Private Sub Form_Load() Dim aa As String aa = "5C40FEDE" Dim bb() As Byte bb = ToBinary(aa) End Sub Public Function ToBinary(ByVal text As String) As Byte() With CreateObject("Microsoft.XMLDOM").createElement("KT") .DataType = "bin.hex" .text = text ToBinary = .NodeTypedValue End With End Function