VBS基础篇 - vbscript TextStream对象
文本流对象是VBScript操作文本文件的核心工具，通过文件系统对象创建或打开文本文件获取。方法包括写入、读取、读取一行、跳过、关闭，属性行尾、流尾、列、行控制读取位置。示例演示文件创建、读写、跳过。
TextStream 对象是 VBScript 中用来操作文本文件的核心工具，它在 FileSystemObject 体系中扮演着相当重要的角色。简单说，要读写文本文件，就得先拿到这个对象的句柄，而通常我们会通过 FileSystemObject 的 CreateTextFile() 或 OpenTextFile() 方法来完成这一步——相当于先找到文件，再打开一个可供操作的“通道”。
下面就来逐一拆解 TextStream 对象的方法和属性，看看它们到底能做什么，以及怎么用。
TextStream 对象的方法
| 方法 | 说明 |
| Close() | 关闭一个打开的文件 |
| Read(numchars) | 从文件中读出 numchars 个字符 |
| ReadAll() | 作为单个字符串读出整个文件 |
| ReadLine() | 作为一个字符串从文件中读出一行（直到回车符和换行） |
| Skip(numchars) | 当从文件读出时忽略 numchars 个字符 |
| SkipLine() | 当从文件读出时忽略下一行 |
| Write(string) | 向文件写入字符串 string |
| WriteLine(string) | 向文件写入字符串 string（可选）和换行符 |
| WriteBlankLines(n) | 向文件写入 n 个换行符 |
Close、Write、WriteLine 及 WriteBlankLines 的使用
Close() —— 关闭正在打开的文件，操作完成后记得调用，否则文件可能一直被占用。
WriteLine(string) —— 写入字符串并自动追加换行符，如果不传参数则只写入一个空行。
看个完整的例子，创建一个文件并写入内容：
Dim strPath,strText
strPath = "C:testing.txt"
strText = "This is Test !hello word !"
'调用函数
Call CreateFile(strPath,strText)
Sub CreateFile(strPath,strText)
Dim objFso,objStream
'创建FileSystemObject对象
Set objFso = CreateObject("Scripting.FileSystemObject")
'使用CreateTextFile()来返回一个TextStream对象句柄
Set objStream = objFso.CreateTextFile(strPath,True)
'三个Write的意思为：写入字符、写入带换行符的字符、写入3个换行符
objStream.Write(strText)
objStream.WriteLine(strText)
objStream.WriteBlankLines 3
'关闭TextStream对象
objStream.Close
End Sub
Read、ReadAll 及 ReadLine 的使用
Read(numchars) —— 从当前位置读取指定数量的字符，返回一个字符串。
ReadAll() —— 一次性读取整个文件内容，返回一个字符串。注意文件很大的时候慎用，容易撑爆内存。
ReadLine() —— 读取当前行（直到换行符，但不包含换行符本身），返回字符串。
下面的例子演示了三种读取方式的差异：
Call CreateFile("c:test.txt", "This is Test !" & vbCrLf & "hello word !")
Sub CreateFile(strPath,strText)
Dim objFso,objStream
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objStream = objFso.CreateTextFile(strPath,True)
objStream.WriteLine(strText)
'先读一行
Msgbox (objStream.ReadLine)
'重新以只读方式打开，再读取全部
Set objStream = objFso.OpenTextFile(strPath,1,true)
Msgbox (objStream.ReadAll)
'再次打开，只读前9个字符
Set objStream = objFso.OpenTextFile(strPath,1,true)
Msgbox (objStream.Read(9))
objStream.Close
End Sub
Skip、SkipLine 的使用
Skip(numchars) —— 读取时跳过指定数量的字符，相当于跳过前几个“坑位”。
SkipLine() —— 跳过一整行，直接从下一行开始读取。
来看如何用这两个方法跳过不想要的内容：
Dim strPath,strText
strPath = "C:test.txt"
Call CreateFile(strPath)
Sub CreateFile(strPath)
Dim objFso,objStream
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objStream = objFso.CreateTextFile(strPath,True)
objStream.Write "This is Test !" & vbCrLf & "hello word !"
'以只读方式打开
Set objStream = objFso.OpenTextFile(strPath,1,true)
objStream.Skip(5)
Msgbox objStream.ReadAll
Set objStream = objFso.OpenTextFile(strPath,1,true)
objStream.SkipLine
Msgbox objStream.ReadAll
objStream.Close
End Sub
TextStream 对象的属性
| 属性 | 说明 |
| AtEndOfLine | 如果文件位置指针在文件中一行的末尾则返回 True |
| AtEndOfStream | 如果文件位置指针在文件的末尾则返回 True |
| Column | 从 1 开始返回文件中当前字符的列号 |
| Line | 从 1 开始返回文件中当前行的行号 |
AtEndOfLine 与 AtEndOfStream 的区别
这两个属性经常用于循环控制，但容易混淆。简单总结：
AtEndOfLine 表示当前指针是否已经到达当前行的末尾（注意是“行”的末尾，不是文件末尾）。
AtEndOfStream 则表示是否已经到达整个文件的末尾。
下面的例子分别用这两个条件来逐字符读取文件，对比一下效果：
Dim strPath,strText
strPath = "C:test.txt"
Call CreateFile(strPath)
Sub CreateFile(strPath)
Dim objFso,objStream,str
Set objFso = CreateObject("Scripting.FileSystemObject")
'以只读方式打开，如果文件不存在则创建
Set objStream = objFso.OpenTextFile(strPath,1,true)
'如果不在行末，逐个字符读取
Do While objStream.AtEndOfLine <> true
str = str + objStream.Read(1)
Loop
msgbox str
str = ""
Set objStream = objFso.OpenTextFile(strPath,1,true)
'如果不在文件末尾，逐个字符读取
Do While objStream.AtEndOfStream <> true
str = str + objStream.Read(1)
Loop
MsgBox str
objStream.Close
End Sub
Column 与 Line 的使用
Column 返回当前字符的列号（从1开始），Line 返回当前行的行号（也是从1开始）。读取完整个文件后，可以用它们来获取文件的总行数以及最后一列的列号。
Call TestTextStream("c:test.txt")
Sub TestTextStream(strPath)
Dim objFso,objTStream,str
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTStream = objFso.OpenTextFile(strPath,1)
Do While objTStream.AtEndOfStream <> true
objTStream.ReadAll
str = str + "共有" & objTStream.Line & "行数据，光标最后所在列号为：" & objTStream.Column & vbCrLf
Loop
MsgBox str
End Sub
实战：文本读取的几个常见需求
如何读取文本最后一行数据？
一个很典型的场景：日志文件需要取最后一行。循环读取直到文件末尾，最后一行的值自然就留下了。
Dim Fso,MyFile
Dim strLine
Set Fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = Fso.OpenTextFile("C:test.txt",1)
Do Until MyFile.AtEndOfStream
strLine = MyFile.ReadLine
Loop
MyFile.Close
MsgBox strLine
如果文件末尾有空行怎么办？
上面的方法在文件末尾有空行时会返回空字符串（空行）。改进的办法：只记录非空的行。
Dim Fso,MyFile
Dim strLine
Set Fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = Fso.OpenTextFile("C:test.txt",1)
Do Until MyFile.AtEndOfStream
strNextLine = MyFile.ReadLine
If Len(strNextLine) > 0 Then
strLine = strNextLine
End If
Loop
MyFile.Close
MsgBox strLine
读取文本指定行内容
我们知道行号之后，可以用计数的方式精准定位——每读一行减1，减到0就说明到达目标行，直接退出函数。
MsgBox TestTextStream("c:test.txt",1)
Function TestTextStream(strPath,IntLine)
Dim Fso,MyFile
Set Fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = Fso.OpenTextFile(strPath,1)
Do Until MyFile.AtEndOfStream
TestTextStream = MyFile.ReadLine
IntLine = IntLine - 1
If IntLine = 0 Then
Exit Function
End If
Loop
End Function
以上就是 TextStream 对象从方法到属性的完整梳理，配合几个典型需求的代码，基本能覆盖日常文件读写的所有场景了。实际使用时，记得留意文件路径的合法性以及读写权限，否则会抛出运行时错误。如果有什么遗漏的地方，欢迎在实践中补充。
Postman是一套面向API全生命周期的开发与测试平台，可在Mac上发送和调试多种协议请求，管理集合、环境及认证信息，并完成脚本测试、模拟服务、监控、文档发布和团队协作。它适合开发、测试及运维人员使用，提供个人免费方案。
Docker Desktop 是 Docker 官方为 Mac 提供的容器开发环境，集成 Docker Engine、命令行工具、Compose、Build、Kubernetes 与图形化管理界面。
Android Studio 是 Google 面向安卓应用开发提供的官方集成开发环境，基于 IntelliJ IDEA 构建。它整合智能代码编辑、Gradle 构建、界面预览、设备模拟、性能分析、调试测试及 APK 分析等工具。
Xcode 是苹果面向 Mac 提供的官方集成开发环境，将代码编辑、项目构建、SwiftUI 实时预览、设备模拟、自动化测试、断点调试、性能分析和应用分发整合在同一套工作流中，适合开发与维护 iPhone、iPad、Mac、Apple Wa
JetBrains WebStorm 是面向 JavaScript、TypeScript 和现代 Web 技术的专业集成开发环境，可智能理解项目结构，提供代码补全、重构、错误检查、运行调试、测试及 Git 工具。
PhpStorm 是 JetBrains 推出的专业 PHP 集成开发环境，可在 Mac 上完成代码编写、智能检查、重构、调试、测试和数据库管理。它支持主流 PHP 框架、Composer、Git、Docker 与远程解释器。
JetBrains PyCharm 是面向 Python 开发者的集成开发环境，提供智能补全、代码检查、重构、调试、测试、版本控制及虚拟环境管理功能。Mac 版兼容 Intel 与 Apple 芯片，核心功能可免费使用。
IntelliJ IDEA 是 JetBrains 推出的专业集成开发环境，重点服务于 Java、Kotlin 与 JVM 项目开发。软件集成代码补全、静态检查、重构、调试、测试、版本控制及构建工具，并可借助插件扩展语言和框架支持。
Visual Studio Code 是微软提供的免费代码编辑器，支持 macOS，并为 Intel 与 Apple 芯片 Mac 提供适配版本。软件集代码编辑、调试、Git 源代码管理、集成终端和扩展市场于一体。
REAPER是Cockos开发的数字音频工作站，提供多轨音频与MIDI录制、剪辑、处理、混音和母带制作工具。Mac版兼容Intel与Apple芯片，支持AU、VST、VST3、CLAP等插件格式，并提供高度可定制的工作流程。
Adobe Audition 是面向播客、影视后期、音乐制作及内容创作者的专业音频工作站，提供波形精修、多轨录制与混音、频谱编辑、降噪修复、响度匹配和效果处理工具，并可与 Adobe Premiere 协同完成视频声音制作。
Pro Tools 是 Avid 推出的专业数字音频工作站，覆盖多轨录音、无损剪辑、MIDI 编曲、插件处理、自动化混音及声音与画面同步等工作。它拥有 Intro、Artist、Studio 和 Ultimate 等方案。
PixPix 是面向品牌、卖家和内容团队的在线 AI 图片视频创作平台，提供图视频 Agent、无限画布、图片生成、视频生成、自然语言编辑及商品套图、产品精修和带货视频等电商工具。
Postman 是面向 API 全生命周期的开发与协作平台。Windows 桌面版可用于构建和发送 HTTP、GraphQL、gRPC、WebSocket、MQTT 等请求，并提供环境变量、集合、脚本测试、模拟服务、监控、文档及团队工作区等
Docker Desktop 为 Windows 开发者提供集成式容器环境，内置 Docker Engine、命令行工具、Compose、Build 与 Kubernetes 等组件，可在本机完成镜像构建、容器运行、日志查看和资源管理。
Android Studio 是 Google 面向 Android 应用开发提供的官方集成开发环境，以 IntelliJ IDEA 为基础，集成智能代码编辑、Gradle 构建、设备模拟、界面预览、调试测试及性能分析工具，
WebStorm 是 JetBrains 面向 JavaScript、TypeScript 和现代 Web 技术打造的集成开发环境。它提供项目级代码分析、智能补全、安全重构、导航搜索，并集成调试、测试、终端、Git 与常用前端工具，
PhpStorm 是 JetBrains 面向 PHP 与现代 Web 开发打造的专业集成开发环境，提供代码补全、静态检查、重构、调试、测试、数据库、版本控制及前端语言支持。Windows 用户可直接下载安装程序，
PyCharm 是 JetBrains 推出的 Python 集成开发环境，提供智能代码补全、错误检查、重构、调试、测试、Git、终端及 Jupyter Notebook 支持。统一版安装后可体验 30 天 Pro 功能，
JetBrains IntelliJ IDEA 是以 Java、Kotlin 和 JVM 项目为核心的专业集成开发环境，提供智能补全、代码检查、安全重构、调试、测试、版本控制及构建工具集成。统一发行版的核心功能可免费用于商业和非商业项目，
Visual Studio Code 是微软推出的免费代码编辑器，Windows 版集成智能补全、代码导航、调试、终端和版本控制，并可通过扩展添加语言、格式化及远程开发能力。它启动较快、配置灵活，
REAPER 是 Cockos 推出的数字音频工作站，适用于录音、MIDI 编曲、音频编辑、混音、母带制作及声音设计。软件安装包小巧，支持多轨录制、灵活路由、自动化、第三方插件和脚本扩展，并提供完整功能的 60 天免费评估期。
Adobe Audition 是面向播客、影视后期、广播与音乐制作的专业音频工作站，提供波形编辑、多轨混音、频谱分析、录音、降噪修复和效果处理等功能。Windows 版通过 Adobe Creative Cloud 安装和管理，
Pro Tools 是 Avid 推出的专业数字音频工作站，提供多轨录音、音频剪辑、MIDI编曲、插件处理、自动化混音及影视声音制作能力。它适合音乐人、录音师、制作人和音频后期团队使用，并提供免费入门版、订阅方案及永久授权选择。