Safariの最前面のウインドウからテキストを得る | 趣味のためのMacに関するサイト

テキストのコピペのためのスクリプト。テキスト量が多いときに便利です。

プレーンテキストへしたほうが良かったかも。

tell application “Safari“
open location theURL
–delay 10
tell front document (*windowにするとエラー*)
activate
set theName to name
set theURL to URL (**)
set theText to every text
end tell
end tell
tell application “Jedit X“
activate
tell document 1
–delay 5
set paragraph 1 to “ “ & return (*あとで張り付けるためのスペースを空けておかないとエラー*)
set paragraph 2 to return & “タイトルは “ & theName & return & “URLは “ & theURL & return
set paragraph 5 to “––––––––––––––––––ここからペースト“ & return & theText
–set timeB to current date
set {size, font} to {12, “ヒラギノ角ゴ Pro“}
–set theTime to (timeB – timeA)
set theCount to count paragraph
–set color of every paragraph to {65535, 0, 0}(*文字を赤くする*)
set paragraph 1 to “行数は“ & theCount & “です｡“
–(*”コピーにかかった時間は” & theTime & “秒､*)
end tell
end tell

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

ページトップに戻る↑　　　　　　　　　　　　　　　　　　　　　　　　　　　ページ一番下へ↓

Mac