欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

ReadLine 方法

從 TextStream 文件中讀入一整行字符（直到下一行，但不包括下一行字符），并返回結果字符串。

object.ReadLine

object 應為 TextStream 對象的名稱。

說明

下面例子說明如何使用 ReadLine 方法從 TextStream 文件中讀取字符并返回字符串:

Function ReadLineTextFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   MyFile.WriteLine "Hello world!"
   MyFile.WriteLine "The quick brown fox"
   MyFile.Close
   Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading)
   ReadLineTextFile = MyFile.ReadLine    ' Returns "Hello world!"
End Function

請參閱

Close 方法 | Read 方法 | ReadAll 方法 | Skip 方法 | SkipLine 方法 | Write 方法 | WriteLine 方法 | WriteBlankLines 方法

應用于： TextStream 對象