自分のために、こんなものを作ってみました。 よければ使ってくださいませ。
{---プログラム掲示板投稿フォーム--- 【ソフト名】2002年年賀状あたりチェック (バージョン 1.00) 【作 成 者】くまこ(連絡先:kumako@eiri.com) 【種 別】フリーソフトウェア 【ひまわりのバージョン】ver.1.12 【転 件】可(転載条件:作者にメールで連絡すること) 【ひまわり本体への梱包】可 【実行時に利用作成するファイル】無 【コメント】ことしの年賀状のあたりをチェックするツールです。 ---投稿フォームここまで---}
{1等 液晶TV、ノートPC、カーナビ、電動自転車、高画素デジカメ 284482, 706000 2等 電子辞書、携帯液晶TV、デジカメ、DVDプレーヤー、万年筆、ふるさと小包6個 03555 3等 ふるさと小包 4551, 6394 4等 切手シート 43, 54, 58 } 母艦の、幅は、120。 母艦の、高さは、40。 「あたりチェキ」と、表示。 *4等チェック 「下二桁は?」と、尋ねる。 結果は、「はずれ」。 下二桁は、それ。 下二桁を、「43|54|58」で、正規表現マッチ。 もし、それが、「」でなければ、( 「4等があたりです」と、言う。 結果は、「あたり」。 ) '3等チェック 下二桁を、「51|94」で、正規表現マッチ。 もし、それが、「」でなければ、( 「3等があたりかもしれません。下四桁は?」と、尋ねる。 下四桁は、それ。 下四桁を、「4551|6394」で、正規表現マッチ。 もし、それが、「」でなければ、( 「3等があたりです」と、言う。 結果は、「あたり」。 ) ) '2等チェック 下二桁を、「55」で、正規表現マッチ。 もし、それが、「」でなければ、( 「2等があたりかもしれません。下五桁は?」と、尋ねる。 下五桁は、それ。 下五桁を、「03555」で、正規表現マッチ。 もし、それが、「」でなければ、、( 「2等があたりです」と、言う。 結果は、「あたり」。 ) ) '1等チェック 下二桁を、「82|00」で、正規表現マッチ。 もし、それが、「」でなければ、( 「1等があたりかもしれません。下六桁は?」と、尋ねる。 下六桁は、それ。 下六桁を、「284482|706000」で、正規表現マッチ。 もし、それが、「」でなければ、、( 「1等があたりです」と、言う。 結果は、「あたり」。 ) ) もし、結果が、「はずれ」ならば、 「残念。はずれです。」と、言う。
「続ける\n終わる」の、ボタンで選択。 もし、それが、「続ける」ならば、4等チェックへ、飛ぶ。 違えば、終了ラベルへ、飛ぶ。
*終了ラベル 終わる。
|