VBS TXT filter

在VBS (Visual Basic Scripting) 中过滤 TXT 文件通常是通过遍历文件内容并应用某种条件来检索满足需求的行。这可以用于根据关键字、日期范围或其他自定义规则筛选数据。以下是一个基本的例子，展示如何按关键词过滤 TXT 文件：

Dim fso, txtFile, searchText

' 创建 FileSystemObject 对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 定义要读取的 TXT 文件名
txtFile = "your_text_file.txt"

' 设置要搜索的关键字
searchText = "你想要查找的关键词"

' 打开文件
Set file = fso.OpenTextFile(txtFile, 1)

' 检查文件是否已打开
If Not file AtEndOfStream Then
    ' 逐行读取并查找
    Do While Not file.AtEndOfStream
        Dim line = file.ReadLine()
        
        ' 使用 Like 运算符检查是否包含关键字
        If InStr(1, line, searchText, vbTextCompare) <> 0 Then
            WScript.Echo line ' 输出包含关键词的行
        End If
    Loop
    file.Close
Else
    WScript.Echo "文件为空或无法打开"
End If

Set file = Nothing
Set fso = Nothing

在这个例子中，当文件中某一行包含指定的关键词时，就会打印出来。