Line Input # Statement

순차 νŒŒμΌμ—μ„œ λ³€μˆ˜λ‘œ λ¬Έμžμ—΄μ„ μ½μ–΄μ˜΅λ‹ˆλ‹€.

ꡬ문:

Line Input #FileNumber As Integer, Var As String

맀개 λ³€μˆ˜:

FileNumber: 읽을 데이터가 ν¬ν•¨λœ 파일의 λ²ˆν˜Έμž…λ‹ˆλ‹€.λ¨Όμ € Open λ¬Έμ—μ„œ INPUT ν‚€μ›Œλ“œλ₯Ό μ‚¬μš©ν•˜μ—¬ νŒŒμΌμ„ μ—΄μ—ˆμ–΄μ•Ό ν•©λ‹ˆλ‹€.

var: κ²°κ³Όλ₯Ό μ €μž₯ν•˜λŠ” λ³€μˆ˜μ˜ μ΄λ¦„μž…λ‹ˆλ‹€.

Line Input# 문을 μ‚¬μš©ν•˜λ©΄ μ—΄λ¦° νŒŒμΌμ—μ„œ λ³€μˆ˜λ‘œ λ¬Έμžμ—΄μ„ μ½μ–΄μ˜¬ 수 μžˆμŠ΅λ‹ˆλ‹€. λ¬Έμžμ—΄ λ³€μˆ˜λŠ” 첫 번째 캐리지 리턴(Asc=13) λ˜λŠ” 쀄 λ°”κΏˆ(Asc=10)κΉŒμ§€ 쀄 λ‹¨μœ„λ‘œ μ½μŠ΅λ‹ˆλ‹€. 쀄 끝 ν‘œμ‹œλŠ” κ²°κ³Ό λ¬Έμžμ—΄μ— ν¬ν•¨λ˜μ§€ μ•ŠμŠ΅λ‹ˆλ‹€.

예:

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, "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