Delete Line Function

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Delete Line Function

Logged in as: Guest

arrSession:exec spGetSession 2,16,63517

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Delete Line Function
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Delete Line Function - 8/15/2008 11:28:37 PM

TomRiddle

Posts: 191
Score: 4
Joined: 2/7/2008
Status: offline

'VBScript does not have a simple function for removing a line from a file.
'After doing a search and not finding anything decent, I wrote this function.

'Examples
option explicit

'DeleteLine "c:\test.txt", "qwerty", 0, 0
'If script finds text qwerty on any line in text file c:\text.txt it will delete that line

'DeleteLine "c:\test.txt", "", 17, 0
'Script deletes line 17 in text file c:\text.txt

DeleteLine "c:\test.txt", "qwerty", 17, 0
'If script finds text qwerty on line 17 in text file c:\text.txt it will delete that line

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

< Message edited by TomRiddle -- 8/16/2008 8:32:32 PM >

Revisions: 1 | Post #: 1

RE: Delete Line Function - 8/16/2008 4:38:38 AM

dm_4ever

Posts: 2669
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

You know that there is a Line property that shows you the line number right? objFile.Line
Also, since this may come in useful to some....maybe add the ability have it be case-sensitive or not.

< Message edited by dm_4ever -- 8/17/2008 2:26:43 PM >

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to TomRiddle)