Excel VBA質問箱 IV

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

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


35318 / 76738 ←次へ | 前へ→

【46621】Re:レコードセットのEOFについて
質問  なた E-MAIL  - 07/2/8(木) 10:43 -

引用なし
パスワード
   ▼ハチ さん:
>▼なた さん:
>>お世話になっております。
>>
>>レコードセットの最後の行ではないのにEOFが
>>なぜかTRUEになってしまいすぐにループを抜けてしまいます。
>>他のテキストファイルをすると上手く出来たりするのですが、
>>安定していません。
>>よい調べる方法などあれば是非教えてください。
>>よろしくお願いいたします。
>>
>>Dim buf As String
>>Const MyF As String = "D:\VBA\O3000.nc"
>>Dim CQ As String
>>Dim hh As String
>>  
>>Dim Fnum As Long
>>  
>>
>>  CQ = 0
>>  
>>
>>'全工具一覧
>>  Fnum = FreeFile()
>>  
>>  Open MyF For Input Access Read As #1
>>  Do Until EOF(Fnum)
>>    Line Input #1, buf
>>    If Left$(buf, 1) = "N" Then
>>      '工具文字列取得
>>      Call kougumei(buf)
>>
>>      CQ = CQ + 1
>>    End If
>>
>>  Loop
>>
>>  Close #1:
>
>FnumにFreeFile()を入れてるのに
>#1で開いてるからでは?
>#1の箇所を、#Fnumに書き直してみてください。

ご指摘ありがとうございました。
ただ、#Fnumにしても現象かわりませんでした。
2つのテキストファイルをテストしてみていて
一つはOKで一つは駄目なんです。
テキストファイルの方に"ゴミ?(EOFコード?)"みたいなのがあって、
それが原因などという事は考えられるのでしょうか?
すいません、素人で突拍子もない事をいっているかもしれませんが。
どうにか調べる方法などあれば教えてください。

0 hits

【46618】レコードセットのEOFについて なた 07/2/8(木) 9:49 質問
【46619】Re:レコードセットのEOFについて ハチ 07/2/8(木) 10:19 回答
【46621】Re:レコードセットのEOFについて なた 07/2/8(木) 10:43 質問
【46627】Re:レコードセットのEOFについて ハチ 07/2/8(木) 14:00 発言
【46628】Re:レコードセットのEOFについて りん 07/2/8(木) 14:48 発言
【46630】Re:レコードセットのEOFについて なた 07/2/8(木) 15:16 お礼
【46632】Re:レコードセットのEOFについて なた 07/2/8(木) 17:20 お礼

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