text - 現在のテキスト行をコピーするためのApplescript？

Question

カラットが現在ある行全体をコピーするアップルスクリプトを作成したいと思います。しかし、かなりの量のグーグルをした後、私は空っぽになりました。何か案は？

Answer 1

(*
Save this as an application
Right click the application and select "Show Package Contents"
Add this to Info.plist between <dict> and </dict>

<key>LSBackgroundOnly</key>
    <true/>

launch the application with spotlight (command space)
*)

tell application "System Events"
    key code 123 using {command down, shift down}
    key code 124 using {command down, shift down}
    keystroke "c" using {command down}
end tell

Answer 2

以下は私がXcode9用に書いたコードです（更新された3-5-18の時点でようやく動作するようになりました）。過去25年間に使用したすべてのテキストエディタの機能が必要でした。選択のないコピーは、現在の行をコピーします。コードは、カレットがどの段落（行）にあるか、およびテキストが選択されているかどうかを判断します。同じコードを変更して、Cutを含めることができます。

このコードは、KeyboardMaestroを使用して実行します。以下の（3）アクションを追加します。実行する前に「Applescriptの実行」マクロを無効にする必要があります。無効にしないと、コード内から送信されるCommand+Cによって無限ループが発生します。マクロ「現在のマクロ」を無効にする「Applescriptを実行する」「編集ボックスにAppleScriptコードを貼り付ける」を有効にするマクロ「現在のマクロ」

また、Xcode 9キーバインディングを有効にして、Command+Lに選択行を実行させます。[テキスト]タブを使用して、アクションを減らします。

また、DefaultKeyBinding.dictファイルに以下を追加します。 https://www.maketecheasier.com/fix-home-end-button-for-external-keyboard-mac/

{
/* Remap Home/End keys to be like Windows */
"\UF729" = "moveToBeginningOfLine:"; /* Home */
"\UF72B" = "moveToEndOfLine:"; /* End */
"$\UF729" = "moveToBeginningOfLineAndModifySelection:"; /* Shift + Home */
"$\UF72B" = "moveToEndOfLineAndModifySelection:"; /* Shift + End */

/* page up/down and move the caret like Windows*/
"\UF72C"  = "pageUp:";
"\UF72D"  = "pageDown:";

/* Option Home/End keys Beginning/End of Document like Mac */
"~\UF729" = "moveToBeginningOfDocument:"; /* Ctrl + Home */
"~\UF72B" = "moveToEndOfDocument:"; /* Ctrl + End */
"$~\UF729" = "moveToBeginningOfDocumentAndModifySelection:"; /* Shift + Ctrl + Home */
"$~\UF72B" = "moveToEndOfDocumentAndModifySelection:"; /* Shift + Ctrl + End */

/* Ctrl Home/End keys Beginning/End of Document like Mac */
"^\UF729" = "moveToBeginningOfDocument:"; /* Ctrl + Home */
"^\UF72B" = "moveToEndOfDocument:"; /* Ctrl + End */
"$^\UF729" = "moveToBeginningOfDocumentAndModifySelection:"; /* Shift + Ctrl + Home */
"$^\UF72B" = "moveToEndOfDocumentAndModifySelection:"; /* Shift + Ctrl + End */
}




use AppleScript version "2.4" -- Yosemite (10.10) or later
use scripting additions
use application "Xcode-beta"

global appName

set appName to "Xcode-beta"

-- for some reason pressing command+C only works ever other time without this
--delay 0.1

tell application appName
    activate

    set theDocuments to every source document

    -- exit if no source documents are found
    if theDocuments is equal to {} then
        -- copy command must go somewhere i.e. the user might have copied an Icon.
        tell application "System Events" to keystroke "c" using {command down}
        do shell script "logger -t 'AS DEBUG' " & "Applescript CopyCurrentLine - exit if no source documents are found"

        return -- exit script
    end if

    -- Note:
    -- window 1 is where source documents live
    -- It sure would've been nice if window contained a reference to its source document but it doesn't

    -- if window has been edited its' name ends with " — Edited" and it needs to be trimed off
    set windowName to name of window 1
    if windowName ends with " — Edited" then
        set windowName to my trimText(windowName, " — Edited", "end")
    end if

    -- try to find the windows' current source document by matching window name to source document name
    repeat with theDoc in theDocuments
        set theDocName to name of theDoc

        if theDocName is equal to windowName then
            exit repeat -- found the document
        else
            set theDocName to "" -- didn't find the document
        end if
    end repeat

    -- exit if the window is not a source document
    if theDocName is equal to "" then
        -- copy command must go somewhere i.e. the user might have copied an Icon.
        tell application "System Events" to keystroke "c" using {command down}
        do shell script "logger -t 'AS DEBUG' " & "Applescript CopyCurrentLine - exit if the window is not a source document"

        return -- exit script
    end if

    --set theDoc to last source document
    set docText to the text of theDoc

    -- get location of selected text
    set {startPos, endPos} to selected character range of theDoc

    if (my isSelectedTextRangeEmpty(theDoc)) then
        -- select current line
        -- I set a keybinding in Xcode so Command+L would call the Command 'Select Line'
        tell application "System Events" to keystroke "l" using {command down}
    end if

    -- copy the selection to the clipboard
    set selectedText to my getSelectedText(theDoc, docText)

    -- restore insertion point to original location
    set selected character range of theDoc to {startPos, endPos}

    set the clipboard to selectedText
end tell

on getSelectedText(theContainer, docText)
    -- get the selected text
    set {startPos, endPos} to selected character range of theContainer

    if {endPos < startPos} then
        return ""
    else
        return (text startPos thru endPos) in docText
    end if
end getSelectedText

on isSelectedTextRangeEmpty(theContainer)
    set selectedCharacterRange to selected character range of theContainer
    set {startPos, endPos} to selectedCharacterRange

    if {endPos < startPos} or ¬
        (selectedCharacterRange is equal to {}) or ¬
        (length of selectedCharacterRange is equal to 0) then
        return true
    else
        return false
    end if
end isSelectedTextRangeEmpty

on trimText(theText, theCharactersToTrim, theTrimDirection)
    -- "beginning", "end", "both"
    set theTrimLength to the length of the theCharactersToTrim
    -- TRIM BEGINNING
    if the theTrimDirection is in {"beginning", "both"} then
        repeat while theText begins with the theCharactersToTrim
            try
                set theText to characters (theTrimLength + 1) thru -1 of theText as string
            on error
                -- the text contains nothing but the trim characters
                return ""
            end try
        end repeat
    end if
    -- TRIM ENDING
    if the theTrimDirection is in {"end", "both"} then
        repeat while theText ends with the theCharactersToTrim
            try
                set theText to characters 1 thru -(theTrimLength + 1) of theText as string
            on error
                -- the text contains nothing but the trim characters
                return ""
            end try
        end repeat
    end if
    return theText
end trimText