VBS教程:属性-Column 属性

时间:2022-06-01 17:52:06

Column 属性

只读属性,返回 TextStream 文件中当前字符位置的列号。

object.Column

object 通常是 TextStream 对象的名称。

说明

在写入新行字符后,但在写其他字符前,Column 等于 1。

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

Function GetColumn  Const ForReading = 1, ForWriting = 2  Dim fso, f, m  Set fso = CreateObject("Scripting.FileSystemObject")  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)  f.Write "世界你好!"   f.Close  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)  m =  f.ReadLine  GetColumn = f.ColumnEnd Function