Find Replace

Initial post: 21-Jan-2005
Purpose:
Convert one string to another in a file which is dragged onto the EXE or that is passed by commandline.
Notes:
This solution employs more of a "brute force" approach than one using FileRead("filename", FileGetSize("filename")) .. but has the advantage of being able to handle large files far more efficiently!
Illustrates:
Text file processing, including output to a LOG file.
Commandline processing.
A trick for testing before compile-and-deploy.
Elementary usage of a UDF.
Hungarian notation and proper indentation.
How to get around without "goto".
Various methods of AU3 script deployment.
 ; ----------------------------------------------------------------------------
 ;
 ; AutoIt Version: 3.0.103.xxx
 ; Language:       English
 ; Author:         Trids 
 ;
 ;   SCRIPT FUNCTION:
 ;   =================
 ;   an applet to convert a particular string to another in a file
 ;   which is dragged onto the EXE or that is passed by commandline
 ;
 ;   FEATURES
 ;   =================
 ;   + Can handle huge files (based on a request from a DBA 
 ;     to edit her test-scripts of around 200Mb).
 ;   + Prompts the user for ..
 ;       o Search String.
 ;       o Replace String 
 ;         (defaults with Search String for easy modification).
 ;       o Output file name 
 ;         (defaults to Input filename with ".DAT" appendix).
 ;
 ;   REQUIREMENTS
 ;   =================
 ;   + Commandline parameters
 ;       o Reference to an input file which has strings to replace.
 ;   + There may be scope in the future to make adjustments to allow
 ;     the utility to be run in a scheduled manner <-- in which case,
 ;     we would replace the current user-prompts with further
 ;     commandline parameters.
 ;
 ;   RESULTS
 ;   =================
 ;   - Output file with edits applied.
 ;   - Errors and other events are reported to a *.LOG file 
 ;     based on the same name and path as the script.
 ;
 ;   DEPLOYMENT
 ;   =================
 ;   - Since the applet expects to receive an input file reference from 
 ;     the commandline, there are several ways to launch the utility.
 ;       o Drag-and-Drop: just drag the input file onto the icon 
 ;         of the compiled EXE, or onto a shortcut to the EXE.
 ;       o SendTo: create a shortcut to the EXE, and place this shortcut in 
 ;         the "SendTo" folder. This will allow the user to rightclick on 
 ;         an input file and follow the "Send To" popup menu item to pass 
 ;         the file to the EXE.
 ;   
 ; ----------------------------------------------------------------------------
 Global $gsFileLOG = StringTrimRight(@ScriptFullPath,3) & "LOG"
 
     _WriteLog(@LF & @SCRIPTNAME & " .. starting")
     
 ; ----------------------------------------------------------------------------
 ; Confirm that a commandline reference to a valid input file was passed
 ; ----------------------------------------------------------------------------
     
     $sMsg = ""
     If @COMPILED Then
         ;PROD --> Check for commandline parameter and validate
         ;PROD --> Check for commandline parameter and validate
         ;PROD --> Check for commandline parameter and validate
         If $CmdLine[0] = 0 Then
             $sMsg = "*** ERROR *** No commandline reference was provided, to a TXT file to reformat."
             $sFile_IN = ""
         Else
             $sFile_IN = $CmdLine[1]
         Endif
         If FileExists($sFile_IN) Then
             ;cool
         Else
             $sMsg = "*** ERROR *** The input file to reformat does not exist: """ & $sFile_IN & """"
         Endif
     Else
         ;TEST --> provide default for testing
         ;TEST --> provide default for testing
         ;TEST --> provide default for testing
         $sFile_IN = "P:\bigfile.out"
         MsgBox(4096,"Debug mode", "File to reformat = """ & $sFile_IN & """")
     Endif     
 
 ; ----------------------------------------------------------------------------
 ; Reformat and write
 ; ----------------------------------------------------------------------------
     While 1     ;<-- dummy loop to avoid goto ;o)
         ;check for error in dragged filename
         If $sMsg <> "" Then 
             _WriteLog($sMsg)
             ExitLoop
         Endif
         
         $sFile_IN = FileGetLongName($sFile_IN)
         
         ;get and check the search string
         $sStr_Find = InputBox(@ScriptName, $sFile_IN & @LF & @LF & ".. FIND this:", "", "", 430, 150)
         If $sStr_Find = "" Then
             _WriteLog("*** ERROR *** Search string must not be empty.")
             ExitLoop
         Else
             _WriteLog("FIND string = """ & $sStr_Find & """")
         Endif
             
         ;get and check the replacement string
         $sStr_Replace = InputBox(@ScriptName, $sFile_IN & @LF & @LF & ".. REPLACE with:", $sStr_Find, "", 430, 150)
         If $sStr_Replace = "" Then
             _WriteLog("*** ERROR *** Replacement string must not be empty.")
             ExitLoop
         Else
             _WriteLog("REPLACE string = """ & $sStr_Replace & """")
         Endif
         
         ;get and check the output file name
         $sFile_OUT = $sFile_IN & ".dat"
         $sFile_OUT = InputBox(@ScriptName, "Output filename", $sFile_OUT, "", 430, 150)
         If $sFile_OUT = "" Then
             _WriteLog("*** ERROR *** Output filename must be specified.")
             ExitLoop
         Else
             _WriteLog("Output file = """ & $sFile_OUT & """")
         Endif
         
         ;apply the edits line by line - faster than manipulating a single string!
         $nFile_IN = FileOpen($sFile_IN,0)
         $nFile_OUT = FileOpen($sFile_OUT,2)
         If $nFile_IN = -1 Or $nFile_OUT = -1 Then 
             _WriteLog("*** ERROR **** problem opening files: (IN/OUT) = (" & $nFile_IN & "/" & $nFile_OUT & ")") 
         Else
             ;process the file
             $nHits = 0
             While 1
                 $sData = FileReadLine($nFile_IN)
                 If @ERROR = -1 Then ExitLoop
                 $sX = StringReplace($sData, $sStr_Find, $sStr_Replace,0,0)
                 If @EXTENDED <> 0 Then $nHits = $nHits + 1
                 FileWriteLine($nFile_OUT, $sX)
             Wend
             FileClose($nFile_OUT)
             FileClose($nFile_IN)        
             _WriteLog("File created: """ & $sFile_OUT & """")
             _WriteLog("Lines affected: " & $nHits )
             If $nHits Then
                 ;nothing to mention
             Else
                 MsgBox (4096 + 48, @ScriptName, "No replacements were made!")
                 _WriteLog("+++ WARNING +++ No replacements were made!")
             Endif
         Endif
         
         ;Do this all once only
         ExitLoop
     Wend
 
     _WriteLog(@SCRIPTNAME & " .. ending" & @LF & @LF)
 
 
 Func _WriteLog($psText)
     FileWriteLine($gsFileLOG , @YEAR & "-" & @MON & "-" & @MDAY & " (" & @HOUR & ":" & @MIN & ":" & @SEC & "): " & $psText)
 EndFunc
Find Replace

Navigation menu
