Diary201701b

【2017/1/20(金)】

◆ 今日の帯文 - 『乙女ループ・乙』(鬼龍駿河)ほか10冊
推薦者 帯文 推薦書籍
荒木飛呂彦 「現代日本の、美しくて新しい古代神話だ!」という興奮をありがとうございます。
幻獣少年キマイラ<キマイラ> (角川文庫)幻獣少年キマイラ(角川文庫)(夢枕獏)
諫山創 刈り上げっていいヘアスタイルですよね
かりあげクン(55) (アクションコミックス)かりあげクン(55)(植田まさし)
石川淳 安部君の手にしたがって、壁に世界が開かれる。壁は運動の限界ではなかった。ここから人間の生活がはじまるのだということを、諸君は承認させられる。諸君がつれ出されていく先は、諸君みずからの生活の可能です。どうしてもこうなって行く。この世界は諸君の精神をつかんではなさない。というのは、そこに諸君の運命が具象化されているからです。 壁(安部公房)
石黒正数 女子力、脱力、会話力、魅力、おバカ。女子高生の力が集結している!
乙女ループ・乙 (楽園コミックス)乙女ループ・乙(鬼龍駿河)
上田美和 深い心理描写とストーリー、人物造形、画力、全てにおいて脱帽です。
潔く柔く 10 (マーガレットコミックスDIGITAL)潔く柔く(10)(いくえみ綾)
円城塔 神林長平はまっすぐ進む。歪んでいるのはあなたの方だ。
ぼくらは都市を愛していたぼくらは都市を愛していた(神林長平)
尾田栄一郎 花夏!! そこでカウンターだ!!
ハナカク 3: -The Last Girl Standing- (ゼノンコミックス)ハナカク(3)(松井勝法)
佐藤春夫 拝呈。過刻は失礼。「道化の華」早速一読、甚だおもしろく存じ候。無論及第点をつけ申し候。「なにひとつ真実を言わぬ。けれども、しばらく聞いているうちには思わぬ拾いものをすることがある。彼等の気取った言葉のなかに、ときどきびっくりするほど素直なひびきの感ぜられることがある。」という篇中のキイノートをなす一節がそのままうつし以てこの一篇の評語とすることが出来ると思います。ほのかにあわれなる真実の蛍光を発するを喜びます。恐らく真実というものはこういう風にしか語れないものでしょうからね。病床の作者の自愛を祈るあまり、慵斎主人、特に一書を呈す。何とぞおとりつぎ下さい。 (五月三十一日夜、否、六月一日朝。午前二時頃なるべし。) 晩年(太宰治)
福本伸行 アナ隠さず…ってダメだろ!そんなの!調子に乗るなぁ〜!o(>_<)o 1巻の話だけど…。
ぷあぷあ?(2) (ワイドKC 週刊少年マガジン)ぷあぷあ?(2)(コンノトヒロ)
持田昌典 本書を読まれた皆さんの中にも、仕事や人生に対する今までになかった熱意が沸き起こると、私は確信している
ハードワーク 勝つためのマインド・セッティングハードワーク 勝つためのマインド・セッティング(エディー・ジョーンズ)
山岸凉子 マガジン9というサイトの「時々お散歩日記」をのぞいてみました。私の知りたかった原発の事が一杯!! 皆さまも是非のぞいてみてくださいませ。私達が何に着目すべきかがわかります。 反原発日記(鈴木耕)
 上記リストは、そのHTMLを旧DB作成に使っていた「bpTran」にて出力。DBをリニューアルして、bpTranはもう使わないかなと思ったが、こうして日記のほうでは使えるな。
 今、収集意欲もそれなりにあり、(作るのが結構手間なこんなリストを作るくらいには)調子がいい。

 仕事行き。割とのんびり過ごす。やはり夕方になると耐えるのが辛いほど寒い。
 日が過ぎていく。Tには今日も結婚の件でつつかれる。


【2017/1/19(木)】

 多分「ン」も読み込めるようになったと思う。また良かった。

 ノートリメインズではこれまで文字コードは全部Shift_JIS使ってたんだけど、どうもそれでは帯文DBで検索するにあたって都合が悪い――特に頻用する「ー」(長音符)を読み込まなかった。つまり例えば、長音符を含む「サンボマスター」「リリー・フランキー」も検索でヒットしなかった。CSVファイルに収録自体はしていたのだが。これではちょっと残念なので、処置としてDB関連のページの文字コードは全てEUCに変更した、これで「ー」も検索できるようになった。よかった。

 仕事行き。昨日より寒さは和らいだ。取引先の椎茸屋だが、3月一杯で事業畳むよう。年明けから納品がなかった理由がこれで分かった。僕はと言えば、在庫を抱えなくていいのでほっとした。


【2017/1/18(水)】

◆ 今日の帯文 - 『フラワーズ・カンフー』(小津夜景)
推薦者 帯文 推薦書籍
正岡豊 廃園から楽園へ。
フラワーズ・カンフーフラワーズ・カンフー(小津夜景)
 もうすぐ日付が変わる。ちょっとユーチューブ見たら寝よう。

 朝、非常に寒かった。道端の温度計は-3℃。
 仕事行き。Tに防寒にも向いた厚底の靴貰う。日中、店でこそこそと帯文を収集。35、6点集めた。機を見てまたこっそり集めよう。
 夕、Tとちょっと揉める。のち、和解。


【2017/1/17(火)】

 仕事行き。今日は11時台に客が割と途切れずに来た。この1時間だけで売上9千円ほどあった。なんとも珍しい。もっとも、1日合計額は注文分、身内買い込みで2万ちょっとだったが……。
 飲酒メモ。ブラックニッカ・ディープブレンド。ふと、キャラメルのような匂いと思う。


【2017/1/16(月)】

◆ 今日の帯文 - 『パックランドでつかまえて テレビゲームの青春物語』(田尻智)
推薦者 帯文 推薦書籍
砂原良徳 ポケモンとZ80の関係はこの頃から始まっていた
パックランドでつかまえて―テレビゲームの青春物語 (ファミ通Books)パックランドでつかまえて テレビゲームの青春物語(田尻智)

 とても寒い日だった。最低気温はそれほどだったと思うが、気温がずっと上がらなかったように思う。
 Tに目にクマが出来てると指摘される。まあここ数日ちょっとパソコンとかしすぎだったと思う。


【2017/1/15(日)】

 201701154  今日開封したチプルソ/バブルソのCD。これからちょっとしてから聞く。歌詞カード付なのでよい。

 201701152  昼食は、Tに貰ったウニ瓶詰でウニご飯にした。 201701153  もちろん食味・風味は生ウニと比せられるものではなく、これを美味いかと言われると、うーん、ウニってこうやって食べると、珍味だなあ。単品で食べたほうが良いようにも思う。(それでもまたウニご飯すると思うが)

 201701151  天気予報で雪降るかも知れないと言っていた、朝遅めに起きたら地面がちらほらと白かった、夜中に降ったようだ。


【2017/1/14(土)】

◆ 「帯文データベース」リニューアル
 リニューアルした。
 新ページ→「帯文データベース」。URLは以前と同じ。
 まだ僕自身あまり使っていないもので、試運転みたいなものだが。

 ついでに、↓は旧・帯文データベース(2013/4/7〜2017/1/14)のキャプチャー画像。記念に。 201701141
 新・帯文データベースは、突貫工事で一応完成。が、やはりデータベースとしての出来をみるなら、不備もある(一部日本語対応していないとか)。
 後ほどリニューアルする。

 DB機能はキーワード検索のみになった。ファイル一覧表示機能は僕の技術では導入できなかった。それとPHPのfopenで複数ファイルの読み込みに対応できなかった(出来るはずなのだが、上手く動かないし、良いやり方が分からない)(おかげで長大な1枚ファイルを作らないといけなかった)。それぞれ残念。
 今回のリニューアルで、ページの読み込み時間が大幅に短縮したのはよかった。またこれまで通りCSVファイルの配布はしている。
 ただ、ページが軽くなったということは、それだけページに含まれる帯文その他情報がuoo.jp/obibun-db.htmlから消えたということで、そうした情報を手掛かりにしているGoogleとかの検索には掛からなくなってくるだろう。アクセス数減るだろうなあ……。

 新・帯文DBのPHPスクリプトは「ファイル簡易検索(埋込型/CSV用)」(=CGIKON)をほぼそのまま利用した。プログラム配布元の「CGIKON」さんにはとても感謝している。

 他、今回のリニューアルで、帯文のローカル環境での管理に利用しているエクセルでマクロを使うようにした(少しでも更新能率が上がるようにするため)。
 以下のページを参照した。また当該ページが削除されたときのために、肝心な部分を引いておく。
「エクセルVBA超入門!たった10分でスタート地点に立つための方法」(=いつも隣にITのお仕事)
*VBAプログラミングを書き始めるための手引き。
1.開発タブをリボンに表示
インストールしたままの状態のエクセルではVBAプログラミングのための開発タブが隠されています。リボンに開発タブ表示しましょう。
ファイルタブ→オプションでExcelのオプションウィンドウを開きまして開発タブにチェック
リボンのユーザー設定→メインタブの開発にチェックを入れます。

2.VBEを起動する
VBAプログラミングはVBE(Visual Basic Editor)という専用のアプリケーションを使って編集をしていきます。
先ほど追加した開発タブからVisual Basicを選択してください。VBEが立ち上がります。
VBEをオープンする
ショートカットキー alt+f11 でもVBEを呼び出せます。

3.変数宣言を強制にする
デフォルトのVBAでは変数を宣言しなくても使えるという状態です。後々良くないので、変数は宣言しないとダメよ!という設定に変更をしておきます。
まずツールタブからオプションを選びます。
VBEオプションを開く→するとオプションウィンドウが開きますので、変数の宣言を強制するにチェックを入れてOKをして下さい。これで完了です。

4.標準モジュールを挿入してコードウィンドウを開く
相変わらず素っ気ない画面なので、まず実際にプログラムを記述していくコードウィンドウを開きます。
挿入タブから標準モジュールを選択します。これでコードウィンドウが開きます。

5.イミディエイトウィンドウを開く
次にプログラムの実行確認などに使うデバッグ用のイミディエイトウィンドウを開きます。
ショートカットキーで ctrl+g をプッシュ!
画面下部にイミディエイトウィンドウが開きます。この時点の画面はこちらです。
コードウィンドウが閉じているときは、画面左側のプロジェクトウィンドウからMobule1をダブルクリックすると開きます。
以上でVBAプログラムをするための準備は完了です。

6.VBAプログラムを保存する
今回は何のプログラムも書いていませんが、一度保存をしてみましょう。
書いたVBAプログラムはエクセルファイルの中に一緒に保存される形になります。
VBAプログラムを含むエクセルファイルの場合は、ファイルの種類をマクロ有効ブックに変更して保存をする必要があります。
「Excel(エクセル) VBA入門:複数のシートのデータを1つのシートにまとめる」(=よねさんのWordとExcelの小部屋)
*「エクセルの複数シートをVBAを活用して1枚のシートにまとめる」ためのコードソース。以下の2つのコードをそれぞれ標準モジュールに記載する。
Sub sh_check()
 Dim newSh As String
 Dim Sh As Worksheet, myFlag As Boolean
  newSh = "全データ"
  myFlag = False
  For Each Sh In ThisWorkbook.Worksheets
    If Sh.Name = newSh Then
      myFlag = True
      '----全データシートのデータをクリアし、先頭へ移動します
      Worksheets(newSh).Cells.ClearContents
      Worksheets(newSh).Move before:=Sheets(1)
      Exit For
    End If
  Next Sh
  '----全データシートを先頭へ追加します
  If myFlag = False Then
    ActiveWorkbook.Worksheets.Add(before:=Worksheets(1)).Name = newSh
  End If
End Sub
Sub matome()
 Dim i As Integer
 Dim lRow As Long, lCol As Long, lRow2 As Long
  Application.ScreenUpdating = False
   '----全データシートの有無をチェックします
  sh_check
  '----列見出しをコピーします
  Worksheets(2).Range("1:1").Copy Worksheets(1).Range("A1")
  For i = 2 To Worksheets.Count
    With Worksheets(i)
      lRow = .Cells(Rows.Count, 1).End(xlUp).Row
      lCol = .Cells(1, Columns.Count).End(xlToLeft).Column
      '----シートのデータが2行以上の場合にコピーします
      If lRow >= 2 Then
        lRow2 = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Activate
        .Range(Cells(2, 1), Cells(lRow, lCol)).Copy Worksheets(1).Cells(lRow2, 1)
      End If
    End With
  Next i
  Worksheets(1).Activate
  Range("A1").Select
  Application.ScreenUpdating = True
End Sub

 突貫工事をして疲れたので、取り敢えずちょっと休憩。
 今週買ったチプルソのCDもまだ聞けていないな。


【2017/1/13(金)】

 仕事行き。昼、レクリエーションで祝い会。別部署の元料理人Kが朝5時から4時間かかって作ったというオードブル頂く。初めて腕のほどを見たのだが、いや上手。満腹。夜、Tと田ノ浦漁港までドライブ。


【2017/1/11(水)】

 201701111  ↑は新・帯文データベースの今のところのイメージ。一応ちまちまとタグを打ったり切り貼りしたりしてるのだが、果たして実際に動くのだろうか(未実験)。まあ、機能を絞れば取り敢えずの試運転は出来るだろうけど。

 なんかちょっと急に気分がふさいでいる(今しがた終えたTとの電話の最中から)。多分、Tとの結婚の件が理由だろうが。

 仕事行き。今日はTが午後から法人の仕事で抜けたので、さっさと帰宅。この日記も今(飲酒しながら)17時台に書いている。わあ。