Column 属性

object.Column

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

参数	描述
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.Column
End Function