Excel-VBA操作文件四大方法之三

11、Input 函数

语法：Input(number, [#]filenumber)
其中number 指定要返回的字符个数。

功能:返回 String，它包含以 Input 或 Binary 方式打开的文件中的字符。

说明：通常用 Print # 或 Put 将 Input 函数读出的数据写入文件。Input 函数只用于以 Input 或 Binary 方式打开的文件。
与 Input # 语句不同，Input 函数返回它所读出的所有字符，包括逗号、回车符、空白列、换行符、引号和前导空格等。

示例：
Dim MyChar
Open "f:\test.txt" For Input As #1
Do While Not EOF(1) ' 循环至文件尾。
MyChar = Input(1, #1) ' 读入一个字符。
Debug.Print MyChar ' 显示到立即窗口。
Loop
Close #1

下面这个函数可以将文本文件的数据一次读入到一个字符串（但是若包含中文时会出错，因为一个中文字占2个字节）。

Public Function ReadText(FileName As String)

Dim fnum%, isopen As Boolean
On Error GoTo erro
fnum = FreeFile()
Open FileName For Input As #fnum
isopen = True
ReadText = Input(LOF(fnum), fnum)

erro:
If isopen Then Close #fnum
If err Then Debug.Print err.Number, err.Description

End Function

12、Print # 语句

语法：Print #filenumber, [outputlist]

outputlist 参数的设置如下：
[{Spc(n) | Tab[(n)]}] [expression] [charpos]

Spc(n) 用来在输出数据中插入空白字符，而 n 指的是要插入的空白字符数。 
Tab(n) 用来将插入点定位在某一绝对列号上，这里，n 是列号。使用无参数的 Tab 将插入点定位在下一个打印区的起始位置。 
expression 要打印的数值表达式或字符串表达式。 
charpos 指定下一个字符的插入点。使用分号将插入点定位在上一个显示字符之后。用 Tab(n) 将插入点定位在某一绝对的列号上，用无参数的 Tab 将插入点定位在下一个打印区的起始处。如果省略 charpos，则在下一行打印下一个字符。

功能：将格式化显示的数据写入顺序文件中。

说明:通常用 Line Input # 或 Input 读出 Print # 在文件中写入的数据。

示例：
Open "F:\test.txt" For Output As #1 ' 打开输出文件。
Print #1, "This is a test" ' 将文本数据写入文件。
Print #1, ' 将空白行写入文件。
Print #1, "Zone 1"; Tab; "Zone 2" ' 数据写入两个区（print zones）。
Print #1, "Hello"; " "; "World" ' 以空格隔开两个字符串。
Print #1, Spc(5); "5 leading spaces " ' 在字符串之前写入五个空格。
Print #1, Tab(10); "Hello" ' 将数据写在第十列。

' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False: MyDate = #2/12/1969#: MyNull = Null
MyError = CVErr(32767)
' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。
' 日期将以标准的短式日期的格式显示。
Print #1, MyBool; " is a Boolean value"
Print #1, MyDate; " is a date"
Print #1, MyNull; " is a null value"
Print #1, MyError; " is an error value"
Close #1

以上代码写入的内容如下：
This is a test

Zone 1 Zone 2
Hello World
5 leading spaces 
Hello
False is a Boolean value
1969-2-12 is a date
Null is a null value
Error 32767 is an error value

13、Width # 语句

语法：Width #filenumber, width
width 必要。范围在 0–255 之间的数值表达式，在新的一行开始之前，指出在该行上可出现多少字符。如果 width 等于 0，则行的长度不受限制。width 的缺省值为 0。

功能：将一个输出行的宽度指定给用 Open 语句打开的文件。

示例：
Dim I
Open "f:\TESTFILE.txt" For Output As #1
Width #1, 5 ' 设置输出行宽为 5。
For I = 0 To 9 ' 循环 10 次。
Print #1, Chr(48 + I); ' 每行输出五个字符。
Next I
Close #1

以上代码写入的内容如下：
01234
56789

（四）处理二进制文件
打开二进制文件可以使用Open语句的Random和Binary方式打开。二进制文件读写使用Get和Put语句。

1、Put 语句

语法：Put [#]filenumber, [recnumber], varname

recnumber 可选。Variant (Long)。记录号（Random 方式的文件）或字节数（Binary 方式的文件），指明在此处开始写入。

说明：通常用 Get 将 Put 写入的文件数据读出来。

示例：
Dim num As Long, text As String
num = 12345
text = "a string"
Open "f:\data.bin" For Binary As #1 '打开或创建一个二进制文件
Put #1, , num '写入4个字节
Put #1, , text '写入8个字节（字符串长为8）
Close #1

2、Get 语句

语法：Get [#]filenumber, [recnumber], varname

recnumber 可选。Variant (Long)。记录号（Random 方式的文件）或字节数（Binary 方式的文件），以表示在此处开始读出数据。

功能：将一个已打开的磁盘文件读入一个变量之中。

说明：通常用 Put 将 Get 读出的数据写入一个文件。

示例：读取以上代码写入的内容
Dim num As Long, text As String
Open "f:\data.bin" For Binary As #1
Get #1, , num
text = Space$(8) '准备8个字节的字符串
Get #1, , text '读入
Debug.Print num, text
Close #1

在立即窗口可以看到如下内容：
12345 a string

3、Seek 语句

语法：Seek [#]filenumber, position
其中position 为介于 1～ 2,147,483,647（相当于 2^31 – 1）之间的数字，指出下一个读写操作将要发生的位置。

功能：在 Open 语句打开的文件中，设置下一个读/写操作的位置。

说明：可以用Seek语句指定Get语句的读取位置，但在 Get 及 Put 语句中指定的记录号将覆盖由 Seek 语句指定的文件位置。

示例：
Dim MaxSize, NextChar, MyChar
Open "TESTFILE" For Input As #1 
MaxSize = LOF(1) ' 取得文件的总字符数。
' 用循环读入所有记录，但是从最后的记录开始往前读。
For NextChar = MaxSize To 1 Step -1 
Seek #1, NextChar ' 设置读写位置。
MyChar = Input(1, #1) ' 读入一字符。
Next NextChar
Close #1

4、Seek 函数

语法：Seek(filenumber)

功能：返回一个 Long，在 Open 语句打开的文件中指定当前的读/写位置。

说明：在使用Get语句读取文件时，必须用LOF函数来判断是否到达文件末尾，而不是用EOF函数。可以使用Seek函数判断当前位置，然后与LOF的值比较。

示例：
Do While Seek(1) < LOF(1)
'继续读取
......
Loop

（五）总结

VBA语句的文件操作涵盖了文件操作的绝大部分内容，很多函数的使用也很简单，一般的文件读写也非常方便，特别是对文本文件。但对于复杂的文件读写，代码 的结构和维护性都不好。因此在VB6之后，微软引入了FileSystemObject对象模型，提供了面向对象的类库，来操作驱动器、文件夹和文件。但 对于二进制文件的操作，目前还只能用VBA语句。
Excel文件本身就是二进制文件，它使用的文件格式叫做BIFF(Binary Interchange File Format)，即二进制可交换文件格式（但2007开始使用OOXML格式）。关于其内部的结构，本人也在研究中。以二进制结构打开Excel文件，不 但可以读取其表格中的数据，还可以读取其所有的信息（包括密码）。注意，以Open语句打开文件，并不是我们通常的双击一个文件打开显示到屏幕上，而是将 其存放在磁盘上的数据读入到缓冲区，不是可视化的打开。这种打开是不需要密码的，即使你的Excel文件设置了打开密码，还是照打开不误，这也正是 Excel文件不安全的根源所在。我以前发过一篇关于破解的文章，里面破解VBA工程密码的方法就是用二进制替换。由于论坛不让讨论破解的话题，这里就不 再详细分析代码了，感兴趣的请自行研究。当然，Excel的其他密码也是可类似破解的，前提是你必须十分了解Excel的内部结构，知道密码放在哪里，才 能替换。知道的解密的方法，自然可以针对性的改进加密的方法。好了，这里就不再罗嗦了，如果对Excel的内部结构感兴趣，可以先看这篇文章，看懂再说。

Excel-VBA操作文件四大方法之三