/*
こんなプログラムでどうでしょうか?
1時間ごとにWEBをチェックして、更新があれば、更新して、ビープ音でお知らせします。
他のプログラムに転用できるようにデータを取得するのを関数にしました
「ナデシコリーグ結果取得」でCSVデータを取得できます。
*/
ナデシコリーグとはグリッド
そのレイアウトは『全体』
その自動ソートはオン
自動タイマーとはタイマー
その値は1*60*60*1000 //1時間
その時満ちた時は~データ更新
前データとは配列
経過ダイアログはオフ
母艦は『なでしこリーグの結果リスト』
データ更新
自動タイマーを開始
*データ更新
母艦は『なでしこリーグの結果リスト-データ取得中...』
データはナデシコリーグ結果取得
母艦は『なでしこリーグの結果リスト-最終更新-』&(今日)&『-』&(今)
もし、(前データ≠データ)ならば
前データ=データ
データの0に(『No./節/日付/曜日/チーム(H)/スコア/チーム(A)/時間/会場』を『/』で区切る)を配列挿入
ナデシコリーグのアイテムはデータ
ナデシコリーグのセルサイズ自動調節
BEEP
『なでしこリーグの結果を更新しました』という
*ナデシコリーグ結果取得
結果とは配列
データとは文字列
カウンタとは整数=0
一時とは文字列
1の間
もし、(回数=1)ならば
データ=『
http://match.nadeshikoleague.jp/2011/nadeshiko/match/index.html』からHTTPデータ取得をSJIS変換
違えば
データ=『
http://match.nadeshikoleague.jp/2011/nadeshiko/match/index』&回数&『.html』からHTTPデータ取得をSJIS変換
データの『<title>』までを切り取る
((データの『</title>』までを切り取る)=『404 Not Found』)ならば、抜ける
データの『<th class="ticket"><img src="../../shared/match/img/ticket.gif" width="49" height="17" alt="チケット" /></th>』までを切り取る
データ=データの『</table>』までを切り取る
データ=データのタブを『』へ置換
データ=データの『 』を『』へ置換
データ=データの改行を『』へ置換
データ=データの『</tr>』を改行へ置換
データ=データの『</td>』を『,』へ置換
データ=データをCSV取得
データを反復
対象=対象のタグ削除
もし、(対象の配列要素数)≠0ならば
結果[カウンタ][0]=カウンタ+1を3でゼロ埋め
8回、結果[カウンタ][回数]=対象[回数-1]
カウンタ=カウンタ+1
結果で戻る