Vbscript 从vb文本文件中删除多行

我想从文本文件中删除3行，从名称test、test2、test3开始。 我创建的以下脚本只删除了一行，如何将其设置为删除这3行

Const FOR_READING = 1
Const FOR_WRITING = 2
strFileName = "c:\test.txt"
strCheckForString = UCase("Directory")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objTS = objFS.OpenTextFile(strFileName, FOR_READING)
strContents = objTS.ReadAll
objTS.Close

arrLines = Split(strContents, vbNewLine)
Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING)

For Each strLine In arrLines
   If Not(Left(UCase(LTrim(strLine)),Len(strCheckForString)) = strCheckForString) Then  
      objTS.WriteLine strLine    
   End If
Next

---

这里有一个字符串：

strCheckForString = UCase("Directory")

（顺便说一下，您可以这样编写

strCheckForString=“DIRECTORY”

）

您可以像这样添加其他字符串

strCheckForString1 = "AnotherString"
strCheckForString2 = "ThirdString"

然后，在循环内部，您需要检查其他字符串是否也匹配

If Not(Left(UCase(LTrim(strLine)),Len(strCheckForString)) = strCheckForString) AND
   Not(Left(UCase(LTrim(strLine)),Len(strCheckForString1)) = strCheckForString1) AND
   Not(Left(UCase(LTrim(strLine)),Len(strCheckForString2)) = strCheckForString2) Then  
   objTS.WriteLine strLine    
End If

---

我将让您自己去弄清楚这个脚本的实际功能：-）

如果您理解了脚本的真正功能，您就不会问这个问题。另外，这不是vb.net，而是VBScript。回答正确，我不熟悉这一点。我还是希望你能帮我