当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > VBS教程:属性-Line 属性

VBScript
VBS教程:语句-While...Wend 语句
VBS教程:VBScript 语句-Sub 语句
VBS教程:VBScript 语句-Set 语句
VBS教程:VBScript 语句-Select Case 语句
VBS教程:VBScript 语句-Rem 语句
VBS教程:VBScript 语句-ReDim 语句
VBS教程:VBScript 语句-Randomize 语句
VBS教程:VBScript 语句-Public 语句
VBS教程:VBScript 语句-Property Set 语句
VBS教程:VBScript 语句-Property Let 语句
VBS教程:VBscript语句-Property Get 语句
VBS教程:VBscript语句-Private 语句
VBS教程:VBscript语句-Option Explicit 语句
VBS教程:VBscript语句-On Error 语句
VBS教程:VBscript语句-If...Then...Else 语句
VBS教程:VBscript语句-Function 语句
VBS教程:VBscript语句-For...Next 语句
VBS教程:VBscript语句-For Each...Next 语句
VBS教程:VBscript语句-Exit 语句
VBS教程:VBscript语句-ExecuteGlobal 语句

VBScript 中的 VBS教程:属性-Line 属性


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 55 ::
收藏到网摘: n/a

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