Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


74054 / 76732 ←次へ | 前へ→

【7148】Re:16進
質問  あらた  - 03/8/24(日) 10:18 -

引用なし
パスワード
   ▼よろずや さん:
>>ファイルをバイナリで開いて1バイトごと取り出すところで止まってしまって・・・
>見せてくれなければ間違い探しは出来ません。

コードは下記のように書いています。
ファイルには文字も含まれています。
下のコードは"A"の文字を41と取得したいのですが、"A"のままです。

Sub Test_B_File()
  Dim Fnum As Integer, i As Integer
  Dim Buf As String
  Const MyF As String = "C:\test.dat"
  
  Fnum = FreeFile()
  Open MyF For Binary Access Read As #Fnum
  For i = 1 To 5
   Buf = String(1, " ")
   Get #Fnum, i, Buf
  Next i
  Close #Fnum
End Sub

0 hits

【7134】16進 あらた 03/8/23(土) 20:52 質問
【7136】Re:16進 INA 03/8/23(土) 21:17 回答
【7138】Re:16進 あらた 03/8/23(土) 21:32 質問
【7143】Re:16進 よろずや 03/8/23(土) 23:48 発言
【7148】Re:16進 あらた 03/8/24(日) 10:18 質問
【7151】Re:16進 通りすがり 03/8/24(日) 10:47 回答
【7153】Re:16進 あらた 03/8/24(日) 11:02 発言

74054 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free