アップルスクリプトクリップボードのリストを引用符で囲みます

Question

誰でもクリップボードにあるものを取り出し、引用符で囲むようなAppleScriptを知っていますか？ （理想的にはショートカットキーによってトリガが、私は自分自身をそれを設定することができます）

例（エクセルCOLからコピーされたデータ）私はこれを見つけることができません

Beer 
Whisky 
Chronic 

が

'Beer','Whisky','Chronic' 

に変わるだろう私はApplescriptでいくつかの基本的なものを行うことができますが、私はそれがdevs/dbの管理者の多くを助けるだろうと思う！ソースを仮定

Answer 1

がプレーンテキストで、項目は改行文字
で区切られていますが

set theText to the clipboard 

との最初の行を置き換えるクリップボードから直接データを取得するには text item delimiters

set theText to "Beer 
Whisky 
Chronic" 

set {TID, text item delimiters} to {text item delimiters, {linefeed, return}} 
set theList to text items of theText 
set text item delimiters to "','" 
set theResult to "'" & (theList as text) & "'" 
set text item delimiters to TID 
theResult 

でそれを行うことができます

Answer 2

@vadianの助けを借りてありがとう - 最終的な作業スクリプト はクリップボードからの入力を受け取り、変換してクリップボードに戻します

set theText to (do shell script "pbpaste") 
set {TID, text item delimiters} to {text item delimiters, {linefeed, return}} 
set theList to text items of theText 
set text item delimiters to "','" 
set theResult to "'" & (theList as text) & "'" 
set text item delimiters to TID 
set the clipboard to theResult 
theResult 

私はautomatorを使用してサービスとして設定し、クイックトランスフォームのキーボードショートカットを割り当てました。