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

Please support us!