Contents

# Eof Function

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

### Syntax:

    Eof (intexpression As Integer)

### Return type:

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

관련 주제

Close Statement

Print# Statement

Input# Statement

Open Statement

Please support us!