Replace spaces in text with number

Scripting Forums AppleScript | Mac OS X
,
#1

Hello,

I need to replace spaces in some text with %20.

Something like:

set theText to “everybody is happy today”

with the result being “everybody%20is%20happy%20today”

Thanks!

#2

As often happens, searching for the answer is not enough. I had to actually ask for help before I could find the answer on my own.

set theText to "everybody is happy today"
set AppleScript's text item delimiters to " "
set theTextItems to text items of theText
set AppleScript's text item delimiters to "%20"
set theText to theTextItems as string
set AppleScript's text item delimiters to {""}
theText

Cheers.

#3

.or


set theText to "everybody is happy today"
set theText to do shell script "perl -e 'use URI::Escape; print uri_escape(\"" & theText & "\")';"
#4

…or

set theText to quoted form of "everybody is happy today"
set theText to do shell script "echo " & theText & " | perl -pe 's/ /%20/g'"
#5

This is really fine as it works not only with spaces but also with all other characters as @, &, %, to get URL safe enconding.
Thanks.