I have found, lately, that updating file names for large numbers of files to be tedious and time consuming. Lots of times I’ll find myself going through hundreds of files changing the underscore character to space, or removing some tag.
Finding this really annoying and time consuming, I decided to write and share another script with you guys.
I packaged this all up nicely so that you can test what you’re doing before you decide to commit your changes, check for case sensitivity and some other nice features.
I took some functions from from previous articles I wrote and wrapped it all up into one nice script.
Here is the output from the -? switch:
This script must be run with cscript.exe.
Syntax: cscript.exe fnfindandreplace.vbs [options] <StringToFind> <StringToRepla
ce>
Options:
-v = Verbose
-cs = Case Sensitive
-x = Commit
-r = Recursive
-q = Quiet
-? = Displays This Message
As always, questions and comments are welcome!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 |
'This script is provided under the Creative Commons license located 'at http://creativecommons.org/licenses/by-nc/2.5/ . It may not 'be used for commercial purposes with out the expressed written consent 'of NateRice.com Dim bVerbose, bCaseSensitive, vReplaceCount, bCommit, vFileCount Dim bRecursive, bQuiet, sFind, sReplace, bError Set oArgs = Wscript.Arguments Dim aArgs() ReDim aArgs(oArgs.Count) x = 0 Do Until x = oArgs.Count aArgs(x) = oArgs(x) x=x+1 Loop bError = False bCaseSensitive = False bVerbose = False bCommit = False bRecursive = False bQuiet = False For Each sOption In aArgs If Left(sOption, 1) = "-" OR Left(sOption, 1) = "/" Then ' Options ' -v = Verbose ' -cs = Case Sensitive ' -x = Commit ' -r = Recursive ' -q = Quiet If sOption = "-v" Then bVerbose = True ElseIf sOption = "-cs" Then bCaseSensitive = True ElseIf sOption = "-x" Then bCommit = True ElseIf sOption = "-r" Then bRecursive = True ElseIf sOption = "-q" Then bQuiet = True ElseIf sOption = "-?" Then ErrorHandler 2, "" bError = True End If Else If len(sFind) = 0 Then sFind = sOption ElseIf len(sOption) > 0 And len(sFind) > 0 And len(sReplace) = 0 Then sReplace = sOption End If End If Next If (len(sFind) = 0 Or len(sReplace) = 0) And Not bError Then ErrorHandler 3, "" bError = True End If vFileCount = 0 vReplaceCount = 0 If CheckInterpreter And Not bError Then If Not bQuiet OR bVerbose Then Wscript.Echo "Find: " & sFind Wscript.Echo "Replace: " & sReplace Wscript.Echo "" End If FileFindAndReplace sFind, sReplace, "", bRecursive, bCommit, bCaseSensitive If Not bQuiet OR bVerbose Then Wscript.Echo "Matches: " & vReplaceCount & " of " & vFileCount Wscript.Echo "Commit: " & bCommit Wscript.Echo "CaseSensitive: " & bCaseSensitive Wscript.Echo "Recursive: " & bRecursive End If ElseIf Not bError Then ErrorHandler 2, "" End If Sub FileFindAndReplace(sFind, sReplace, sFolder, bRecursive, bCommit, bCaseSensitive) 'This script is provided under the Creative Commons license located 'at http://creativecommons.org/licenses/by-nc/2.5/ . It may not 'be used for commercial purposes with out the expressed written consent 'of NateRice.com If bCaseSensitive Then bCS = 0 Else bCS = 1 End If Set oFARShell = CreateObject("Wscript.Shell") sCurrentDirectory = oFARShell.CurrentDirectory & "\" Set oFARShell = Nothing If len(sFolder) = 0 Then sFolder = sCurrentDirectory End If Set oFARFSO = CreateObject("Scripting.FileSystemObject") If Not oFARFSO.FolderExists(sFolder) Then ErrorHandler 1, sFolder Exit Sub End If Set oFARWorkingFolder = oFARFSO.GetFolder(sFolder) Set oFARFiles = oFARWorkingFolder.Files If bVerbose Then Wscript.Echo "Folder: " & sFolder & " - NumFiles: " & oFARFiles.Count For Each oFARFile In oFARFiles sFARFileName = oFARFile.Name If InStr(1, sFARFileName, sFind, bCS) > 0 Then If bVerbose Then Wscript.Echo " - " & sFARFileName & " -> " & Replace(sFARFileName, sFind, sReplace, 1, -1, bCS) vReplaceCount = vReplaceCount + 1 If bCommit Then oFARFile.Name = Replace(sFARFileName, sFind, sReplace, 1, -1, bCS) End If End If vFileCount = vFileCount + 1 Next If bRecursive Then For Each oFARSubFolder In oFARWorkingFolder.SubFolders FileFindAndReplace sFind, sReplace, oFARSubFolder.Path, bRecursive, bCommit, bCaseSensitive Next End If End Sub Function CheckInterpreter 'This script is provided under the Creative Commons license located 'at http://creativecommons.org/licenses/by-nc/2.5/ . It may not 'be used for commercial purposes with out the expressed written consent 'of NateRice.com 'Checks to see if we should display error messages. 'If running under cscript echoing errors to shell is ok. 'If running under wscript echoing is NOT ok because 'echoing errors will pause execution of the script. sScriptHost = LCase(Wscript.FullName) If Right(sScriptHost, 11) = "wscript.exe" Then CheckInterpreter = False Else CheckInterpreter = True End If End Function Sub ErrorHandler(vErrorNumber, sDescription) Select Case vErrorNumber Case 1 Wscript.Echo "The file or folder passed was not found: " & sDescription Case 2 Wscript.Echo "This script is provided under the Creative Commons license located" & vbCRLF & _ "at http://creativecommons.org/licenses/by-nc/2.5/ . It may not" & vbCRLF & _ "be used for commercial purposes with out the expressed written consent" & vbCRLF & _ "of NateRice.com" & vbCRLF & _ "" & vbCRLF & _ "This script must be run with cscript.exe." & vbCRLF & _ "Syntax: cscript.exe fnfindandreplace.vbs [options] <StringToFind> <StringToReplace>" & vbCRLF & _ "Options: " & vbCRLF & _ " -v = Verbose" & vbCRLF & _ " -cs = Case Sensitive" & vbCRLF & _ " -x = Commit" & vbCRLF & _ " -r = Recursive" & vbCRLF & _ " -q = Quiet" & vbCRLF & _ " -? = Displays This Message" Case 3 Wscript.Echo "The arguements for find and replace were not found." & vbCRLF & _ " Find: " & sFind & vbCRLF & _ " Replace: " & sReplace End Select End Sub |