VBS教程:属性-Line 属性

时间:2022-09-21 20:39:18

Line 属性

只读属性,返回 TextStream 文件中的当前行号。

object.Line

object 通常是 TextStream 对象的名称。

说明

文件刚刚打开并在写入任何信息前,Line 等于 1。

下面例子举例说明如何使用 Line 属性:

Function GetLine  Const ForReading = 1, ForWriting = 2  Dim fso, f, ra  Set fso = CreateObject("Scripting.FileSystemObject")  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)  f.Write "世界你好!" & vbCrLf & "VB脚本很有趣!" & vbCrLf  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)  ra =  f.ReadAll  GetLine = f.Line   End Function