导航：首页 > 开发技术 >

怎么用vbscript实现在文本文件中搜索两个项

发表于：2024-11-24 作者：千家信息网编辑

千家信息网最后更新 2024年11月24日，这篇文章主要介绍了怎么用vbscript实现在文本文件中搜索两个项，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。代码如下:Const

千家信息网最后更新 2024年11月24日怎么用vbscript实现在文本文件中搜索两个项

这篇文章主要介绍了怎么用vbscript实现在文本文件中搜索两个项，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。

代码如下:

Const ForReading = 1
blnFound = False
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading)
strContents = objFile.ReadAll
objFile.Close
If InStr(strContents, "Windows 2000") Then
blnFound = True
End If
If InStr(strContents, "Windows XP") Then
blnFound = True
End If
If blnFound Then
Wscript.Echo "Either Windows 2000 or Windows XP appears in this file."
Else
Wscript.Echo "Neither Windows 2000 nor Windows XP appears in this file."
End If

此脚本开头定义了一个名为 ForReading 的常量，并将其值设定为 1；打开文本文件时我们将用到它。我们还创建了一个名为 blnFound 的变量，并将其值指定为 False；我们将使用此变量来跟踪是否在文件中找到了任意一个搜索术语。如果至少找到了一个术语，我们就将 blnFound 的值改为 True；否则，该值将保持 False 不变。
接下来我们打开文件 C:\Scripts\Test.txt 进行读取，然后使用 ReadAll 方法将该文件的所有内容读入名为 strContents 的变量中；实际上我们将对存储于内存中的此文件"副本"进行搜索。由于我们不再需要此物理文件，因此我们调用 Close 方法将该文件关闭。
此时，我们可进行第一次搜索了。下面这行代码使用 InStr 函数来确定是否可在变量 strContents 中的某个位置找到字符串 Windows 2000：
If InStr(strContents, "Windows 2000") Then
如果 InStr 为 True，则我们将 blnFound 的值设置为 True；如果 InStr 为 False，我们将直接跳至下一个搜索。在下一个搜索中，我们重复此过程，这次将搜索字符串 Windows XP：
If InStr(strContents, "Windows XP") Then
如果找到了 Windows 2000 或 Windows XP（或二者均找到了），则 blnFound 将为 True；如果两者均未找到，则 blnFound 将仍为 False。在脚本的末尾，我们检查 blnFound 的值，并指出是否在文件中找到了一个或多个搜索短语。
但如果您想知道文件中是否同时包含这两个搜索短语，该怎么办呢？我们将不再对此做详细阐述，但下面的脚本可告诉您是否可在文件中同时找到两个目标短语：
Const ForReading = 1
intFound = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading)
strContents = objFile.ReadAll
objFile.Close
If InStr(strContents, "Windows 2000") Then
intFound = intFound + 1
End If
If InStr(strContents, "Windows XP") Then
intFound = intFound + 1
End If
If intFound = 2 Then
Wscript.Echo "The text file contains both Windows 2000 and Windows XP."
Else
Wscript.Echo "The text file does not contain both Windows 2000 and Windows XP."
End If
是的，该脚本的确与前面的脚本很相似。最大的不同之处在于我们没有使用 True-False 变量；而是使用了一个名为 intFound 的计数器变量。该脚本首先搜索 Windows 2000；如果找到了该短语，则会将 intFound 加 1。（由于 intFound 开始时为 0，这就意味着此时 intFound 将等于 1。）
然后该脚本将搜索 Windows XP，如果找到了该短语，会将 intFound 的值加 1。最终结果如何呢？在脚本末尾，只有同时找到了两个目标短语，intFound 才会等于 2；如果 intFound 等于 0 或 1，则表示一个都没找到或只找到了一个目标短语。此时所要做的就是回显搜索结果。