VBS 获取文本文件中的chat字段

在 VBScript 中，可以使用下面的代码来读取文本文件中的 "chat" 字段：

Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\test.txt")

Do Until objTextFile.AtEndOfStream
    strLine = objTextFile.ReadLine
    If InStr(strLine, "chat") Then
        WScript.Echo strLine
    End If
Loop

objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing

这段代码使用 FileSystemObject 对象打开文本文件，然后使用一个循环来读取每一行的内容。如果当前行包含 "chat" 这个字符串，就使用 WScript.Echo 函数将该行输出到控制台。

相关问题

VBS 获取目录中的文件

你可以使用以下 VBS 代码来获取目录中的文件：

Dim fso, folder, files, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\目录路径")

Set files = folder.Files
For Each file In files
    WScript.Echo file.Name
Next

在上面的代码中，你需要将 `C:\目录路径` 替换为你想要获取文件列表的目录路径。然后，遍历 `folder.Files` 集合来获取该目录下的所有文件，并使用 `WScript.Echo` 输出每个文件的名称。

VBS 获取当前目录

要获取当前目录的路径，您可以使用以下VBS脚本：

Set objFSO = CreateObject("Scripting.FileSystemObject")
currentDirectory = objFSO.GetAbsolutePathName(".")

WScript.Echo "当前目录: " & currentDirectory

上述代码使用 `FileSystemObject` 对象的 `GetAbsolutePathName` 方法来获取当前目录的绝对路径，并将其存储在 `currentDirectory` 变量中。然后，使用 `WScript.Echo` 语句将当前目录路径输出到命令行窗口。

您可以将以上代码保存为一个后缀名为.vbs的文件，并在所需目录下运行该脚本，即可获取当前目录的路径信息。