|
▼ハチ さん:
>▼なた さん:
>>お世話になっております。
>>
>>レコードセットの最後の行ではないのに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コード?)"みたいなのがあって、
それが原因などという事は考えられるのでしょうか?
すいません、素人で突拍子もない事をいっているかもしれませんが。
どうにか調べる方法などあれば教えてください。
|
|