如何根据行号删除（删除）文本文件的特定行？

Question

我有一个简单的脚本可以删除文本文件的前n行。

Const FOR_READING = 1 
Const FOR_WRITING = 2 
strFileName = "C:\scripts\test.txt" 
iNumberOfLinesToDelete = 5 

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 i=0 To UBound(arrLines) 
   If i > (iNumberOfLinesToDelete - 1) Then 
      objTS.WriteLine arrLines(i) 
   End If 
Next 

我想问一下，如果你只想在文本文件中有一个你想删除的特定行吗？含义基于文本文件的行号。

例如，

1
2
This is line 3
4
5

并且您想要删除第3行。特别是第3行。

结果：

1
2
4
5

有没有办法怎么做？

非常感谢答案和帮助。

Answer 1

感谢Ekkehard.Horner发现我的错误。

<强>更新

else if (....)

Answer 2

只是为了向@Thomas（和其他人）展示条件应该是

router-outlet + project { ... }