▼和菓子の日
　全国和菓子協会が1979年に制定。
　848年、疫病退散を祈念するため元号を「嘉祥」と改元し6月16日に16の数に因んだ菓子・餅を神前に供えたと言う「嘉祥菓子」の故事に由来。

▼「Twitterとは (ツイッターとは) - ニコニコ大百科」が雰囲気を再現しすぎ - 偏読日記@はてな
http://d.hatena.ne.jp/a-park/20090613/p1
　本当にまんまの雰囲気だった。
　まだカオスってところまでは行っていないけど、色々とフォローして見てみるのとおもしろい。

▼ブックオフオンラインの宅本便を使って古本とCDを売ってみた - 煩悩是道場
http://d.hatena.ne.jp/ululun/20090615/1245029179
　これは便利そうだ。
　と中の人からコメントが来ていて吹いた。

▼夢をあきらめないということ
http://anond.hatelabo.jp/20090615075411
　そもそも夢なんて無いさ。

▼明日離婚しそうですｗｗｗｗっうぇｗｗｗｗｗｗ:ハムスター速報　２ろぐ
http://urasoku.blog106.fc2.com/blog-entry-719.html
　そんな終わり方はあんまりだ。

〓〓〓〓　2051　中休み　〓〓〓〓

　月曜と水曜勤務で良かったと思う。

■午前中
　朝飯を食って、ゴミを出して、ネタを探してといつものように朝を過ごす。
　後はぼちぼちと参考書を見たり。
　と言ってもあまり進まなかったのだが。

　10時を回ったので、着替えてからジャスコへ。
　この時間になるまで火曜市だったことをすっかり忘れていた。
　曜日感覚が少々無くなってきているらしい。
　それもどうかなーと。

　ともあれ、無事にジャスコに到着。
　駐輪場に自転車を駐めると、以前見かけたあのカゴに入っている犬がぼーっと遠くを見ていた。
　一体何を見ているのだろうか。
　そんな様子を見ていてちょっとうらやましく思ったり。

　ジャスコは人が少々多かったので、動きにくかったが無事に目的のものを購入できたので良しとしよう。
　今週末にお客様感謝デーがあるので、必要以外のものは購入しないでおいた。
　具体的には食パンとかヨーグルトとか。

■午後
　昼飯を食べてから一息。
　ベランダに出ると、朝から干している洗濯物がもう十分なほどに乾いていた。
　梅雨だというのに、からっとして良い天気だ。
　ただ、それだと自宅にいると罪悪感のようなものが生じてくる。
　外に出た方が良いよなと、そういう感じの気分に。

　ということでミスドに行ってきた。
　マックにするか迷ったのだけど、今日はこちらで。
　コーヒーとチョコレートを頼んで、定位置になりつつある机で問題集を開く。
　今までやってきた過去問を改めて解いたりとか、参考書を見直したりとか。
　しかし致命傷だったのが
「蛍光ペンを忘れた」
　ってことだったり。
　予備カートリッジだけを持ってきても意味が無いんだよ、全くと言って良いほど。
　とりあえずボールペンで線を引いたりして代用。
　やはりの蛍光ペンの方が使いやすいよな～と改めて思った。
　無くなって初めて思うありがたさ。

■プログラム
　勉強を2時間した後、ちょっとプログラムの編集をしたり。

・csv_joint101.zip - Windows Live
http://cid-4963669cd9787371.skydrive.live.com/self.aspx/CSV%E3%82%92%E3%81%A4%E3%81%AA%E3%81%92%E3%82%8B%E3%82%84%E3%81%A4/csv%7C_joint101.zip?ccr=4460&sa=943097014

　今まで敷居が高いと思っていた「ドラッグアンドドロップ」を実際に使ってみた。
　いやはや、四苦八苦しつつだったがどうにかまともに動くようにはなったかな。

　何に苦戦したかというと
「複数のファイルを同時にリストに入れる」
「ファイルがテキストまたはCSVの時だけリストに入れる」
　というのをどう実装したら良いかという話で。
　結果としてはこういう方法を採ってみた。

Private Sub lstFileName_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstFileName.DragDrop
Dim strFileName As String() = CType( _
e.Data.GetData(DataFormats.FileDrop, False), String())
For i As Integer = 0 To strFileName.Length - 1
If LCase(System.IO.Path.GetExtension(strFileName(i))) = ".csv" Or _
LCase(System.IO.Path.GetExtension(strFileName(i))) = ".txt" Then
lstFileName.Items.Add(strFileName(i))
End If
Next
End Sub

　ドラッグしてきたファイルからまずは拡張子だけを取り出す。
　そしてそれを強制的に小文字に修正してから、「.txt」と「.csv」かを確認する。
　もし当てはまるのであればリストに入れると。

　ただそれだけだったのだが、中々うまくいかなかった。
　まだまだ勉強が足りないよなー。
　帰ってきて、ネットで色々と調べたりしてどうにかこういう形にしてみた。
　もうちょっと簡単にできるかもしれないけど、今はこれが限界かなー。

■ACfA
　昨日の午前中にミッションを一つクリアしたところ、実弾兵器が大量に手に入ったのでカスタマイズをしてみたり。
　とりあえず武装を全て付け直してみた。
　右にマシンガン、左にライフル。右後ろにはグレネード、左後ろには直線型ミサイル。肩には誘導製のミサイルと。
　基本は背中につけたグレネードとミサイルで攻撃をして、それが切れたらライフルを使うという感じで。
　もし近付かれたらマシンガンで威嚇でもしようと。
　そんなところで。
　試しに一度クリアしたものにチャレンジして練習をしてみよう。
　多分左右で重量に差があるので、バランスを少し考えてみよう。
　日記を書いたら後でプレイするかなーと。