面试题：Visual Basic中如何实现文件的读写操作

Question

在Visual Basic编程环境下，描述使用文件系统对象（FSO）和传统I/O语句这两种方式实现文件读取和写入文本内容的具体步骤，并分别给出一个简单示例代码。

Answer 1

使用文件系统对象（FSO）

1. 读取文本内容步骤：
   • 创建FileSystemObject对象实例。
   • 使用OpenTextFile方法打开要读取的文件，指定读取模式。
   • 使用ReadLine或ReadAll方法读取文件内容。
   • 关闭文件。
2. 读取文本内容示例代码：

Dim fso As New FileSystemObject
Dim ts As TextStream
Set ts = fso.OpenTextFile("C:\test.txt", ForReading)
Dim content As String
content = ts.ReadAll
ts.Close
MsgBox content

3. 写入文本内容步骤：
   • 创建FileSystemObject对象实例。
   • 使用CreateTextFile方法创建一个新文件或打开已有的文件用于写入。
   • 使用WriteLine或Write方法写入文本内容。
   • 关闭文件。
4. 写入文本内容示例代码：

Dim fso As New FileSystemObject
Dim ts As TextStream
Set ts = fso.CreateTextFile("C:\test.txt", True)
ts.WriteLine "Hello, World!"
ts.Close

使用传统I/O语句

1. 读取文本内容步骤：
   • 使用Open语句以输入模式打开文件。
   • 使用Input或Line Input语句读取文件内容。
   • 使用Close语句关闭文件。
2. 读取文本内容示例代码：

Dim content As String
Open "C:\test.txt" For Input As #1
Line Input #1, content
Close #1
MsgBox content

3. 写入文本内容步骤：
   • 使用Open语句以输出模式打开文件（若文件不存在则创建）。
   • 使用Print或Write语句写入文本内容。
   • 使用Close语句关闭文件。
4. 写入文本内容示例代码：

Open "C:\test.txt" For Output As #1
Print #1, "Hello, World!"
Close #1