中国DOS联盟

今天在MSDN上无意中看见文件对象有 Column 属性，以前还真不知道，
然后我自己试试，发现 Line 属性也有用，
于是利用这两个属性写了几个通用函数练练手，比我以前自己去数行列方便多了，
值得注意的是他们都是从 1 开始的，而不是 0。

Const FILE_NAME = "我替春春对各位哥哥姐姐们有话说.txt"

''''''''''''''''''''''''''''''''''''''''''''''''''
' 获取指定的一行文字
'
' 参数说明：
' filespec 文件名
' line 行编号，从 1 开始
''''''''''''''''''''''''''''''''''''''''''''''''''
Function GetLine(filespec, line)

''''''''''''''''''''''''''''''''''''''''''''''''''
' 获取指定的一列文字
'
' 参数说明：
' filespec 文件名
' column 列编号，从 1 开始
' joinStr 每列的字符用什么连接起来
' defaultStr 若某行无此列，则用此字符替代
''''''''''''''''''''''''''''''''''''''''''''''''''
Function GetColumn(filespec, column, joinStr, defaultStr)

''''''''''''''''''''''''''''''''''''''''''''''''''
' 转换为古代中文版式（从右到左竖排）
'
' 参数说明：
' filespec 文件名
' blankStr 若原文件某行无此列，用此替代
' 它必须与一个汉字一样宽
' partition 转换后每列之间用此字符串分隔
''''''''''''''''''''''''''''''''''''''''''''''''''

GetColumn要2重循环，感觉不如直接mid好吧。

Originally posted by slore at 2010-2-9 12:23 AM:
GetColumn要2重循环，感觉不如直接mid好吧。

一般来说的确如此，自己编码的话使用Mid会更方便。

由于二者的工作机制不同，
Column相当于高级语言中的指针的性质，而且系统会自动在换行之后将其置于初时状态的值 1，
Mid必需要读取完整的一行文字之后才能截取其中某个位置的字符，如果某行长度太长，用ReadLine则会影响效率，而如果用 Read(length) 则无法判断是否换行，同样要二重循环，而且比用Column更麻烦。

为了说明这一点，写了下面一段代码，并刻意制造了一个很长的文本（见附件 ~$tmp01$.txt），能显著的反应出结果

Set fso  = CreateObject("Scripting.FileSystemObject")



startTime = Timer

s = ""

Set f = fso.OpenTextFile("~$tmp01$.txt")

Do Until f.AtEndOfStream

	char1 = ""

	Do Until f.AtEndOfLine

		If f.Column = 421 Then

			char1 = f.Read(1)

			Exit Do

		End If

		f.Skip 1

	Loop	

	s = s & char1

	f.SkipLine

Loop

f.Close

MsgBox "利用 Column 属性得出结果 " & s & " 耗时 " & Timer - StartTime & " 秒。"



startTime = Timer

s = ""

Set f = fso.OpenTextFile("~$tmp01$.txt")

Do Until f.AtEndOfStream

	t = f.ReadLine()

	s = s & Mid(t, 421, 1)

Loop

f.Close

MsgBox "利用 Mid 函数得出结果 " & s & ", 耗时 " & Timer - StartTime & " 秒。"