Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10266 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【22829】シーケンシャルファイルの読み込み yasu 05/3/4(金) 15:38 お礼[未読]
【22831】Re:シーケンシャルファイルの読み込み G-Luck 05/3/4(金) 16:09 発言[未読]
【22834】Re:シーケンシャルファイルの読み込み kazu 05/3/4(金) 16:44 発言[未読]
【22829】シーケンシャルファイルの読み込み
お礼  yasu E-MAIL  - 05/3/4(金) 15:38 -
引用なし
パスワード
   flno = FreeFile()　
Open Full_NG For Binary As #flno
Do While Not EOF(1)
　　Get #flno, 1, Full_MM
Loop
でやってみました
うまくいかないのです
　　お願いします
【22831】Re:シーケンシャルファイルの読み込み
発言  G-Luck  - 05/3/4(金) 16:09 -
引用なし
パスワード
   ▼yasu さん：

参考までに

　　myFNo = FreeFile
　　Open myFName For Input As #myFNo
　　myBuf = InputB(LOF(myFNo), #myFNo)
　　Close #myFNo

で、テキストは読めるんですが？バイナリはどうなんやろ？
【22834】Re:シーケンシャルファイルの読み込み
発言  kazu  - 05/3/4(金) 16:44 -
引用なし
パスワード
   これで駄目ですか？


Open Full_NG For Binary As #1
ReDim Full_MM(LOF(1)) As Byte
Get #1, 1, Full_MM
Close #1
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10266 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free