property alphaList : "ABCDEFGHIJKLMNOPQRSTUVWXYZ.-@0123456789"
property phoneticList : {"Alpha", "Bravo", "Charlie", "Delta", "Echo", "Foxtrot", "Golf", "Hotel", "India", "Juliet", "Kilo", "Lima", "Mike", "November", "Oscar", "Papa", "Quebec", "Romeo", "Sierra", "Tango", "Uniform", "Victor", "Whiskey", "X-Ray", "Yankee", "Zulu", "DOT", "DASH", "AMPERSAND", "Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"}
property excludeItems : "" # exclusions if any
on phoneticLookup(someStringToLookup)
set transList to {}
set splitIt to characters of someStringToLookup
repeat with i from 1 to length of splitIt
set lookUpChar to item i of splitIt
if lookUpChar is not in excludeItems then
set offst to offset of lookUpChar in alphaList
set end of transList to item offst of phoneticList
else
set end of transList to lookUpChar
end if
end repeat
return transList
end phoneticLookup
set someStringToLookup to text returned of (display dialog "ENTER STRING TO CONVERT TO PHONETICS:" default answer "")
set phoneticLookupList to phoneticLookup(someStringToLookup)
choose from list phoneticLookupList with title ¬
"PHONETIC CONVERSION LIST" with prompt ¬
"PHONETIC CONVERSION LIST" multiple selections allowed true ¬
with empty selection allowed