Module
Contents
Index 🔎︎

# Eof Function

파일 포인터가 파일 끝에 도달했는지 확인합니다.

## 구문:

    Eof (intexpression As Integer)

## 반환 값:

Bool

## 매개 변수:

Intexpression: 열린 파일의 번호로 평가되는 임의의 정수 식입니다.

파일의 끝을 지난 입력을 시도할 때 발생하는 오류를 방지하려면 EDF를 사용합니다. Input 또는 Get 문을 사용하여 파일에서 읽을 경우 읽은 바이트 수만큼 파일 포인터가 이동합니다. 파일의 끝에 도달하면 EOF는 "True"(-1) 값을 구합니다.

## Error codes:

5 잘못된 프로시저 호출입니다.

52 잘못된 파일 이름 또는 번호입니다.

## 예:

    Sub ExampleWorkWithAFile

    Dim iNumber As Integer

    Dim sLine As String

    Dim aFile As String

    Dim sMsg As String

        aFile = "c:\data.txt"

        iNumber = Freefile

        Open aFile For Output As #iNumber

        Print #iNumber, "First line of text"

        Print #iNumber, "Another line of text"

        Close #iNumber

        iNumber = Freefile

        Open aFile For Input As iNumber

        While Not eof(iNumber)

            Line Input #iNumber, sLine

            If sLine <>"" Then

                sMsg = sMsg & sLine & chr(13)

            End If

        Wend

        Close #iNumber

        MsgBox sMsg

    End Sub