從文本文件中刪除多行vb

我想從名稱test，test2，test3開始，從文本文件中刪除3行。我創建的以下腳本只是刪除了一個，我怎樣才能將它設置爲刪除3行？從文本文件中刪除多行vb

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

來源

2013-11-28 user3040935

如果你明白了劇本確實你不會問這個問題。另外，這不是vb.net，而是VBScript。 –

正確答案，我是新手。我仍然希望你能幫助我 – user3040935

你有這樣的一個字符串在這裏：

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

我把它留給你找出這實際上確實:-)

來源

2013-11-28 08:33:16

從文本文件中刪除多行vb

回答

相關問題