真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網(wǎng)站制作重慶分公司

怎么用vbscript實現(xiàn)在文本文件中搜索兩個項-創(chuàng)新互聯(lián)

這篇文章主要介紹了怎么用vbscript實現(xiàn)在文本文件中搜索兩個項,具有一定借鑒價值,感興趣的朋友可以參考下,希望大家閱讀完這篇文章之后大有收獲,下面讓小編帶著大家一起了解一下。

吉木薩爾網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),吉木薩爾網(wǎng)站設(shè)計制作,有大型網(wǎng)站制作公司豐富經(jīng)驗。已為吉木薩爾近1000家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)要多少錢,請找那個售后服務(wù)好的吉木薩爾做網(wǎng)站的公司定做!

代碼如下:


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


感謝你能夠認(rèn)真閱讀完這篇文章,希望小編分享的“怎么用vbscript實現(xiàn)在文本文件中搜索兩個項”這篇文章對大家有幫助,同時也希望大家多多支持創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司,,關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道,更多相關(guān)知識等著你來學(xué)習(xí)!


網(wǎng)站名稱:怎么用vbscript實現(xiàn)在文本文件中搜索兩個項-創(chuàng)新互聯(lián)
URL地址:http://weahome.cn/article/dscijs.html

其他資訊

在線咨詢

微信咨詢

電話咨詢

028-86922220(工作日)

18980820575(7×24)

提交需求

返回頂部