テキストデータをバイナリデータへ変換したいのですが (ID:121626)

名前

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

本文 残念ながら、私が教えれるヒントはもう出し尽くしてしまいました。 酷いかもしれませんが、即席のソースコードで勘弁してください(orz Function GetBytes(ByVal HexDecString As String) As Byte() '16進数表現の文字列を2文字ずつに区切り、 'その表現に対応する数値の配列を返すメソッド。 Dim i As Long Dim Length As Long Dim ret() As Byte '入力の長さを求める Length = Len(HexDecString) \ 2 If Length > 0 Then '入力がある場合だけ処理をする 'retの初期化 ReDim ret(1 To Length) 'retに代入していく For i = 1 To Length ret(i) = Val("&h" & Mid$(HexDecString, (i - 1) * 2 + 1, 2)) Next End If '戻り値を設定 GetBytes = ret End Function ※バグがあるかと思いますので、十分に注意してください。