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

名前

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

本文 本日再度挑戦しました。 しかし解決できませんでした。 試しに以下のよううなコードを書き、試したのですが、 下記の場合ですと、作成された”test.bin”のファイルを バイナリエディタで開くと、”46004600”と表示されてしまい ます。バイナリエディタで開いても、”FF”と表示されるため にはどのような変換を行えばいいのでしょうか？ ご指導の程、よろしくお願いいたします。 Private Sub Command1_Click() Dim Text_Data As String Dim bytdat() As Byte Text_Data = "FF" bytdat() = Hex(Val("&H" & Text_Data)) Open "c:\test.bin" For Binary As #1 Put #1, , bytdat Close #1 End Sub