本页面由网页陶吧 龙犊收集整理 时间是: 02/05/06 下午 05:59:05.
页面地址: vsmthReadLine.htm
标题: ReadLine 方法  •  文件大小: 2363  •  更新时间: Sun, 05 Feb 2006 03:21:34 GMT

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 对象