Det enklaste är väl att göra två listor där item 1 i lista 1 byts ut mot item 1 i lista 2. Jag har ett sådant i BBEdit som är lite "quick n dirty" men fungerar mycket bra.
tell application "BBEdit"
-- MacRoman till PC, men PC till MAcRoman går lika bra, byt bara namn på listorna.
-- O.B.S! 'È' måste bytas ut före 'é', eftersom 'é' byts mot 'È'
-- Både '"' och '”' byts ut mot en typografisk "fnutt" 'î'.
set from_list to {"È", "å", "Å", "ä", "Ä", "ö", "Ö", "é", "É", "ü", "Ü", "è", "—", "–", "”", "\"", ".", "´"}
set to_list to {"»", "Â", "?", "‰", "ƒ", "ˆ", "÷", "È", "…", "¸", "‹", "Ë", "ó", "ñ", "î", "î", "†", "¥"}
repeat with i from 1 to count from_list
replace (item i in from_list) using (item i in to_list) searching in selection of window 1
end repeat
end tell
Listorna kan enkelt ändras vid andra behov. Men som sagt, det finns kodbibliotek och andra lösningar om man vill det.
OBS! Mitt exempel byter även ut andra tecken. Justera listan till ditt behov. Koden kan anpassas till andra AS-miljöer
