当处理TXT文本数据时，使用VBScript（Visual Basic Scripting Edition）可以实现多种功能，如读取、写入、编辑和搜索文本文件。以下是一个简单的VBScript示例，展示了如何读取TXT文件的内容，并将其打印到控制台（注意：VBScript本身不直接支持打印到控制台，但这里我们假设是通过某种方式，比如通过Windows Script Host运行并捕获输出来模拟）。
vbscript ' 定义文件路径 Dim filePath filePath = "C:\path\to\your\file.txt" ' 创建一个FileSystemObject对象 Dim objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") ' 检查文件是否存在 If objFSO.FileExists(filePath) Then ' 打开文件 Dim objFile Set objFile = objFSO.OpenTextFile(filePath, 1) ' 1 代表 ForReading ' 读取文件内容 Dim line Do While Not objFile.AtEndOfStream line = objFile.ReadLine ' 这里假设我们通过某种方式（如WScript.Echo）打印到控制台 ' 注意：VBScript本身没有直接的打印到控制台的功能，这里仅作示意 ' WScript.Echo line ' 取消注释这行代码如果你是在WScript环境中运行 ' 或者，你可以将内容写入到另一个文件中，或者进行其他处理 Loop ' 关闭文件 objFile.Close Else ' 文件不存在 WScript.Echo "文件不存在: " & filePath End If ' 清理 Set objFile = Nothing Set objFSO = Nothing
**注意**：
- `WScript.Echo` 是Windows Script Host (WSH) 提供的一个方法，用于在命令提示符窗口中显示信息。如果你的VBScript不是通过WSH运行的，你可能需要将输出重定向到另一个文件或其他地方。
- 上面的脚本假设文件路径是正确的，并且你有权限访问该文件。
- 如果你需要在VBScript中处理更复杂的文本数据（如搜索、替换等），你可能需要使用正则表达式或其他字符串处理函数。
- 脚本中的注释（以 `'` 开头的行）提供了关于代码如何工作的额外信息，但它们在运行时不会被执行。