Hyvä homma. Lataa ThisService (vaatii Tiikerin, toivottavasti on käytössä) ja tallenna alla oleva hieman modifioitu skripti skriptieditorilla. Sen jälkeen avaa ThisService, anna palvelulle sopiva nimi, valitse äsken tallennettu skripti, tyypiksi Both, ja halutessasi joku sopiva näppäinoikotie. Sen jälkeen voi melkein missä tahansa ohjelmassa valita pätkän tekstiä, ja sen jälkeen suorittaa tuon servicen joko näppäinoikotiellä tai File->Services -valikosta. Valittu teksti korvautuu konvertoidulla polulla.Ennustaja kirjoitti:Hei Sälli! Sehän toimii ku vettä vaan! Kiitos paljon... mites sit tuo service luodaan?
(Mail-ohjelmassa on muuten bugi, jonka vuoksi tilalle ei tule tuon skriptin tuottama teksti, vaan leikepöydän sisältö. Bugi on mainittu tuolla ThisServicen sivulla.)
Koodi: Valitse kaikki
on process(polku)
if polku does not start with "L:\" then return polku
set od to text item delimiters of AppleScript
set text item delimiters of AppleScript to {"\"}
set lista to text items 2 thru -1 of polku
set text item delimiters of AppleScript to {"/"}
set konvertoitu to "/Volumes/VERKKOLEVYNNIMI/" & lista as string
set text item delimiters of AppleScript to od
return konvertoitu
end process