/*
こんなプログラムでどうでしょうか？
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
結果で戻る