投稿日	： 2004/08/06(Fri) 19:38
投稿者	： みなこ
ＵＲＬ	：
タイトル	： EOF　が効かない

初めて投稿させていただきます。
よろしくお願い致します。

テキストファイルを全部読み込みたいのでこのように↓してみました。


　　Open gstrDir & "Tags.txt" For Input As #intFnum

    Do Until EOF(intFnum)
        Input #intFnum, strTag(i), strDscr(i)
        
        If strTag(i) = "" Then GoTo LoopExit

        i = i + 1
        ReDim Preserve strTag(i)
        ReDim Preserve strDscr(i)
        
    Loop


しかし、「ファイルにこれ以上データがありません。６２」のエラーが出てしまいます。
EOFを検知してくれていないのでしょうか？
使い方がまずいのですか？（今までもこのように書いていましたが、エラーは出ませんでした。）

よろしくお願い致します。

★ - EOF　が効かない - みなこ 08/06-19:38No.9962
• Re: EOF　が効かない - nobu 08/06-19:52 No.9963
  • Re^2: EOF　が効かない - みなこ 08/06-20:30 No.9964
    • Re^3: EOF　が効かない - 花ちゃん 08/06-21:03 No.9965
      • Re^4: EOF　が効かない - みなこ 08/08-21:10 No.9974
        • Re^5: EOF　が効かない - 花ちゃん 08/08-22:19 No.9975