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

名前

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

本文 ※もっと型を意識しましょう。 > Private Sub Command1_Click() > Dim Text_Data As String > Dim bytdat() As Byte > > Text_Data = "FF" > > bytdat() = Hex(Val("&H" & Text_Data)) ・Val("&H" & Text_Data)は内部形式DoubleのVariant型を返します。 ・Hex(number)は内部形式StringのVariant型(多分)を返します。 ・Byte()=Stringの式は、Stringの内部表現のバイト列をByte()にコピーするというものです。 よって、Hex(Val("&H" & Text_Data))は"FF"という文字列を返し、 bytdat()は"FF"という文字列のバイト列になります。 > Open "c:\test.bin" For Binary As #1 > Put #1, , bytdat > Close #1 > > End Sub ココまで書いたら…ダイジョブだよね？