[YouTube]PDFにYouTubeを埋め込む方法（スクリプト修正）

元の記事はこちらです

スクリプト部だけ訂正
youtu.beドメインのショートURLに対応した

(*

YouTubeのビデオをPDFに埋め込む時に利用するスクリプト

YouTubeWidgetForAcrobat.swfを利用する場合のエンベッドコードに整形します

youtu.beドメインのショートURLに対応

*)

--------------------------ダイアログを出して

display dialog "ShareからコピーしたURLを入力" default answer "" with icon 1 default button 2

--------------------------ダイアログの戻り値を格納

set theGetUrl to text returned of the result as Unicode text

--------------------------ダイアログで取得したURLに含まれる文字を確認

set theYoutubeResult to theGetUrl contains "youtube.com"

set theYoutuResult to theGetUrl contains "youtu.be"

--------------------------ドメイン別でビデオIDの取得方法がちょっと違う

if theYoutuResult is true then

--------------------------youtu.beの場合

set theVidCom to "echo " & quoted form of theGetUrl & "| awk -F \"youtu.be/\" '{print($2)}' |awk -F \"&\" '{print($1)}' " as text

set theVid to do shell script theVidCom as text

log theVid

else if theYoutubeResult is true then

--------------------------youtube.comの場合

set theVidCom to "echo " & quoted form of theGetUrl & "| awk -F \"v=\" '{print($2)}' |awk -F \"&\" '{print($1)}' " as text

set theVid to do shell script theVidCom as text

log theVid

end if

--------------------------エンベッドコードの縦横サイズ　任意

set h_width to "640" as number

set v_hight to "390" as integer

--------------------------ここからエンベッドコード

set HTMLtag to "" as Unicode text

set HTMLtag to HTMLtag & "" as Unicode text

set HTMLtag to HTMLtag & "<object width=\"" & h_width & "\" height=\"" & v_hight & "\">" as Unicode text

set HTMLtag to HTMLtag & "<param name=\"movie\" value=\"http://www.youtube.com/v/" & theVid as Unicode text

set HTMLtag to HTMLtag & "&hl=en_US&feature=player_embedded&version=2\"></param>" as Unicode text

set HTMLtag to HTMLtag & "<param name=\"allowFullScreen\" value=\"true\"></param>" as Unicode text

set HTMLtag to HTMLtag & "<param name=\"allowScriptAccess\" value=\"always\"></param>" as Unicode text

set HTMLtag to HTMLtag & "<embed src=\"http://www.youtube.com/v/" & theVid as Unicode text

set HTMLtag to HTMLtag & "&hl=en_US&feature=player_embedded&version=2\" " as Unicode text

set HTMLtag to HTMLtag & "type=\"application/x-shockwave-flash\" allowfullscreen=\"true\" " as Unicode text

set HTMLtag to HTMLtag & "allowScriptAccess=\"always\" width=\"" & h_width as Unicode text

set HTMLtag to HTMLtag & "\" height=\"" & v_hight & "\"></embed>" as Unicode text

set HTMLtag to HTMLtag & "</object>" as Unicode text

--------------------------最後に出来上がったコードをダイアログで表示

display dialog "タグが出来ましたコピーしてください" default answer HTMLtag with icon 1 default button 1

log HTMLtag

「PDF_on_youtube_V2.zip」をダウンロード