vbs刪除文字檔案的行的函式

NO IMAGE

Delete Line Function
複製程式碼 程式碼如下:
Function DeleteLine(strFile, strKey, LineNumber, CheckCase)
‘DeleteLine Function by TomRiddle 2008

‘Remove line(s) containing text (strKey) from text file (strFile)
‘or
‘Remove line number from text file (strFile)
‘or
‘Remove line number if containing text (strKey) from text file (strFile)

‘Use strFile = “c:\file.txt” (Full path to text file)
‘Use strKey = “John Doe” (Lines containing this text string to be deleted)
‘Use strKey = “” (To not use keyword search)
‘Use LineNumber = “1” (Enter specific line number to delete)
‘Use LineNumber = “0” (To ignore line numbers)
‘Use CheckCase = “1” (For case sensitive search )
‘Use CheckCase = “0” (To ignore upper/lower case characters)

Const ForReading=1:Const ForWriting=2
Dim objFSO,objFile,Count,strLine,strLineCase,strNewFile
Set objFSO=CreateObject(“Scripting.FileSystemObject”)
Set objFile=objFSO.OpenTextFile(strFile,ForReading)
Do Until objFile.AtEndOfStream
strLine=objFile.Readline
If CheckCase=0 then strLineCase=ucase(strLine):strKey=ucase(strKey)
If LineNumber=objFile.Line-1 or LineNumber=0 then
If instr(strLine,strKey) or instr(strLineCase,strkey) or strKey=”” then
strNewFile=strNewFile
Else
strNewFile=strNewFile&strLine&vbcrlf
End If
Else
strNewFile=strNewFile&strLine&vbcrlf
End If
Loop
objFile.Close
Set objFSO=CreateObject(“Scripting.FileSystemObject”)
Set objFile=objFSO.OpenTextFile(strFile,ForWriting)
objFile.Write strNewFile
objFile.Close

End Function

使用方法:
DeleteLine “c:\1.txt”, “”, 1, 0

您可能感興趣的文章:

使用VBS訪問外部文字檔案一些方法和指令碼例項程式碼用vbs實現讀取文字檔案的方法用vbscript實現從文字檔案中刪除所有重複行的程式碼用vbs對文字檔案的內容進行排序用vbs實現對文字檔案中的項計數用vbs讀取文字檔案的最後一行VBScript 檔案操作程式碼小結VBS文字檔案操作實現程式碼