日本語プログラミング言語なでしこ公式掲示板

　UNOパパ　さまの検索力がしゅごいです！ｗ（゜ｏ゜）ｗ
　ＤＬしてみました。ほんとに4000くらいあった！（＊゜ロ゜）

　というわけで、こんな感じ？
#-----------------------------------------------
作業フォルダ＝「data」
保存フォルダ＝「csv」
保存フォルダのフォルダ作成。

ファイル一覧＝作業フォルダのファイル列挙。　　//ファイル列挙と反復で千でも四千でもっ
ファイル一覧を反復。
　　対象の１文字左部分が数字か判定。　　//全部数字じゃないファイルは違うっぽいので
　　もし、そうならば、
　　　　#---ファイルを開く----------
　　　　対象を開く。データはそれ。
　　　　
　　　　#---データの加工（むりやりすぎ；）----------
　　　　//休日部分の入れ子テーブルが邪魔なの
　　　　データ＝データの「<table border="0"><tr><td>」を空に置換。
　　　　データ＝データの「</table></td>」を空に置換。
　　　　データ＝データの「</b></font></td><td>」を空に置換。
　　　　//colspan="4"を反映させてみたり。いるかな
　　　　データを反復
　　　　　対象を「.*colspan="4".*</td><td」で正規表現マッチ。Ａ＝それ。
　　　　　Ａ＝Ａの「</td><td」を「</td>」に置換。
　　　　　データ＝データのＡをＡ&「"","","",」に置換。

　　　　#---TABLEを抜き出す----------
　　　　データの「<table border="1" cellspacing="0" cellpadding="2"」から「</table>」まで範囲切り取る。
　　　　表はそれ。表＝表の改行を空に置換。
　　　　
　　　　#---CSV形式に整形----------
　　　　表＝表を「</tr>」で区切る。
　　　　表＝表の「<td>」を「"」に置換。
　　　　表＝表の「</td>」を「",」に置換。
　　　　表＝表の「<td」を「"<」に置換。
　　　　表＝表の「<br>」を「」に置換。
　　　　表＝表のタグ削除。
　　　　表＝表の「 」を空に置換。
　　　　表＝表の「」を空に置換。
　　　　
　　　　#---保存----------
　　　　保存ファイル＝対象を「.csv」に拡張子変更。
　　　　表を保存フォルダ&「/」&保存ファイルに保存。
　　　　母艦のタイトルは回数。
終わる。
#-----------------------------------------------
　フォルダとかは環境に合わせて変えてね☆
　いきなり本当に４０００とかやると、ベラボウに時間掛かるので、とりあえず２，３ファイルでお試しして、どんなもんだか確認してね。