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 [28.12.2021 22:11] – [Таблица] Виталий Якоб | 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] – Виталий Якоб | ||
---|---|---|---|
Строка 58: | Строка 58: | ||
{{ : | {{ : | ||
+ | |||
+ | **[UPDATE: 19.01.2022]** | ||
+ | |||
+ | Адаптация задачи на AppleScript для выполнения в Команды.app или Automator.app, | ||
+ | В случае использования Команды.app для работы необходимо разрешить выполнение скриптов в настройках, | ||
+ | |||
+ | |||
+ | <code AppleScript> | ||
+ | set theString to the clipboard | ||
+ | set countwords to count words of theString | ||
+ | |||
+ | if countwords is equal to 3 then | ||
+ | |||
+ | set toTranslit to theString | ||
+ | |||
+ | set RULow1 to " | ||
+ | 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 to {RULow1, RULow2, RULow3, RULow4, RULow5, RULow6, ¬ | ||
+ | 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' | ||
+ | repeat with i from 1 to count of sourceList | ||
+ | considering case | ||
+ | set toTranslit to findReplace(item i of sourceList, ¬ | ||
+ | item i of targetList, toTranslit) | ||
+ | end considering | ||
+ | end repeat | ||
+ | set AppleScript' | ||
+ | |||
+ | set results to toTranslit' | ||
+ | set the clipboard to results | ||
+ | tell application " | ||
+ | delay 0.1 | ||
+ | set the clipboard to theString | ||
+ | end if | ||
+ | |||
+ | on findReplace(findText, | ||
+ | set AppleScript' | ||
+ | set sourceText to text items of sourceText | ||
+ | set AppleScript' | ||
+ | return sourceText as text | ||
+ | end findReplace | ||
+ | </ | ||
---- | ---- | ||
Строка 69: | Строка 259: | ||
---- | ---- | ||
{{: | {{: | ||
- | {{tag> | + | {{tag> |
~~DISCUSSION~~ | ~~DISCUSSION~~ |
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 — Виталий Якоб