tell application "Finder" activate if (clipboard info for string) = {} then error "Clipboard Error" else set text item delimiters AppleScript to return set B0 to every text item of (the clipboard) set B0 to B0 as string set B0 to every character of B0 end if set text item delimiters AppleScript to "," set A3 to every text item of (text returned of (display "Blank" default answer (A0 as string) & "," & (A1 as string) buttons {"OK"} default button 1) set text item delimiters AppleScript to "" set A4 to text returned of (display "Line" default answer (A2 as string) buttons {"OK"} default button 1) set {A5, A6} to {item 1 of A3, item 2 of A3}
12 ：02/09/12
if (count A3) /= 2 then error "Input Error" else try set {A7, A8} to {A5 as number, A6 as number} on error error "Input Error" end try end if if A7 > A8 then error "Input Error" else try set A9 to A4 as number on error error "Input Error" end try set {A0, A1, A2} to {A7, A8, A9} end if display "Blank : " & A5 & " - " & A6 & return & "Line : " & A4 ---- ここに文字列処理のステップを挿入してくださいにゃあ ---- set the clipboard to "目標>>" & return & "★対ヨゴレ用Macスティンガーミサイル発射" & return & return & return & return & B2 & return & return & return & "★宇宙のゴミとなってしまいました" & return & "★Macによって宇宙の平和と正義は守られました" & return & "★終わり" beep of 2 display "Completed" buttons {"OK"} default Button 1 end tell
tell application "Finder" activate if (clipboard info for string) = {} then error "Clipboard Error" else set A to the clipboard set B0 to{"あ","い","う","え","お","ぁ","ぃ","ぅ","ぇ","ぉ","か","き","く","け","こ", "が","ぎ","ぐ","け","ご","さ","し","す","せ","そ","ざ","じ","ず","ぜ","ぞ", "た","ち","つ","て","と","だ","ぢ","づ","で","ど","っ","な","に","ぬ","ね","の", "は","ひ","ふ","へ","ほ","ば","び","ぶ","べ","ぼ","ぱ","ぴ","ぷ","ぺ","ぽ", "ま","み","む","め","も","や","ゆ","よ","ゃ","ゅ","ょ","ら","り","る","れ","ろ", "わ","を","ん"} set B1 to{"ア","イ","ウ","エ","オ","ァ","ィ","ゥ","ェ","ォ","カ","キ","ク","ケ","コ", "ガ","ギ","グ","ゲ","ゴ","サ","シ","ス","セ","ソ","ザ","ジ","ズ","ゼ","ゾ", "タ","チ","ツ","テ","ト","ダ","ヂ","ヅ","デ","ド","ッ","ナ","ニ","ヌ","ネ","ノ", "ハ","ヒ","フ","ヘ","ホ","バ","ビ","ブ","ベ","ボ","パ","ピ","プ","ペ","ポ", "マ","ミ","ム","メ","モ","ヤ","ユ","ヨ","ャ","ュ","ョ","ラ","リ","ル","レ","ロ", "ワ","ヲ","ン"} set B2 to{"ｱ","ｲ","ｳ","ｴ","ｵ","ｧ","ｨ","ｩ","ｪ","ｫ","ｶ","ｷ","ｸ","ｹ","ｺ", "ｶﾞ","ｷﾞ","ｸﾞ","ｹﾞ","ｺﾞ","ｻ","ｼ","ｽ","ｾ","ｿ","ｻﾞ","ｼﾞ","ｽﾞ","ｾﾞ","ｿﾞ", "ﾀ","ﾁ","ﾂ","ﾃ","ﾄ","ﾀﾞ","ﾁﾞ","ﾂﾞ","ﾃﾞ","ﾄﾞ","ｯ","ﾅ","ﾆ","ﾇ","ﾈ","ﾉ", "ﾊ","ﾋ","ﾌ","ﾍ","ﾎ","ﾊﾞ","ﾋﾞ","ﾌﾞ","ﾍﾞ","ﾎﾞ","ﾊﾟ","ﾋﾟ","ﾌﾟ","ﾍﾟ","ﾎﾟ", "ﾏ","ﾐ","ﾑ","ﾒ","ﾓ","ﾔ","ﾕ","ﾖ","ｬ","ｭ","ｮ","ﾗ","ﾘ","ﾙ","ﾚ","ﾛ","ﾜ","ｦ","ﾝ"} set A to my X(A, B0, B2) set the clipboard to my X(A, B1, B2) beep of 2 diaplay dialog "Completed" buttons {"OK"} default button 1 end if end tell
77 ：02/09/15
on X(A, B3, B4) repeat with C from 1 to 80 set text item delimiter of AppleScript to (item C of B3) set A to every text item of A set text item delimiter of AppleScript to (item C of B4) return (A as string) end repeat end X
78 ：02/09/15
早速バグをﾊｹｰﾝ サブルーチンの最後の3行は、次のように修正しなくてはなりません set A to A as string end repeat return A end X
