昨日のDIGのポッドキャストをDLするスクリプト
TBSラジオはポッドキャストを一週間で消すとかとんでもない事をぬかしております。そのため良い悪いにかかわらず全てDLしておかないといけません。
ニュース探求ラジオDIGは結構面白いのでとりあえず録っておきます。
http://www.tbsradio.jp/dig/index.html
ファイル名に法則性があるので以下の手順で自動DLしておけば慌てなくてすみます。特番等で変わった場合は対応できません。その時の事はまた考えますね。
んじゃ、具体的な方法です。
まず、システムにwgetあたりをインストールしておきます。
Wget for Windows
ここから
* Binaries
* Dependencies
の２つをダウンロードする。
両方解凍。
Dependenciesを解凍するとdllが何個か入っているのでこいつをwget.exeともどもc:\Windows\system32にコピーして終了。
と打ち込んでindex.htmlがダウンロードされればインストール完了
次に適当な場所にポッドキャストを保存するフォルダを作成します。OSのバージョンによっていろいろあるので省略。
私はWinXPで、データ用にD:ドライブが作ってあるので
D:\Users\takosan\PodCast なんてのを作りました。
そこにDIG用のフォルダを作成します。
D:\Users\Takosan\PodCast\TBSラジオ dig
こんな感じで作ると良いかと思います。
そこに以下のスクリプトをこんな名前Get_DIG.cmd で作成します。
中身はこうです。
- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
@echo off
echo WScript.echo(DateAdd("d",-1,date))>%tmp%\wday.vbs
for /f "tokens=*" %%i IN ('call cscript //nologo %tmp%\wday.vbs') DO @set dlDate=%%i
echo 昨日は%dlDate%
FOR /F "eol=;tokens=1 delims=/," %%i in ('echo %dlDate%') do set datey=%%i
FOR /F "eol=;tokens=2 delims=/," %%i in ('echo %dlDate%') do set datem=%%i
FOR /F "eol=;tokens=3 delims=/," %%i in ('echo %dlDate%') do set dated=%%i
set DT=%datey%%datem%%dated%
:/echo Rem wday.vbsの中身は1行で内容は"WScript.Quit(WeekDay(Date))"の１行
:Today
set logdir=%tmp%
if not exist dig%DT%. mkdir dig%DT%
pushd dig%DT%
if exist dig%DT%.cmd del dig%DT%.cmd
for %%a in (news dig)do echo wget -c http://podcast.tbsradio.jp/dig/files/%%a%DT%.mp3 >>dig%DT%.cmd
echo WScript.Quit(WeekDay("%datey%/%datem%/%dated%"))>%tmp%\wday.vbs
cscript /b %tmp%\wday.vbs
if errorlevel 7 echo 今日は土曜日 & goto END
if errorlevel 6 echo 今日は金曜日 & goto Fri
if errorlevel 5 echo 今日は木曜日 & goto Thr
if errorlevel 4 echo 今日は水曜日 & goto Wed
if errorlevel 3 echo 今日は火曜日 & goto Tue
if errorlevel 2 echo 今日は月曜日 & goto Mon
if errorlevel 1 echo 今日は日曜日 & goto END
if errorlevel 0 echo えっ？？
:Mon
for %%a in (takeyama nken)do echo wget -c http://podcast.tbsradio.jp/dig/files/%%a%DT%.mp3 >>dig%DT%.cmd
goto End
:Tue
for %%a in (jinbo) do echo wget -c http://podcast.tbsradio.jp/dig/files/%%a%DT%.mp3 >>dig%DT%.cmd
goto End
:Wed
for %%a in (fujiki) do echo wget -c http://podcast.tbsradio.jp/dig/files/%%a%DT%.mp3 >>dig%DT%.cmd
goto End
:Thr
for %%a in (ogiue) do echo wget -c http://podcast.tbsradio.jp/dig/files/%%a%DT%.mp3 >>dig%DT%.cmd
goto End
:Fri
for %%a in (ohne kubo) do echo wget -c http://podcast.tbsradio.jp/dig/files/%%a%DT%.mp3 >>dig%DT%.cmd
:End
call dig%DT%.cmd
popd
del %tmp%\wday.vbs
- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
実行すると、 dig20110114といったフォルダを作成し、中に dig20110114.cmd てなスクリプトを作り、これを呼び出してファイルをDLします。
これをタスクに登録して定期的に実行します。時刻は朝方が良いですかね。４時くらいには全て上がっていると思いますが、落ちてこないときは先ほどのdig20110114.cmdを再実行すれば良いです。
東京中央郵便局問題は「かんぽの宿」と同じ構図なのか？
まずは、以下を聞いてもらいたい。
文化的価値よりも金儲け。東京中央郵便局をぶっ壊せ！
TBSラジオ 荒川強啓 デイ・キャッチ！
この中で町田徹はこう言っている。
・決定のプロセスが不透明。
・小泉竹中が決めた４分社化がおかしい。4つ目の郵便局会社が変？
・郵便局の建物や土地は国民の大事な資産で一部企業に私物化されて良いわけがない。
・資産の運用益はユニバーサルサービス維持に充てられるべきだ。
・資産の叩き売りは国民全体の利益に反する。
トキを焼き鳥にして食うってのはあくまで比喩であって、本当に言いたいことは？
この件に関して、国会で参考人として意見陳述した本人宛に日本郵政西川社長名で訂正と謝罪を求める内容証明郵便が届いたそうだ。
内容証明郵便なら世界中に公開してもおかしくないと思ったら、今週号の週刊朝日に載っているそうです。
悪徳ペンタゴンはまだまだしぶとい
植草一秀の『知られざる真実』: 腐臭の立ち込める国に堕した日本
http://uekusak.cocolog-nifty.com/blog/2009/04/post-c026.html
＞３月３日まで、小沢代表は「次の総理にふさわしい人物」調査で断トツのトップ
＞それが、３月３日の検察権力の行使によって、すべて覆（くつがえ）された。
＞自民党は「敵失」と言うが、本当に「敵失」か。
＞民主党はまったくの「無実」である。
＞森田健作氏は「違法でない」と主張するが、森田氏が「当選を得る目的をもって、
＞自民党籍を持ち、自民党と強い関係を有しながら、自民党と関わりを持たない
＞「完全無所属」であることを有権者にアピールした」ことは明白である。
一度政権交代を実現し、あらゆる闇を暴きたててほしいものだ。
その中にはブーメランのように民主党に返ってくるものもいくばくかはあるかも知れんが、そうも言ってられんところではなかろうか？
ガセネタ溢れる日本 (田中良紹の「国会探検」)
http://www.the-journal.jp/contents/kokkai/2009/03/post_179.html
要するにマスゴミと呼ばれるわけはこのあたりかなと。
恣意的にウソを流通させるマスゴミに対して、我々が本当の事を知る事のできるメディアはナンなのかを考えないと・・。
ETC特需ってなんか変でねぇか？
１・供用開始から３０年経ったらタダになる約束を反古にし、永久有料化にお墨付きを与えた猪瀬の責任は？
２・ＥＴＣセットアップのたんびに上納金の入る「道路システム高度化推進機構」ていう天下り機関。
３・どこに行っても独占的に観光地プライスで商売するＳＡ・ＰＡの売店・レストラン。
そこで稼ぐんなら道路自体無料でも良いだろ。
１・・ローンの終わった住宅に住んでいるのに、いつまでも家賃を取られるようなハナシ。
２・・「道路システム高度化推進機構」はここが詳しい。
きっこのブログ: 政官財によるＥＴＣ詐欺の実態
http://kikko.cocolog-nifty.com/kikko/2009/03/post-5543.html
３・・まスタバは町場と同額なので許す。
