噼里啪啦国语在线观看免费版高清版,欧美日国产,国产精品白浆一区二小说

主頁(yè) > 知識(shí)庫(kù) > 用vbscript實(shí)現(xiàn)在文本文件中搜索兩個(gè)項(xiàng)

用vbscript實(shí)現(xiàn)在文本文件中搜索兩個(gè)項(xiàng)

問(wèn)：
您好，腳本專(zhuān)家！您曾經(jīng)介紹過(guò)如何在文本文件中搜索單個(gè)詞或短語(yǔ)，但如何在文本文件中搜索兩個(gè)短語(yǔ)呢？我想知道文件中是否包含 Windows 2000 或 Windows XP。
-- JR
答：
您好，JR。您知道，讓腳本專(zhuān)家去做一件事情就已經(jīng)夠困難的了；可見(jiàn)讓他們?nèi)プ鰞杉虑閹缀跏遣豢赡艿摹?nbsp;但我們要告訴您的是：只要您不介意我們向您介紹一種簡(jiǎn)單的方法來(lái)在文本文件中搜索多個(gè)項(xiàng)，我們就會(huì)向您介紹如何在文本文件中搜索多個(gè)項(xiàng)。
注意。為什么稱(chēng)之為“簡(jiǎn)單的方法”呢？我們不打算費(fèi)神設(shè)置數(shù)組或其他某個(gè)復(fù)雜的框架來(lái)進(jìn)行多個(gè)搜索。相反，我們打算在第一次搜索文件時(shí)搜索第一個(gè)術(shù)語(yǔ)，而后在第二次搜索文件時(shí)搜索第二個(gè)術(shù)語(yǔ)。這種方法雖不是很好，但卻很簡(jiǎn)單，且很有效。
以下是一小段簡(jiǎn)單的腳本，它可告訴您是否可在文本文件 C:\Scripts\Text.txt 中找到術(shù)語(yǔ) Windows 2000 或 Windows XP：

復(fù)制代碼代碼如下:

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 

此腳本開(kāi)頭定義了一個(gè)名為 ForReading 的常量，并將其值設(shè)定為 1；打開(kāi)文本文件時(shí)我們將用到它。我們還創(chuàng)建了一個(gè)名為 blnFound 的變量，并將其值指定為 False；我們將使用此變量來(lái)跟蹤是否在文件中找到了任意一個(gè)搜索術(shù)語(yǔ)。如果至少找到了一個(gè)術(shù)語(yǔ)，我們就將 blnFound 的值改為 True；否則，該值將保持 False 不變。
接下來(lái)我們打開(kāi)文件 C:\Scripts\Test.txt 進(jìn)行讀取，然后使用 ReadAll 方法將該文件的所有內(nèi)容讀入名為 strContents 的變量中；實(shí)際上我們將對(duì)存儲(chǔ)于內(nèi)存中的此文件“副本”進(jìn)行搜索。由于我們不再需要此物理文件，因此我們調(diào)用 Close 方法將該文件關(guān)閉。
此時(shí)，我們可進(jìn)行第一次搜索了。下面這行代碼使用 InStr 函數(shù)來(lái)確定是否可在變量 strContents 中的某個(gè)位置找到字符串 Windows 2000：
If InStr(strContents, "Windows 2000") Then
如果 InStr 為 True，則我們將 blnFound 的值設(shè)置為 True；如果 InStr 為 False，我們將直接跳至下一個(gè)搜索。在下一個(gè)搜索中，我們重復(fù)此過(guò)程，這次將搜索字符串 Windows XP：
If InStr(strContents, "Windows XP") Then
如果找到了 Windows 2000 或 Windows XP（或二者均找到了），則 blnFound 將為 True；如果兩者均未找到，則 blnFound 將仍為 False。在腳本的末尾，我們檢查 blnFound 的值，并指出是否在文件中找到了一個(gè)或多個(gè)搜索短語(yǔ)。
但如果您想知道文件中是否同時(shí)包含這兩個(gè)搜索短語(yǔ)，該怎么辦呢？我們將不再對(duì)此做詳細(xì)闡述，但下面的腳本可告訴您是否可在文件中同時(shí)找到兩個(gè)目標(biāo)短語(yǔ)：
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
是的，該腳本的確與前面的腳本很相似。最大的不同之處在于我們沒(méi)有使用 True-False 變量；而是使用了一個(gè)名為 intFound 的計(jì)數(shù)器變量。該腳本首先搜索 Windows 2000；如果找到了該短語(yǔ)，則會(huì)將 intFound 加 1。（由于 intFound 開(kāi)始時(shí)為 0，這就意味著此時(shí) intFound 將等于 1。）
然后該腳本將搜索 Windows XP，如果找到了該短語(yǔ)，會(huì)將 intFound 的值加 1。最終結(jié)果如何呢？在腳本末尾，只有同時(shí)找到了兩個(gè)目標(biāo)短語(yǔ)，intFound 才會(huì)等于 2；如果 intFound 等于 0 或 1，則表示一個(gè)都沒(méi)找到或只找到了一個(gè)目標(biāo)短語(yǔ)。此時(shí)所要做的就是回顯搜索結(jié)果。

標(biāo)簽：周口漳州玉林六安延安嘉興臺(tái)灣廣安

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用vbscript實(shí)現(xiàn)在文本文件中搜索兩個(gè)項(xiàng)》，本文關(guān)鍵詞用,vbscript,實(shí),現(xiàn)在,文本,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。