Копируем делаем все красиво ывдлаоывдлаодыва


on searchReplace(theText, SearchString, ReplaceString)
 set OldDelims to AppleScript's text item delimiters
 set AppleScript's text item delimiters to SearchString
 set newText to every text item of theText
 set AppleScript's text item delimiters to ReplaceString
 set newText to newText as text
 set AppleScript's text item delimiters to OldDelims
 return newText
end searchReplace

on run {input, parameters}
 set myClip to the input
 set mytext to searchReplace(myClip, "<", "")
 set mytext to searchReplace(mytext, ">.", "")
 set mytext to searchReplace(mytext, ">", "")
 set mytext to searchReplace(mytext, "smb://serverkb.strelka.com/Projects", "")
 set findIt to "/"
 set replaceIt to "\\"
 set mylocation to "P:" & searchReplace(mytext, findIt, replaceIt)
 return mylocation
end run