VB icon

Edit and manipulate text files

Email
Submitted on: 1/5/2015 11:34:00 AM
By: T Runstein (from psc cd)  
Level: Intermediate
User Rating: By 10 Users
Compatibility: ASP (Active Server Pages), VbScript (browser/client side)
Views: 2639
 
     This is a drawn out example of reading and writing with the FileScriptingObject. This is similar to copying a file, but allows rewriting specific line(s). It's intentionally overdone so that you can delete what you don't want. Includes extensive error handling. I've included lots of comments for newbies. 'T Runstein
 
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
				
'**************************************
' Name: Edit and manipulate text files
' Description:This is a drawn out example of reading and writing with the FileScriptingObject. This is similar to copying a file, but allows rewriting specific line(s). It's intentionally overdone so that you can delete what you don't want. Includes extensive error handling. I've included lots of comments for newbies.
'T Runstein
' By: T Runstein (from psc cd)
'
' Inputs:If using in VB, include reference to Microsoft Scripting Runtime
'
' Assumes:Make sure you change the file names (strpath and strFldr) or create a C:\FirstFile.txt before running the script.
'**************************************

option explicit
on error resume next
'Since this was written for Windows Scripting Host, 
'it uses VBScript which doesn't use types.
'To use this with VB, as types to the declarations
dim objFSO 	'as FileSystemObject
dim fle1	'as file
dim fle2	'as file
dim strPath	'as string
dim strFldr	'as string
dim strLine	'as string
strPath = "C:FirstFile.txt" 	'Put in the file you want to edit
strFldr = "C:TempFile.txt"
Main 'This Calls the Main sub
sub Main()
 dim rtn 'as integer
	rtn = CopyStuff() 'This calls and runs the CopyStuff function
 if rtn = 1 then 
	msgbox "Copy is complete"
 else
	msgbox "An error was found and the process was aborted. " & Cstr(rtn)
		'The & Cstr(rtn) will display the number returned by CopyStuff
		'After you've got your script running, you may want to remove this feature
 end if
'Cleanup
 if not fle1 is nothing then set fle1 = nothing
 if not fle2 is nothing then set fle2 = nothing
 if not objFSO is nothing then set objFSO = nothing
end sub
function CopyStuff()
 set objFSO = CreateObject("Scripting.FileSystemObject") 'This creates the FSO
	'I've included error handling after each step
	if err.number <> 0 then 
		msgbox "Error in Creating Object: " & err.number & "; " & err.description 
		CopyStuff = 0 'Returns this number
		exit function 'Stop processing, go back to Main
	end if
 if not objFSO.FileExists(strPath) then 'The file to copy is not present
	msgbox "The " & strPath & " file was not found on this computer"
	CopyStuff = 2
	exit function
 end if
 if objFSO.FileExists(strFldr) then
	objFSO.DeleteFile(strFldr) 'If the temp file is found, delete it
 end if
	set fle1 = objFSO.OpenTextFile(strPath) 'Open
		if err.number <> 0 then 	
			msgbox "Error opening " & strPath & ": " & err.number & "; " & err.description
			CopyStuff = 3
			exit function
		end if
	set fle2 = objFSO.CreateTextFile(strFldr) 'Create the temp file
		if err.number <> 0 then 	
			msgbox "Error creating temp ini: " & err.number & "; " & err.description
			CopyStuff = 4
			exit function
		end if
	'Here's the work horse that does the copying
	Do while not fle1.AtEndofStream 'Change this line, Change this one too
		strLine = fle1.ReadLine
		select Case strLine
			case "Change this line"
				'When the above line is found, it is replaced with the line below
				fle2.WriteLine "Changed"
			case "Change this one too"
				fle2.WriteLine "This line is changed"
			case else
				'This copies whatever was read in fle1
				fle2.WriteLine strLine
		end select
	loop
	if err.number <> 0 then 
		msgbox "Error transfering data: " & err.number & "; " & err.description
		CopyStuff = 5
		fle1.close
		fle2.close
		exit function
	end if
	
	fle1.close
	 set fle1 = nothing
	fle2.close
	 set fle2 = nothing
	
	objFSO.DeleteFile strPath, true	'This deletes the original file
	
	objFSO.MoveFile strFldr, strPath 'This moves and renames the temp file, replacing the original
	if err.number <> 0 then 
		msgbox "Error replacing " & strPath & " with new file: " & err.number & "; " & err.description
		CopyStuff = 6
	else
		CopyStuff = 1 'Remember that in Main, a 1 means successful
	end if
end function


Other 1 submission(s) by this author

 


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Intermediate category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments


 There are no comments on this submission.
 

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)
 

To post feedback, first please login.