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