Visual Basic或運算符

Question

我有一些vb腳本可以搜索並替換html頁面中的文本。 它看起來像這樣： -

Const ForReading = 1 
Const ForWriting = 2 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("", ForReading) 

strText = objFile.ReadAll 
objFile.Close 

strNewText = Replace(strText, "<span>OK</span><!--test-->" , "<span class=""down"">Down</span><!--test-->") 


Set objFile = objFSO.OpenTextFile("", ForWriting) 
objFile.WriteLine strNewText 
objFile.Close 

這個偉大的工程，如果我有文字只是一個字符串替換。 但是，我需要腳本來更改以下內容。 此： -

<span class=""under-investigation"">Under investigation</span><!--test--> 

這樣： -

<span class=""down"">Down</span><!--test--> 

它應該是 '是' '或' 雖然。如果字符串顯示'OK'，則將其設爲'down'，如果字符串顯示'Under Investigation'，則將其設置爲'down'。 有誰知道我怎麼能把一個或一個函數放在那裏說'取代''取代'或'取代''取代''調查'？

很難說出我想要的，抱歉，如果我不清楚。任何問題歡迎！

非常感謝！

Answer 1

只需添加第二個Replace指令？

strNewText = Replace(strText, "<span>OK</span><!--test-->" , "<span class=""down"">Down</span><!--test-->") 
strNewText = Replace(strNewText, "<span class=""under-investigation"">Under investigation</span><!--test-->" , "<span class=""down"">Down</span><!--test-->") 

或者做這樣的事情：

If InStr(strText, "<span>OK</span><!--test-->") > 0 Then 
    strNewText = Replace(strText, "<span>OK</span><!--test-->" , "<span class=""down"">Down</span><!--test-->") 
Else 
    strNewText = Replace(strText, "<span class=""under-investigation"">Under investigation</span><!--test-->" , "<span class=""down"">Down</span><!--test-->") 
End If