バイナリ取得について (ID:119666)

名前

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

本文 わからない場合はヘルプで調べるのが基本です。 以下、ヘルプより抜粋 > 構文 > > Get [#]filenumber, [recnumber], varname > > 引数 recnumber には、ファイル内の先頭のレコード番号またはバイト位置には 1 を、 > 2 番目のレコード番号またはバイト位置には 2 を指定します。 というわけで > Get #1, 1, bytBf これは、どこにあたる数字かわかると思うのですが。 複数バイトを表示させるには、配列にして一度に取得するか、ループで１バイトずつ取得すれば よいです。 'ループの場合 Dim iFileNo As Integer Dim strFileName As String Dim bytBf As Byte Dim strBuffer As String Dim i As Integer iFileNo = FreeFile strFileName = "c:\hogehoge.txt" Open strFileName For Binary As #iFileNo strBuffer = "" For i = 1 To 16 Get #1, i, bytBf strBuffer = strBuffer & Right$("00" & Hex(bytBf), 2) Next i MsgBox strBuffer Close #iFileNo '配列の場合 Dim iFileNo As Integer Dim strFileName As String Dim bytBf(15) As Byte Dim strBuffer As String Dim i As Integer iFileNo = FreeFile strFileName = "c:\hogehoge.txt" Open strFileName For Binary As #iFileNo Get #1, 1, bytBf strBuffer = "" For i = 0 To 15 strBuffer = strBuffer & Right$("00" & Hex(bytBf(i)), 2) Next i MsgBox strBuffer Close #iFileNo