もどる

 ファイルの末尾か否か(関数:EOF)
HOMEへ
PRODUCTSへ
LEARNING
LINKへ
LOGO
HeadLine
ORDER FORMへ
Image画像
MailTo:

もどる


(c) Copyright 2005 VBAを基礎から解説 VBA World All rights reserved.
E-Mail:info@vba-world.com
ファイルから読み込みを行っているとき、読み込み位置がファイルの末尾に達していないかどうかを確かめるために使用します。
ファイルの末尾に達していない場合は偽(False)を返し、末尾に達すると真(True)を返します。
構文解説

EOF(FileNumber)


FileNumber = FreeFile
Open PathName1 For Input As FileNumber

Do While Not EOF(FileNumber)
  :
  :
Loop

Close FileNumber1

上の例では、FreeFile 関数を使用しファイル番号を取得、そのファイル番号でファイルをインプット用(読み込み用)にオープンしている。
Do...Loop ステートメントを使用して、処理をグルグルと実行させておき、EOF関数が真(True)を返してきた時点でループを抜け出す。
EOF(FileNumber)が真(True)でない間 Do...Loop間の処理を続ける。