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