バイナリーファイルの出力 (ID:125880)

名前

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

本文 バイナリーファイルを作成しています。 typUser(i).UserIdへは 8桁のID番号が入っています。(String型） 例えば typUser(i).UserId を "12345678" とします。 これをバイナリー表示にすれば "00 BC 61 4E" となります。 そして、作成した .dat ファイルをバイナリーエディタで開いたとき"00 BC 61 4E"と表示させたいです。 bytOutputData(0) = CByte("&H" & Mid(typUser(i).UserId, 1, 2)) bytOutputData(1) = CByte("&H" & Mid(typUser(i).UserId, 3, 2)) bytOutputData(2) = CByte("&H" & Mid(typUser(i).UserId, 5, 2)) bytOutputData(3) = CByte("&H" & Mid(typUser(i).UserId, 7, 2)) の部分の格納がどうしても上手くいかず、手詰まりになりました。 どうかご教授ください。 バイナリデータを出力 strFileName = "ID001.dat" strFilePath = labOutputPath.Caption & "\" & strFileName intFileNo = FreeFile Open strFileName For Binary Access Write As #intFileNo For i = 0 To UserCount - 1 ' カードID(4) bytOutputData(0) = CByte("&H" & Mid(typUser(i).UserId, 1, 2)) bytOutputData(1) = CByte("&H" & Mid(typUser(i).UserId, 3, 2)) bytOutputData(2) = CByte("&H" & Mid(typUser(i).UserId, 5, 2)) bytOutputData(3) = CByte("&H" & Mid(typUser(i).UserId, 7, 2)) Put #intFileNo, , bytOutputData Next Close #intFileNo