Use AppleScript to remove a specific word/phrase from Multiple Folder names

Question

Within one of my folders I have hundreds of Folders that have specific words or phrases in the names I would like to remove using apple script.
For instance if the folder names all contain the word "Default" what script could I write to remove "Default" from the names of all folders with it in the name.
So, if folder is named "bobDefault"  how could I get it to remove Default and keep bob and then continue on the rest of the folder names within the main folder.  I appreciate any help you may provide.

Answer 1

The following should do the trick (if there's always a space before the left parenthesis):
set theFolder to choose folder
tell application "Finder" to set theNames to name of folders of theFolder
set theNewNames to {}
repeat with thisName in theNames
     set P1 to offset of "(" in thisName
     set P2 to offset of ")" in thisName
     if P1 * P2 > 0 then
           try
                 get (text (P1 + 1) thru (P2 - 1) of thisName) as integer
                 set theString to text P1 thru P2 of thisName
                 set thisName to replace(space & theString, "", thisName)
           on error
                 -- no change
           end try
     end if
     copy thisName to the end of theNewNames
end repeat
tell application "Finder" to repeat with k from 1 to (count theNames)
     try
           set name of folder (item k of theNames) of theFolder to (item k of theNewNames)
     end try
end repeat
on replace(A, B, theText)
     set {TID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, {A}}
     set {theTextItems, AppleScript's text item delimiters} to {text items of theText, {B}}
     set {theText, AppleScript's text item delimiters} to {theTextItems as text, TID}
     return theText
end replace