スクリプトと名のつくものなら何でもいいにゃあ
【前スレ】
http://pc.2ch.net/test/read.cgi/jobs/1027891928/l50
rule
・雑談 : お～け～
・煽り : お手柔らかに
・荒し : まぁその～
・騙り : ぞろぞろ
楽しく、有意義な場所になるといいにゃあ
資源を有効に利用しましょう
http://pc.2ch.net/test/read.cgi/jobs/1024591071/l50
foreach $aThread ($aBoard->threads()) {
foreach $aContr ($aThread->contributions()) {
if($aContr->contributor() =~ /◆9999ZEL./){
$aContr->setContributor("ｵﾅﾗｰ");
}
}
}
}
スクリプト全体のアルゴリズムについては、前スレの>>544を参照してください
前スレ: http://pc.2ch.net/test/read.cgi/jobs/1027891928/l50
《第1回》は前スレの>>763に、《第2回》は>>775に、《第3回》は>>875-876に
《第4回》は>>891-892に掲げています
今回は、入出力インターフェースを含めたUIに関するスクリプトです
実際にスクリプトを書くに当たり「AppleScriptリファレンス」を調べたところ
>>544において示したアルゴリズムは変更すべきであると判断しました
クリップボードに入っているデータの種類を取得するコマンドが用意されていたのです
ここではそのコマンドを用いています
また前回において、原文から改行を削除するステップを記述しましたが
より簡潔になるよう若干手を加えています
UIは個人の嗜好が最も反映される部分です
下記スクリプトをカスタマイズして、みなさんの手に馴染んだものにしてくださいね
なお、例によりスクリプトの一部を改竄し、そのままではコンパイルできないようにしてあります
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}
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
(1)処理対象の文字列をコピーします
(2)このスクリプトを実行します
クリップボードに文字列以外のものが納められている場合はエラーを表示し
スクリプトが終了します
(3)ひとつ目のダイアログにおいては、全角空きを何回続けるかについて指定します
入力する際は「4,6」のように数字をカンマ「,」で区切ります
初回実行時のデフォルト値は「4,6」です
数字以外のもを入力した場合や
「6,4」のようにひとつ目の数字がふたつ目の数字よりも大きい場合
および書式が間違っている場合はエラーを表示し、スクリプトが終了します
(4)ふたつ目のダイアログにおいては、何文字で改行するかについて指定します
初回実行時のデフォルト値は「40」です
数字以外のもを入力した場合はエラーを表示し、スクリプトが終了します
(5)入力した数値を確認するダイアログが表示されます
変更したい場合はキャンセルボタンを押し、もう一度(2)の手順からやり直してください
ここでOKボタンを押すとこれらの数値がスクリプト自体に保存され
次回実行時のデフォルト値となります
(6)ビープが2回鳴り、処理終了の旨をダイアログで表示します
処理を施したデータはクリップボードに納められています
当初は文字列を逆順に並べ替えるのが面倒であると考えていましたけれど
かえってUIの方が複雑になってしまいましたね
しかし、それも致し方ありません
ダイアログで入力されたデータを数字に変換したりとか
エラートラップを何重にも仕掛けたりとか
様々なオプションを付加してスクリプトを実用に耐え得るものにするためですからね
ところで、にゃあはサードパーティ製のOSAXを一切用いずにスクリプトを書きました
各種OSAXをインストールすればよりエレガントな
そしてより使い勝手のよいスクリプトに仕立てることが可能です
興味のある方は挑戦してみてくださいね
おつきあいいただきまして、有り難うございました♪
んじゃ、バンバンぶっ放して糞ｳｨﾅどもを宇宙の藻屑にしてくださいにゃあw
自動化Mac最高ですにゃあ
そ、そのスクリプトは、も、もしかして．．．．．．
>>梨タン
AppleScriptにおいてバイト単位で文字列を扱う件は、前スレでレスしておきました
http://pc.2ch.net/test/read.cgi/jobs/1027891928/895
うん。見たよ。ありがと。
>>9
$targetita = '旧・mac';
foreach $ita (@ita) {
$ita->name() eq $targetita or goto SEEK_ONARAR;
}
die;
SEEK_ONARAR:
foreach $sure ($ita->sure()) {
foreach $kakiko ($sure->kakiko()) {
$kakiko->from() =~ /◆9999ZEL./ and $kakiko->from("ｵﾅﾗｰ");
}
}
もっと簡単かつ古くさく書くと、
@subject = split(/\n/, $subject_txt);
foreach (@subject) {
($dat, $name) = split(/\t/, $_); # タブじゃなかったっけ？
$dat = get_dat($dat);
$dat =~ s/◆9999ZEL./ｵﾅﾗｰ/g;
set_dat($dat) or die;
}
perlですにゃあ
1バイト消しているけどね。
初心者なもんで。
ただ、多少原型を残すように
分解している。
perlって結構面倒なんですね．．．．．．
>>24
マジでわかんないにゃあ
手持ちのMacはすべてスタンドアローンで使っているので
オンラインのブラウザをどうやって制御するか、実験すらできないにゃあ
多分、他の人が回答してくれていると思うにゃあ
でも、perlは勉強してないから断言できないにゃあ
てめぇーら、やっちまえーっ!!
━━━━━━━━こうするのかにゃ？━━━━━━━
━━━━━━━━━━━登場！！━━━━━━━━━━━
━━━━━なんて書くと削除かにゃ━━━━━━
━━━━━━━━というてすと━━━━━━━━━
━━━━━━━━ スイマセン ━━━━━━━━━
━━━━━━━Mac短小ビームにゃあ━━━━━━━
━━━━━AppleScriptで書いてみるにゃあ━━━━━
━━━━━━辞書を作るしかないにゃあ━━━━━━
━━━━━━━直リンあるとうれしいにゃ━━━━━━━
━━━━━━━━━と言ってみる試験━━━━━━━━━
━━━━━━━━マジ違法画像のリンクがあるにゃ━━━━━━━━
━━━━━━ブラクラありーのウィルスありーのだにゃ━━━━━━
やっぱり、「きもいPCオタク」だったのね。
━━━━━━どうせPen II 300でSEだにゃあ━━━━━━
━━━━━━━えきすぱーと━━━━━━━
━━━━━━━えろおやじ━━━━━━━
今日はスクリプトねただにゃあ
今回のスクリプトはすべてThinkPadのテキストエディタ上で書いたものであり
動作検証を行っていません
多分、まともに動いてくれるでしょうw
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
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
サブルーチンの最後の3行は、次のように修正しなくてはなりません
set A to A as string
end repeat
return A
end X
よっておひらきだにゃ
そんなことはありませんよw
どんどんうpするにゃ
いじめられすぎてラリッて入院中かな?
そのことに触れちゃいけません。
やっと旧板からあのにおいが無くなりつつあるのだから
にゃあと入れ替っていたりして
ブラクラ?
ﾊｧﾊｧ
>>92
尊師はにゃあの弟子だにゃあw
>>94-95
Luciferタンをいぢめちゃダメにゃあ
SEくんならいぢめてもいいにゃあw
>>96
そんなの踏んだりしないにゃあ
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
チタンのパワブ、値下げらしいで (136)
ｉｍａｃの修理代が１３万円！！！ (387)
■Performa588貰ったんだけどどうしよ？■ (304)
Apple】ついにiPodまでもが破裂・発火 (200)
システム６環境でＡＤＳＬ接続するのが夢なんです (217)
【ｳﾎｯ】やらないか【いいMac...】 (459)
--log9.info------------------
【ﾂﾝﾃﾞﾌﾞ】ホリエモン＆ライブドア詠む【堀江罪子】 (383)
3/16は、「竹島記念日」です！ (350)
東急リバブル東急不動産不買短歌俳句Part2 (682)
トリノオリンピック五七五 (125)
VSヤリチンの側＠五七五 (317)
五七五最後はすべて千代大海 (584)
（ ^Д^）＜ﾍﾟﾛﾍﾟﾛｗ (240)
魔法先生ネギま！を詠むスレ (148)
第2回2ちゃんねる全板人気トーナメント選対スレ (376)
【民主党の】三宅雪子に捧げる五七五【当たり屋】 (208)
夏休みの宿題によさそうな・・・ (101)
★売上を 議論しつづけ 幾星霜 売ｽﾚ避難所★ (622)
『こてこさん』を探しています (186)
俳句短歌in奈良・京都 (102)
狂牛病を詠もう！ (664)
◎春夏秋冬◎ (445)
--log55.com------------------
【韓国】ネットでボイコットジャパン武勇伝「ユニクロに入る人を睨んでやった」「日本ビール買う人に、それでも韓国人かと罵声」［8/2］
【韓国】腹立ちまぎれに「日本大使館を爆破する」～60代の男、即決審判[08/05]
【韓国】「ホワイト国」除外の中止要請＝徴用工、河野外相是正要求－康京和外相バンコクで約1時間会談 平行線のまま終わった[8/1] ★２
【韓国】 ろうそく掲げ、ソウル反日抗議拡大・・・韓国人 「韓国はまだ本当に独立していない」
【韓国】 ２万ウォンの遊覧船料金、日本人は超特価815万ウォン～地方自治体に広がる反日★２[08/04]
【夕刊フジ】「韓国は敵なのか」と叫ぶ“知識人”７７人の皆さんへ もはや朝日が笛吹けど国民踊らず、政権への影響はゼロ[8/2]
【聯合ニュース】先送りしてきた独島防衛訓練の実施検討 今月半ばにも＝韓国軍[8/4]
【韓国】 韓国人はどうしてこんなに民族的な感情をむき出しにするのか＝中国メディア「日本がいじめてきたから」[07/21]