ReadLine 메소드

TextStream 파일에서 전체 행(줄바꿈 문자 포함 안함)을 읽고 결과 문자열을 반환합니다.

구문

object.ReadLine( )

인수

Object: 필수. 항상 TextStream 객체의 이름입니다.

주석

다음 예에서는 ReadLine 메소드의 사용을 보여 줍니다.

예 1:

Function ReadFirstLine(filepath)
    Const ForReading = 1
    Dim fso, theFile, firstLine
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set theFile = fso.OpenTextFile(filepath, ForReading)
    firstLine = theFile.ReadLine
    theFile.Close
    ReadFirstLine = firstLine
End Function

' Usage
Dim firstLineContent
firstLineContent = ReadFirstLine("C:\Path\To\Your\File.txt")

예 2:

Function ReadFileLineByLine(filepath)
    Const ForReading = 1
    Dim fso, theFile, line
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set theFile = fso.OpenTextFile(filepath, ForReading)
    Do While Not theFile.AtEndOfStream
        line = theFile.ReadLine
     Loop
    theFile.Close
End Function

' Usage
ReadFileLineByLine "C:\Path\To\Your\File.txt"