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