|
▼なた さん:
>お世話になっております。
>
>レコードセットの最後の行ではないのに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に書き直してみてください。
|
|