今日は11時台に客が割と途切れずに来た。この1時間だけで売上9千円ほどあった。1日合計額は注文分、身内買い込みで2万ちょっとだったが......。ブラックニッカ・ディープブレンド。キャラメルのような匂いと思う。最低気温はそれほどだったと思うが、気温がずっと上がらなかったように思う。Tに目にクマが出来てると指摘される。ここ数日ちょっとパソコンとかしすぎだったと思う。今日開封したチプルソ/バブルソのCD。これからちょっとしてから聞く。歌詞カード付なのでよい。昼食は、Tに貰ったウニ瓶詰でウニご飯にした。食味・風味は生ウニと比せられるものではなく、これを美味いかと言われると、うーん、ウニってこうやって食べると、珍味だなあ。単品で食べたほうが良いようにも思う。天気予報で雪降るかも知れないと言っていた、朝遅めに起きたら地面がちらほらと白かった、夜中に降ったようだ。「帯文データベース」リニューアルリニューアルした。新ページ→「帯文データベース」。僕自身あまり使っていないもので、試運転みたいなものだが。ついでに、↓は旧・帯文データベース(2013/4/7〜2017/1/14)のキャプチャー画像。新・帯文データベースは、突貫工事で一応完成。データベースとしての出来をみるなら、不備もある(一部日本語対応していないとか)。後ほどリニューアルする。DB機能はキーワード検索のみになった。ファイル一覧表示機能は僕の技術では導入できなかった。それとPHPのfopenで複数ファイルの読み込みに対応できなかった(出来るはずなのだが、上手く動かないし、良いやり方が分からない)(おかげで長大な1枚ファイルを作らないといけなかった)。今回のリニューアルで、ページの読み込み時間が大幅に短縮したのはよかった。これまで通りCSVファイルの配布はしている。ページが軽くなったということは、それだけページに含まれる帯文その他情報がuoo.jp/obibun-db.htmlから消えたということで、そうした情報を手掛かりにしているGoogleとかの検索には掛からなくなってくるだろう。アクセス数減るだろうなあ......。新・帯文DBのPHPスクリプトは「ファイル簡易検索(埋込型/CSV用)」(=CGIKON)をほぼそのまま利用した。プログラム配布元の「CGIKON」さんにはとても感謝している。他、今回のリニューアルで、帯文のローカル環境での管理に利用しているエクセルでマクロを使うようにした(少しでも更新能率が上がるようにするため)。以下のページを参照した。当該ページが削除されたときのために、肝心な部分を引いておく。・「エクセルVBA超入門!たった10分でスタート地点に立つための方法」(=いつも隣にITのお仕事)*VBAプログラミングを書き始めるための手引き。1.開発タブをリボンに表示インストールしたままの状態のエクセルではVBAプログラミングのための開発タブが隠されています。リボンに開発タブ表示しましょう。ファイルタブ→オプションでExcelのオプションウィンドウを開きまして開発タブにチェックリボンのユーザー設定→メインタブの開発にチェックを入れます。Editor)という専用のアプリケーションを使って編集をしていきます。Basicを選択してください。VBEが立ち上がります。VBEを呼び出せます。3.変数宣言を強制にするデフォルトのVBAでは変数を宣言しなくても使えるという状態です。後々良くないので、変数は宣言しないとダメよ!という設定に変更をしておきます。ツールタブからオプションを選びます。VBEオプションを開く→するとオプションウィンドウが開きますので、変数の宣言を強制するにチェックを入れてOKをして下さい。4.標準モジュールを挿入してコードウィンドウを開く相変わらず素っ気ない画面なので、まず実際にプログラムを記述していくコードウィンドウを開きます。挿入タブから標準モジュールを選択します。これでコードウィンドウが開きます。5.イミディエイトウィンドウを開く次にプログラムの実行確認などに使うデバッグ用のイミディエイトウィンドウを開きます。プッシュ!画面下部にイミディエイトウィンドウが開きます。この時点の画面はこちらです。コードウィンドウが閉じているときは、画面左側のプロジェクトウィンドウからMobule1をダブルクリックすると開きます。以上でVBAプログラムをするための準備は完了です。6.VBAプログラムを保存する今回は何のプログラムも書いていませんが、一度保存をしてみましょう。書いたVBAプログラムはエクセルファイルの中に一緒に保存される形になります。VBAプログラムを含むエクセルファイルの場合は、ファイルの種類をマクロ有効ブックに変更して保存をする必要があります。VBA入門:複数のシートのデータを1つのシートにまとめる」(=よねさんのWordとExcelの小部屋)*「エクセルの複数シートをVBAを活用して1枚のシートにまとめる」ためのコードソース。以下の2つのコードをそれぞれ標準モジュールに記載する。突貫工事をして疲れたので、取り敢えずちょっと休憩。今週買ったチプルソのCDもまだ聞けていないな。昼、レクリエーションで祝い会。別部署の元料理人Kが朝5時から4時間かかって作ったというオードブル頂く。腕のほどを見たのだが、いや上手。夜、Tと田ノ浦漁港までドライブ。↑は新・帯文データベースの今のところのイメージ。一応ちまちまとタグを打ったり切り貼りしたりしてるのだが、果たして実際に動くのだろうか(未実験)。機能を絞れば取り敢えずの試運転は出来るだろうけど。なんかちょっと急に気分がふさいでいる(今しがた終えたTとの電話の最中から)。Tとの結婚の件が理由だろうが。今日はTが午後から法人の仕事で抜けたので、さっさと帰宅。この日記も今(飲酒しながら)17時台に書いている。