Найти и вставить Apple Script

Question

Я нашел AppleScript ниже, который находит и заменяет ... Однако вместо замены на «401» в этом случае я хочу, чтобы он заменил на то, что находится в буфере обмена.

Так что я пытаюсь поставить что-то вроде: set stringToReplace to keystroke "v" using command down ... Но это не работает

Вот код (ожидаемый конец строки и т.д., но нашел идентификатор.):

on run {input, parameters} 

    set stringToFind to "404" 
    set stringToReplace to "401" 
    set theFile to choose file 
    set theContent to read theFile as «class utf8» 
    set {oldTID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, stringToFind} 
    set ti to every text item of theContent 
    set AppleScript's text item delimiters to stringToReplace 
    set newContent to ti as string 
    set AppleScript's text item delimiters to oldTID 
    try 
     set fd to open for access theFile with write permission 
     set eof of fd to 0 
     write newContent to fd as «class utf8» 
     close access fd 
    on error 
     close access theFile 
    end try 

    return input 
end run 

Answer 1

решаемые вопрос:

Все, что мне нужно сделать, это добавить: the clipboard после set stringToReplace to

on run {input, parameters} 

    set stringToFind to "404" 
    set stringToReplace to the clipboard 
    set theFile to choose file 
    set theContent to read theFile as «class utf8» 
    set {oldTID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, stringToFind} 
    set ti to every text item of theContent 
    set AppleScript's text item delimiters to stringToReplace 
    set newContent to ti as string 
    set AppleScript's text item delimiters to oldTID 
    try 
     set fd to open for access theFile with write permission 
     set eof of fd to 0 
     write newContent to fd as «class utf8» 
     close access fd 
    on error 
     close access theFile 
    end try 

    return input 
end run