---------------------------------------------------
set myDialogCall to text 3 thru -4 of "
display dialog 'directParamText' ¬
default answer 'defaultAnswerText' ¬
hidden answer false ¬
buttons {'one', 'two', 'three'} ¬
default button 'one' ¬
cancel button 'three' ¬
with title 'withTitleText' with icon 1 ¬
giving up after 30
"
set myDialogCall to findReplTIDS("'", "\"", myDialogCall)
set myDialogCall to run script myDialogCall
---------------------------------------------------
--» HANDLERS
---------------------------------------------------
on findReplTIDS(_find, _replace, _string)
set oldTIDS to AppleScript's text item delimiters
set AppleScript's text item delimiters to _find
set _string to text items of _string
set AppleScript's text item delimiters to _replace
set _string to _string as text
end findReplTIDS
---------------------------------------------------
I'm using single-quotes, so I don't have to have a bunch of escaped double-quotes.
Although it would probably be safer to use a more esoteric character.
I'm using spaces as separator characters to display better in Mail, but tabs will also work.
I'd use the Satimage.osax for find/replace on my own system, but the tids method is fast enough for this job.
** I have plain-text strings set to display as a monospaced font in Script Debugger et al, for exactly this ability to neatly align text.