Eof Function

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

Syntax:

Eof (intexpression As Integer)

Return value:

Bool

Parameters:

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

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

Error codes:

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

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

Example:

Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
    aFile = "C:\Users\ThisUser\data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "This is a line of text"
    Print #iNumber, "다른 줄 텍스트입니다."
    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

Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
    aFile = "~/data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "This is a line of text"
    Print #iNumber, "This is 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