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”。有谁知道我怎么能在那里放一个Or函数来说'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

Visual Basic或运算符

1 个答案: