（ どーもボキです ＞ Z_￣∂

（ ダイソーのダストテープでクリアケースをデコる ＞ Z_￣∂

どーもボキです。

ダイソーて買ったダストテープでカードケースをデコ。

もともとは透明なカードいれ。

ポイントカードを入れているんだが、これならケースごと店に持って入っても中身が透けず恥ずかしくない。

（ [英語学習] TOEICようやく600点超えた。 ＞ Z_￣∂

どーもボキです。

先日の社内実施のTOEICで、605点取れた。
ようやく600点超えた。本当は600点台後半を狙っていたのだが、まだまだのようだ。
L：370点
R：235点

Part1は、1問目からつまづき
Part2は、聞き取れない問題がたくさんあった。
Part3-4は、そこそこできた。Lスコアが伸びたので、正解が多かったのだろう。

Part5-6は、いつもどおり。
Part7は、これまでの中で一番といたつもり。だがRスコアが伸びでないので、できてないのだろう。


うちで幹部社員になるには、TOEICで600点以上取る必要がある。
今回のTOEICでその関門は越えた。まぁそもそもの仕事ができないと意味ないが。

今回のTOEICまでの勉強には、入社時に3万円も出して一回も使わなかった教材も使ってみた。

古い教材だからか、洗練されていないと感じる箇所も多々あったが、ようやく役立ったわ。

しばらくは、ちょこちょこ勉強を続けるよ。

---

NHKテキストの英語力測定テストを試してみた

（ [撮影] 三日月と金星 ＞ Z_￣∂

どーもボキです。

三日月と金星のコラボ。

もっとパリッと撮るにはどうしたら良いのだろう？

（ 男の料理教室 ＞ Z_￣∂

どーもボキです。

近くの公民館で男の料理教室に通い始めた。

1回/月の計6回。

先日の第一回目は前菜。

簡単でうまかった。

ピンクペッパー（ゆで卵にのっている赤い玉）は風味が良いね。

（ amiiboのドットマリオを購入した ＞ Z_￣∂

どーもボキです。

amiiboのドットマリオ モダンカラー版が中古で安かったので買ってみた。

プチブロックに見慣れているから、縦長に伸びた印象。

（ B’z 30th Year Exhibition “SCENES” 1988-2018 ＞ Z_￣∂

どーもボキです。

前期（1988-2002） / 2018年4月1日（日）〜 5月6日（日）を見てきた。

シアターは見れず。イベント開催早々に予約ページ上に
「シアター鑑賞券は、前期分、後期分共に全て完売しました。当日券の扱いもございません」との掲示。

当日券の値段設定があるにもかかわらず「当日券の扱いもございません」となったことが理解できない。
楽しみにしていた分、この点は残念だった。

会場前にて

長蛇の列の先頭にあたる場所にて

退場時に通るのでそのときに撮影すると良い。
ちなみに、入場チケットはこの先で回収されるため、撮影したいならココで。

待ち行列の雰囲気

10時～12時枠でチケットを確保していたのだが、この列。
入場まで40分も待った。当然、会場内は撮影禁止。

グッズ売り場でのオークション販売？となっていたギターとハーブ。
ここは撮影OK。パンフだけ購入した。

オーディオガイダンスは初めて聴くエピソードもありオススメ。

パンフにはTAKの譜面は未掲載となっているものの、稲葉氏の病んだイラストは掲載されてる。
それが手元で見れるだけでも買いですよ。

（ [撮影] 東京駅周辺 ＞ Z_￣∂

どーもボキです。

東京駅近くを観光して来た。

丸ビル

旧丸ビルを支えていたらしい松柱

（ [撮影] 大木切ります ＞ Z_￣∂

どーもボキです。

よく見かける看板、本当に大木を切るみたい。

（ ダイソーのアイロンビーズでドットマリオを作成する ＞ Z_￣∂

どーもボキです。

ダイソーでカラフルなアイロンビーズを見つけ、これだ！と思って作ったもの。

立体に作ったらどうだろう？などと構想を膨らませていたが、
そもそもなかなかくっつかず苦労した。立体に仕上げるなんてもってのほか。

マリオも裏面（本当は表にしたかった面）のみをアイロン掛けしておしまい。

どうやらダイソーのアイロンビーズは高さがバラバラになっているので、
アイロンがけが難しいみたいだ。

（ [VBScript] ワイルドカードを指定したファイル名サーチ ＞ Z_￣∂

どーもボキです。

ニュースで英会話のバックアップでは、記事ごとに再生ボタンの表示高さ（Y座標）が異なり、
クリック位置の記録＆調整に苦労した。

mp3を上書き更新とすることで、サイズ≠０で録音の成功を判断させた。

このときファイル名が「yymmdd_記事タイトル」となるため「記事タイトル」を固定できない。

FileExistsや、GetFileは、ファイル名をそのものを指定しければならず、記事タイトルを把握しないかぎり利用できない。

そのため、ワイルドカードを指定できるCopyFileやMoveFileを応用したファイル名取得関数「SearchFile」を作成した。
重複しない名前のフォルダへMoveし、そのMove先のファイル名を取得するようにしている。なお、戻り値は最後に見つかったファイル名としている。

' 指定したファイル名が存在するか調べる（ワイルドカードOK）
' 戻り値：見つかったファイル名
Function SearchFile(DirectoryPath, FileName)
    Dim objFS,f,r,dpth
    
    r = ""
    Set objFS = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    dpth = DirectoryPath & Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now)
    objFS.CreateFolder(dpth)    ' 重複しないフォルダを作成
    objFS.MoveFile DirectoryPath & FileName, dpth &"\"
    For Each f In objFS.GetFolder(dpth).Files
        r = f.Name
    Next
    objFS.MoveFile dpth &"\"& FileName, DirectoryPath
    objFS.DeleteFolder dpth
    On Error GoTo 0
    
    SearchFile = r
End Function