次の歌は？？

【次の歌は？？】
　この前、車を運転していたら、大きな音で「ウルトラマン」の歌を流している車が走っていました。
　何故かウルトラマン？？？
　その次に流れたのが「マジンガーＺ」・・・ヒーローものメドレー？？
　まじんごー♪なんて一緒に歌ってしまいました。
　次はなんだ？？？
　と、楽しみに次を待っていました。
　仮面ライダーかな？それともライディーンとかか？？
　勝手に次の歌を予想していたら…
　燃え上がれ～♪
　ガンダムかよ！！
　微妙でした。。。
　次の歌も聴きたかったけど、交差点で違う方向に行ってしまい、その車とはさよならしてしまいした。
　残念！！
【またガソリン下がる】
　また下がりましたレギュラーガソリンの値段が・・・
　とはいっても１円ですが…。
　137円→136円。このままどんどん値下がってしまえぇ！！！
　年内に125円位にならないかなぁ…

フォルダのサイズを一覧で表示

【フォルダのサイズを表示するvbs】

フォルダのサイズ、フォルダ名を表示するGetSize.vbsを作ってみました。
個人的な覚書として書いてみました。

GetSize.vbsの中身は以下の通り。

'引数で指定したフォルダ内のフォルダサイズを出力する
''実行の方法 cscript GetSize.vbs フォルダ名
'' 実行例) cscript GetSize.vbs D:test
''引数の宣言

Set arg = WScript.Arguments
''引数チェック
If ( arg.Count <> 1 ) Then
WScript.StdOut.WriteLine "異常終了　理由：引数不正 引数1：フォルダ名" & arg.Count
WScript.Quit -1
End If
''ファイル名を引数の値よりセット

sFolder = arg(0)
''オブジェクトの宣言等
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(sFolder )
'=================================================--
'メイン処理
'=================================================--
Call GetFolderSize(objFolder)
'=================================================--
'フォルダサイズ取得処理（サブ）
'=================================================--
Sub GetSize(objFolder)
sz = objFolder.Size
'フォルダ名、サイズの出力
WScript.Echo sz &","&objFolder.Path
End Sub
'=================================================--
'フォルダサイズ取得処理（メイン）
'=================================================--

Sub GetFolderSize(objFolder)
'フォルダサイズの取得
Call GetSize(objFolder)
' ' 再帰的にサブフォルダに対して実施
For Each objSubFolder In objFolder.SubFolders
GetFolderSize(objSubFolder)
Next
End Sub

実行結果は以下の通り。

D:>cscript GetFolderSize.vbs d:test
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

1660064377,D:test
80069,D:testtestsub

新江ノ島水族館に行く

【新江ノ島水族館に行く】
　最近、どこかに出掛けるという機会が無く、実際出掛けるとしても、実家か親戚の家という感じで…。
　なので、日曜日に久々に遊びに出掛けました。
　娘がそろそろ２歳になるし、水族館ぐらいなら行っても平気かなぁと思い。
　新江ノ島水族館に行ってきました。
　すし屋においてある水槽の魚を見て興奮していた娘が、でっかい水槽にいる本物のおとと（魚）を見たらどんな反応があるかと。。。
　朝８時半ぐらいに家をでて、９時半頃に新江ノ島水族館の近くに着きました。
　新江ノ島水族館には駐車場がないので、隣の地下駐車場に車を置いて、早速入場券を購入しようと思ったら、水族館の建物の中央が海岸に続いて、思わず寄り道してしまいました。砂浜に行く前提の服装ではなかったので波打ち際まで行ってすぐ戻ってくるしかできませんでした。
　しかし、サーファーがいっぱいたなぁ。
　海水浴シーズンでなくても海岸には普通に人がいっぱいいました。
　波打ち際で子供と戯れるおっさんが居る横で平気でサーフィンしているお姉ちゃんがいて、という風景でした。
　今度は海目当てに来てもいいかな・・・と思いつつ、水族館に戻りました。
　入り口の横の入場券売り場で入場券大人２枚を購入（ちなみに４０００円（一人２０００円、１歳の娘はプライスレス）し、中に入りました。
　３時間程度で娘が眠くなって帰りましたが、中は結構広く、思ったより見応えがありました。
　館内は飲食店がぜんぜん無いのですが、途中退場が可能で、道路の向かいの飲食店に行けたり、お弁当持参の場合でもテラスがあってそこで食べられるようになっていたり、途中退場して海岸で食べても良いし、食事は問題無いと思います。
　ところで・・・
　娘はというと・・・普段見れない魚の数々に興奮してましたが、大きな海亀の所でビビってました。普段水遊び用の亀の人形をみて喜んでいたのにその大きさにビビリ、家に帰ってきてから、数時間は亀の人形を手にしませんでした。それ以外は特に問題なくイルカショーも堪能してそれなりに満足してくれたようです。
　よかったよかった…。のはずだったのですが、、、
　水族館から家に帰る途中…
　デパートでアンパンマンショーをやっていたので、立ち寄り、アンパンマン、バイキンマン、ドキンチャンと握手した瞬間、今日の彼女の一番の思い出は水族館に行ったことよりアンパンマン、バイキンマン、ドキンチャンと会った事に変わりました。
　アンパンマンには勝てないか…
　娘が楽しんでくれたのがうれしい反面、複雑な心境でした…
【イルカのうんち？】
　新江ノ島水族館で「イルカのうんち」というお菓子がおみやげで売ってました。興味本位で買おうとしたのですが、奥様に反対され購入を断念。次回こそは…
【やっぱり江ノ島は混むよなぁ】
　朝９時半頃は日曜日だというのに比較的空いていたのですが、帰る頃には満車で駐車場待ちの車が結構並んでいました。海水浴シーズンが過ぎて空いているのかと思いきや、さすが江ノ島って思いました。
　朝９時から新江ノ島水族館は開いているので朝早く行くことをお勧めします。

今さら人には聞けない 大人の常識力トレーニング DSが気になる

【また風邪ひいた・・・】
　２日前ぐらいに、朝起きたら喉が痛く…
　鼻水と咳がでてきました。
　季節の変わり目は体調を崩しやすいので、気をつけないといけませんね…。

【今さら人には聞けない 大人の常識力トレーニング DSが気になる】
　ＴＶのＣＭを見ていてニンテンドーＤＳで「今さら人には聞けない 大人の常識力トレーニング DS」というゲームが発売されるらしい。
　常識というのは、人それぞれの中で常識がありますよねぇ。実際に自分の常識が世の中の常識の中で、どの程度なのかと・・・興味をそそられます。日本常識力検定協会監修らしいし。。。（そんな協会あったんだ…）
　発売したら買ってしまいそうだ・・・。

ファミスタを10年ぶりにやる

【ファミスタを10年ぶりにやる】
　どうしてもファミスタがやりたくてＰＳ２の熱スタを知人に借りて、おまけで付いているファミスタをやってみました。１０年ぶりぐらいでしょうか・・・。
　なお、私は横浜ベイスターズのファンなので、横浜ベイスターズを選んで、コンピュータは阪神タイガースで…結果は１回にホームラン等で４点奪ったにも関わらず、３回コールドで負けてしまいました。
　とにかく、守備の時の動きが予想以上に遅くてフライが頭を越して長打の嵐…おかしいなぁ、こんなにファミスタ下手だったっけと思いつつ…もう一度やってみたのですが、またコールド負け。
　最近のゲームは動きが良いので、昔のゲームをやるとそのギャップが懐かしいやら・・・。でも、ファミスタは難しかった…何故だか、年とったなぁと思ってしまいました。
　
【贅沢な悩み？】
　時は金なりと言いますが、「平日に自分の時間を作ることはなかなか難しい」と最近思います。
　職場が遠い（片道２時間も掛かる・・・）ので、定時に職場を出たとしても帰宅して、食事して、お風呂に入って…で、あっという間に２２時を過ぎてしまいます。
　こんな時、「もう２２時かぁ・・・大したことしてないのに・・・」とがっかりします。
　が、よく考えると、残業残業で家帰って寝るだけの生活の時から比べれば贅沢な悩みではありますが・・・
　

日々に余裕？

【日々に余裕？】

　こんな記事を見ました。
　富士山が初冠雪　平年より６日遅く(朝日新聞) - goo ニュース
　富士山に雪が降ったそうです。
　１０月なのにと思っていたのですが、平年より６日程遅いとか・・・
　天気のいい日であれば、帰宅途中、夜でも富士山が見えるので、、富士山はいつでも見れるという先入観があるので、富士山に雪が降ったということで・・・
　改めて、富士山を見てみました。
　普段、忙しない日々が続いているので、富士山を見る余裕ぐらい持たないと日々がつまらなくなりそう・・・な気がして…
　
　【ガソリン代がまた下がる】
　10月2日(月)に仕事に行くときにガソリンスタンドの値段表示でレギュラーガソリンが142円→140円に下がったの見て、やっと下がり始めたかぁとホッとしていたら、週末には137円になっていました。
　このまま、どんどん下がって欲しいものです。
　原油価格はピーク時より２５％ぐらい安くなったそうなのでガソリンスタンドの価格にも反映させて欲しいものです。
　ガソリンネタばっかですねぇ。でも、切実な問題なので。。。
【ＴＶが見れる携帯電話…】
　ＴＶが見れる携帯電話を持っている人は…ＮＨＫの受信料の徴収対象になるそうです。よ最近、知ってびっくりしました。

ガソリンの値段が下がる

【ガソリンの値段が下がる】
　原油の先物取引の値段が下がり始めたというニュースを聞いてから、何日経ったでしょうか・・・やっとガソリンの値段が下がりましたね。私の近所のガソリンスタンドでは142円→140円になっていました。
　とりあえずこのまま、下がり続けて以前の値段に戻って欲しいものです。70円台なんて時もあったのでそれくらい下がらないかなぁ。まず、現状70円台は有り得ないでしょうが・・・。
【（C覚書）文字列→数値変換処理】
　文字列を数値型のに変換する場合、数値型がintであればatoi、longであればatol、doubleであればatofを使用していました。しかし、atoi、atol、atofでは、変換不可能な文字が存在した場合、0が設定され、0に変換されたのか、変換できない為、0が設定されたのか区別がつかないという難点がありました。
　そこで、エラーを検知できる方法を調査したところ、strtol、strtodという標準ライブラリ関数が存在することがわかりました。これらを使用すれば、変換不可能な文字列を検知することが出来ます。意外と便利だと思いますよ。

形式 #include <stdlib.h> int atoi(const char *s); long int atol(const char *s); #include <stdlib.h> long int strtol(const char *s,char **endptr,int radix); radix:基数 0～36 doubleの場合 #include <stdlib.h> double atof(const char *s); #include <stdlib.h> double strtod(const char *s,char **endptr); const char *s:変換元文字列 char **endptr:変換不可能な文字列へのポインタが設定される。 サンプルコーディング #include <stdlib.h> #include <stdio.h> void main(void) { 　　double dWork; 　　char cWork[255]; 　　char *cEndpt; 　　memset((void *)cWork,NULL,sizeof(cWork)); 　　printf("値を入力してください="); 　　scanf("%s",&cWork); 　　dWork = strtod(cWork,&cEndpt); 　　printf("cWork [%s]n",&cWork); 　　printf("cEndpt[%s]n",cEndpt); 　　printf("dWork [%.0f]n",dWork); 　　return; } 実行結果 値を入力してください=1234h cWork [1234h] cEndpt[h] dWork [1234] 値を入力してくださいh1234 cWork [h1234] cEndpt[h1234] dWork [0] 値を入力してください=12h34 cWork [12h34] cEndpt[h34] dWork [12] 値を入力してください=1234 cWork [1234] cEndpt[] dWork [1234]