apple-mac-os:macos-high-sierra:how-to-create-service-of-fast-transliteration-based-on-perl-script-in-macos-high-sierra
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версия | ||
apple-mac-os:macos-high-sierra:how-to-create-service-of-fast-transliteration-based-on-perl-script-in-macos-high-sierra [19.01.2022 20:47] – Виталий Якоб | apple-mac-os:macos-high-sierra:how-to-create-service-of-fast-transliteration-based-on-perl-script-in-macos-high-sierra [07.07.2023 09:58] (текущий) – Виталий Якоб | ||
---|---|---|---|
Строка 61: | Строка 61: | ||
**[UPDATE: 19.01.2022]** | **[UPDATE: 19.01.2022]** | ||
- | Адаптация задачи на AppleScript для выполнения в Команды.app или Automator.app, | + | [[https:// |
В случае использования Команды.app для работы необходимо разрешить выполнение скриптов в настройках, | В случае использования Команды.app для работы необходимо разрешить выполнение скриптов в настройках, | ||
- | |||
<code AppleScript> | <code AppleScript> | ||
Строка 69: | Строка 68: | ||
set countwords to count words of theString | set countwords to count words of theString | ||
- | if countwords is equal to 3 then | + | if countwords is 3 then |
set toTranslit to theString | set toTranslit to theString | ||
- | set RULow1 | + | set sourceList |
- | set RULow2 to " | + | " |
- | set RULow3 to " | + | " |
- | set RULow4 to " | + | " |
- | set RULow5 to " | + | |
- | set RULow6 to " | + | |
- | set RULow7 to " | + | |
- | set RULow8 to " | + | |
- | set RULow9 to " | + | |
- | set RULow10 to " | + | |
- | set RULow11 to " | + | |
- | set RULow12 to " | + | |
- | set RULow13 to " | + | |
- | set RULow14 to " | + | |
- | set RULow15 to " | + | |
- | set RULow16 to " | + | |
- | set RULow17 to " | + | |
- | set RULow18 to " | + | |
- | set RULow19 to " | + | |
- | set RULow20 to " | + | |
- | set RULow21 to " | + | |
- | set RULow22 to " | + | |
- | set RULow23 to " | + | |
- | set RULow24 to " | + | |
- | set RULow25 to " | + | |
- | set RULow26 to " | + | |
- | set RULow27 to " | + | |
- | set RULow28 to " | + | |
- | set RULow29 to " | + | |
- | set RULow30 to " | + | |
- | set RULow31 to " | + | |
- | set RULow32 to " | + | |
- | set RULow33 to " | + | |
- | -- | + | |
- | set RUCap1 to " | + | |
- | set RUCap2 to " | + | |
- | set RUCap3 to " | + | |
- | set RUCap4 to " | + | |
- | set RUCap5 to " | + | |
- | set RUCap6 to " | + | |
- | set RUCap7 to " | + | |
- | set RUCap8 to " | + | |
- | set RUCap9 to " | + | |
- | set RUCap10 to " | + | |
- | set RUCap11 to " | + | |
- | set RUCap12 to " | + | |
- | set RUCap13 to " | + | |
- | set RUCap14 to " | + | |
- | set RUCap15 to " | + | |
- | set RUCap16 to " | + | |
- | set RUCap17 to " | + | |
- | set RUCap18 to " | + | |
- | set RUCap19 to " | + | |
- | set RUCap20 to " | + | |
- | set RUCap21 to " | + | |
- | set RUCap22 to " | + | |
- | set RUCap23 to " | + | |
- | set RUCap24 to " | + | |
- | set RUCap25 to " | + | |
- | set RUCap26 to " | + | |
- | set RUCap27 to " | + | |
- | set RUCap28 to " | + | |
- | set RUCap29 to " | + | |
- | set RUCap30 to " | + | |
- | -- | + | |
- | set ENLow1 to " | + | |
- | set ENLow2 to " | + | |
- | set ENLow3 to " | + | |
- | set ENLow4 to " | + | |
- | set ENLow5 to " | + | |
- | set ENLow6 to " | + | |
- | set ENLow7 to " | + | |
- | set ENLow8 to " | + | |
- | set ENLow9 to " | + | |
- | set ENLow10 to " | + | |
- | set ENLow11 to " | + | |
- | set ENLow12 to " | + | |
- | set ENLow13 to " | + | |
- | set ENLow14 to " | + | |
- | set ENLow15 to " | + | |
- | set ENLow16 to " | + | |
- | set ENLow17 to " | + | |
- | set ENLow18 to " | + | |
- | set ENLow19 to " | + | |
- | set ENLow20 to " | + | |
- | set ENLow21 to " | + | |
- | set ENLow22 to " | + | |
- | set ENLow23 to " | + | |
- | set ENLow24 to " | + | |
- | set ENLow25 to " | + | |
- | set ENLow26 to " | + | |
- | set ENLow27 to " | + | |
- | set ENLow28 to "" | + | |
- | set ENLow29 to " | + | |
- | set ENLow30 to "" | + | |
- | set ENLow31 to " | + | |
- | set ENLow32 to " | + | |
- | set ENLow33 to " | + | |
- | -- | + | |
- | set ENCap1 to " | + | |
- | set ENCap2 to " | + | |
- | set ENCap3 to " | + | |
- | set ENCap4 to " | + | |
- | set ENCap5 to " | + | |
- | set ENCap6 to " | + | |
- | set ENCap7 to " | + | |
- | set ENCap8 to " | + | |
- | set ENCap9 to " | + | |
- | set ENCap10 to " | + | |
- | set ENCap11 to " | + | |
- | set ENCap12 to " | + | |
- | set ENCap13 to " | + | |
- | set ENCap14 to " | + | |
- | set ENCap15 to " | + | |
- | set ENCap16 to " | + | |
- | set ENCap17 to " | + | |
- | set ENCap18 to " | + | |
- | set ENCap19 to " | + | |
- | set ENCap20 to " | + | |
- | set ENCap21 to " | + | |
- | set ENCap22 to " | + | |
- | set ENCap23 to " | + | |
- | set ENCap24 to " | + | |
- | set ENCap25 to " | + | |
- | set ENCap26 to " | + | |
- | set ENCap27 to " | + | |
- | set ENCap28 to " | + | |
- | set ENCap29 to " | + | |
- | set ENCap30 to " | + | |
- | -- | + | |
- | set sourceList | + | set targetList |
- | RULow7, RULow8, RULow9, RULow10, RULow11, RULow12, RULow13, ¬ | + | " |
- | RULow14, RULow15, RULow16, RULow17, RULow18, RULow19, ¬ | + | " |
- | RULow20, RULow21, RULow22, RULow23, RULow24, RULow25, ¬ | + | " |
- | RULow26, RULow27, RULow28, RULow29, RULow30, RULow31, ¬ | + | |
- | RULow32, RULow33, RUCap1, RUCap2, RUCap3, RUCap4, RUCap5, ¬ | + | |
- | RUCap6, RUCap7, RUCap8, RUCap9, RUCap10, RUCap11, RUCap12, ¬ | + | |
- | RUCap13, RUCap14, RUCap15, RUCap16, RUCap17, RUCap18, ¬ | + | |
- | RUCap19, RUCap20, RUCap21, RUCap22, RUCap23, RUCap24, ¬ | + | |
- | RUCap25, RUCap26, RUCap27, RUCap28, RUCap29, RUCap30} | + | |
- | set targetList to {ENLow1, ENLow2, ENLow3, ENLow4, ENLow5, ENLow6, ¬ | + | |
- | ENLow7, ENLow8, ENLow9, ENLow10, ENLow11, ENLow12, ENLow13, ¬ | + | |
- | ENLow14, ENLow15, ENLow16, ENLow17, ENLow18, ENLow19, ¬ | + | |
- | ENLow20, ENLow21, ENLow22, ENLow23, ENLow24, ENLow25, ¬ | + | |
- | ENLow26, ENLow27, ENLow28, ENLow29, ENLow30, ENLow31, ¬ | + | |
- | ENLow32, ENLow33, ENCap1, ENCap2, ENCap3, ENCap4, ENCap5, ¬ | + | |
- | ENCap6, ENCap7, ENCap8, ENCap9, ENCap10, ENCap11, ENCap12, ¬ | + | |
- | ENCap13, ENCap14, ENCap15, ENCap16, ENCap17, ENCap18, ¬ | + | |
- | ENCap19, ENCap20, ENCap21, ENCap22, ENCap23, ENCap24, ¬ | + | |
- | ENCap25, ENCap26, ENCap27, ENCap28, ENCap29, ENCap30} | + | |
set ASTID to AppleScript' | set ASTID to AppleScript' | ||
Строка 235: | Строка 92: | ||
set results to toTranslit' | set results to toTranslit' | ||
+ | --return results | ||
set the clipboard to results | set the clipboard to results | ||
tell application " | tell application " | ||
Строка 241: | Строка 99: | ||
end if | end if | ||
+ | --Обработчик | ||
on findReplace(findText, | on findReplace(findText, | ||
set AppleScript' | set AppleScript' | ||
Строка 248: | Строка 107: | ||
end findReplace | end findReplace | ||
</ | </ | ||
+ | |||
---- | ---- |
apple-mac-os/macos-high-sierra/how-to-create-service-of-fast-transliteration-based-on-perl-script-in-macos-high-sierra.txt · Последнее изменение: 07.07.2023 09:58 — Виталий Якоб