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