Find replace

on findReplace(theString, oldChar, newChar) -- search replace

set AppleScript's text item delimiters to oldChar

set theList to text items of theString

set AppleScript's text item delimiters to newChar

set theString to theList as text

set AppleScript's text item delimiters to ""

return theString

end findReplace

>>Ouvrir le script dans l'éditeur