Delete Line Function
復(fù)制代碼 代碼如下:
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=strNewFilestrLinevbcrlf
End If
Else
strNewFile=strNewFilestrLinevbcrlf
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實現(xiàn)讀取文本文件的方法
- 用vbscript實現(xiàn)從文本文件中刪除所有重復(fù)行的代碼
- 用vbs對文本文件的內(nèi)容進(jìn)行排序
- 用vbs實現(xiàn)對文本文件中的項計數(shù)
- 用vbs讀取文本文件的最后一行
- VBScript 文件操作代碼小結(jié)
- VBS文本文件操作實現(xiàn)代碼
