プロ野球開幕！

プロ野球が開幕しましたね。

実は昨年からのにわか野球ファンです。

贔屓チームはカープです。

開幕3連戦については阪神相手に勝ち越しとなりまして、実に喜ばしいことです。

昨年同様にリーグ優勝果たせたら嬉しいなぁ。

WBCで見知った選手たちと今度は敵対しながらのシーズンを見るのは正直複雑な心境ですが、楽しみです。

[ノサックス] Nosacks カープシューズ KCC102 RD(赤/27)

新日配薬品 広島カープ応援ドリンク 100ml×10本

コップのフチ子　野球　ボールのフチ子　広島東洋カープver

三菱鉛筆 多機能ペン ジェットストリーム4&1カープ（0.5） ボルドー

カープCHIBIリュック

カープ　天然石ブレスレット

Babyカープロンパース (70ｃｍ・80ｃｍ)

[カシオ]CASIO 腕時計 G-SHOCK G-LIDE 世界6局電波ソーラーウォッチ タイドグラフ&ムーンデータ搭載 GWX-5600C-4JF メンズ

ど~んと鯉手袋 Mサイズ

かっとばし カラー 広島東洋 カープ 大 22.5cm プロ野球のバットを再利用 AD-755

大量のファイルをWinMergeで比較したスクリーンショットをExcel保存するマクロ

VBA大好き人間です。

今回はWinMergeで大量（300ファイル程度）のファイルを比較して、そのスクリーンショットをExcel保存するマクロを作成しました。

＜マクロ＞

Private Declare Sub Keybd_event Lib "user32" (  _

    Byval bVk As Byte, _

    ByVal bScan As Byte, _

    ByVal dwFlags As Long, _

    ByVal dwExtraInfo As Long)

Private Sub getActiveWindowSS()

    keybd_event &HA4, 0&, &H1, 0&

    keybd_event vbKeySnapshot, 0&, &H1, 0&

    keybd_event vbKeySnapshot, 0&, &H1 Or &H2, 0&

    keybd_event &HA4, 0&, &H1 Or &H2, 0&

End Sub

Public Sub runWinMerge (ByVal pPathA As String, ByVal pPathB As String)

    Dim ShellObj as Object

    Set ShellObj = CreateObject("WScript.Shell")

    ShellObj.Run """<WinMergeのパス>""" " & pPathA & "  " & pPathB, 3, False

    Application.Wait Now + TimeValue("0:00:02")

    getActiveWindowSS

    ShellObj.SendKeys "%{F4}"

End Sub

＜使用例＞

runWinMerge C:\temp\a.txt, C:\temp\b.txt

⇒クリップボードに比較結果の画面イメージが格納されるので好きに利用する。

以上です。

VBAエキスパート公式テキスト Excel VBA ベーシック [模擬問題プログラム付き]

VBAエキスパート公式テキスト Excel VBA スタンダード

クシュが元気になってきた（うれしい）

心臓に先天性（？）の疾患をもつクシュ。

先月は元気がなく、体重も2キロ未満まで落ち込んでいました。

原因は慢性腎不全。

猫の場合、腎不全はとても起こりやすい病気で、一旦発症すれば治すことはできず併発する症状を抑えるための対応しかできません。

歯がゆい思いをしながらも獣医さんと一緒に何とか一日でも長く生きてもらえるように対策を講じています。

最初とても危険な状態（獣医師の話ではあと数日通院が遅れていれば手遅れだった可能性が高いとのこと）でしたが、妻の頑張り（毎日の投薬、食事療法、週2回の通院）でここ2週間ほどで劇的に体調が良くなってきています。

1.2キロまで落ち込んでいた体重は2.1キロまで戻り、よろついていた足取りも自力でキャットタワー最上部に飛び乗れるまでに良くなりました。

このままいつまでも元気でいてほしいです。

この子はまだ3歳、これからたくさんの思い出を作っていきたいですから。

腎不全への対応で我が家が適用しているのは以下のものになります。

同じ悩みで苦しんでいる飼い主さんの参考になれば幸いです。

 ＜サポート食＞

我が家の場合、元々ドライが好きな子だったので、ウェットの方はあまり食べはよくありませんでした。

ロイヤルカナン 療法食 腎臓サポート ドライ 猫用 2kg

ロイヤルカナン療法食　腎臓サポートフィッシュテイストウエットパウチ　８５ｇＸ１２個

＜薬＞※広告は掲載しません。獣医の指導のもと使用するか決めてください。

・セミントラ

　⇒シリンジで経口摂取させるタイプのものを我が家では使用しています。

・吐き気止め

　⇒尿毒素の濃度上昇による吐き気を抑えるために使用しています。シリンジで経口摂取させるタイプです。

＜サプリメント＞

毎食のフードに掛けて与えています。

顆粒なので比較的与えやすいです。 

共立製薬 犬猫用 ネフガード協和(顆粒) 400mg 50スティック

自分用メモ～キャンディ塗装に挑戦してみようと思う～

現在制作中のzephr400のタンクとカウルの部分にキャンディ塗装を施してみようと思い立つ。

今週の土日で試してみよう。

現時点で一旦クロムシルバー混じりのワインレッドで塗装してるけど、その上からクリアブルーとクリアレッドを重ねてみようかな。

プラモデルは失敗しても誰にも迷惑が掛からないのでプレッシャーなくできる趣味であります。

青島文化教材社 1/12 バイクシリーズ No.16 カワサキ ゼファーχ カスタムパーツ付 プラモデル

青島文化教材社 1/12 バイクシリーズ No.83 カワサキ ゼファーχファイナルエディション プラモデル

青島文化教材社 1/12 バイクシリーズ No.1 カワサキ ゼファー プラモデル

青島文化教材社 1/12 バイクシリーズ No.7 カワサキ ゼファーχ プラモデル

青島文化教材社 1/12 ネイキッドバイク No.22 カワサキ ゼファー スーパーストリート

青島文化教材社 1/12ネイキッドバイクNo.1 カワサキゼファー

1/12 バイクシリーズ No.16 カワサキ ゼファーχ カスタムパーツ付 プラモデル by 青島文化教材社 [並行輸入品]

バッチファイルからSQLPLUSを呼びつつ、SQLエラーを拾うメモ

作成する機会があったのでメモ

＜バッチファイル＞

@echo off

sqlplus <ユーザ>/<パスワード>@<サービス> @test.sql > out.log

if %errorlevel% == 0 goto :OK

:NG

color 4f

echo NG

pause

exit

:OK

color 2f

echo OK

pause

exit

＜SQLファイル(test.sql)＞

WHENEVER SQLERROR EXIT -1

select * from dual; --任意のSQL

EXIT 0

取りあえずこれで行ってみよう。

コマンドプロンプト、バッチファイルで背景色を変える

コマンドプロンプトおよびバッチファイルで画面背景色を変える方法を知ったのでメモ。

COLOR 2F

で緑色

COLOR 4F

で赤色

バッチ実行時エラーなんかを目立たせるために使用できそう。

生体販売の是非

ホームセンターやペットショップでは犬や猫が販売されています。

血統種を飼育したいという需要に応える市場であると認識しています。

当然ですが、小売店販売においては小売業者、生産者の利益確保が目的とされています。

「命に値段をつけること」の是非については僕は語る資格はありません。

なぜなら僕は肉や魚に対価を支払って食べているからです。

僕が問題視しているのは生体販売で動物に不要なストレスがかかっていることです。

狭いケージの中で一日中初対面の人間に晒され、売れなかったら「引き取り屋」なる劣悪な環境で飼殺す業者に引き渡される。そのようなプロセスに不快感を感じるのです。

動物の小売において利益を大きくするために、無理な飼育をしている業者というのは存在します。

「ペットミル」と呼ばれるような業者は劣悪な環境で動物を工場的に生産しています。

生体販売における各流通経路上の企業・個人に監査の仕組みがあれば不幸な動物は減るのかなと思います。

なお、血統種というのは一つの芸術の類だと僕は思っています。

その飼育において、動物にストレスがかかっていないならば種の美しさを追求するという考えはあるのかなと思います。

僕自身もやもやしていて之といった答えは出せない問題ですが、動物たちが幸せに暮らせる世界になるといいなと思います。