Щоб форматувати текстові документи більш читабельним чином, було б непогано відформатувати вибрані тексти за допомогою яблучного сценарію, виконаного за допомогою служб контекстного меню, таким чином:

1. виберіть "текст" курсором
2. виберіть контекстне меню / послуги Пробіл (створити)
3. вибраний текст буде форматований у "TEX T"

Хтось має ноу-хау для програмування такого сценарію?

AppleScript для розширення тексту

Наступний фрагмент AppleScript додає пробіл між кожним символом рядка. Скопіюйте та вставте цей код у Програми> Утиліти> Редактор сценаріїв, щоб випробувати його:

set myText to "hello world"
set myResult to ""

repeat with c in every character in myText
    set myResult to myResult & " " & c
end repeat

display dialog myResult

Сервіс автоматизації

Використовуючи цей скрипт, ви можете використовувати Програми> Автоматизатор для створення послуги контекстного меню.

1. Запустіть Automator.app
2. Створіть новий робочий процес, виберіть Сервіс
3. Додати дію запустити AppleScript

4. Скопіюйте та вставте в сценарій:

   on run {input, parameters}
   
       set myText to input as string
       set myResult to ""
   
       repeat with c in every character in myText
           set myResult to ((myResult & " " & c) as string)
       end repeat
   
       -- Convert to upper case using `tr`
       set myResult to do shell script "echo " & quoted form of (myResult) & " | tr [:lower:] [:upper:]"
   
       return myResult
   end run

5. Виберіть " Вихід" замінює вибраний текст

6. Збережіть і протестуйте нову послугу

Щоб обраний текст був перетворений у верхній регістр, а також пробіл між кожним символом, додайте наступний рядок до сценарію, опублікованого Грем Мілном.

set myResult to do shell script "echo " & quoted form of (myResult) & " | tr [:lower:] [:upper:]"

Отже, в Automator це було б:

on run {input, parameters}

    set myText to input as string
    set myResult to ""

    repeat with c in every character in myText
        set myResult to ((myResult & " " & c) as string)
    end repeat

    set myResult to do shell script "echo " & quoted form of (myResult) & " | tr [:lower:] [:upper:]"

    return myResult

end run