読者です 読者をやめる 読者になる 読者になる

妻一人、子供二人、猫六匹

僕がやったこと。思ったこと。日々の思い出。

プロ野球開幕!

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

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

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

 

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

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

 

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

 

 

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

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

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

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

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

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

 
ど~んと鯉手袋 Mサイズ

ど~んと鯉手袋 Mサイズ

 

 

大量のファイルを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 ベーシック [模擬問題プログラム付き]

  • 作者: 田中亨
  • 出版社/メーカー: オデッセイコミュニケーションズ
  • 発売日: 2009/03/31
  • メディア: 単行本(ソフトカバー)
  • 購入: 3人 クリック: 19回
  • この商品を含むブログ (4件) を見る
 
VBAエキスパート公式テキスト Excel VBA スタンダード

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

  • 作者: 田中亨
  • 出版社/メーカー: オデッセイコミュニケーションズ
  • 発売日: 2009/06/04
  • メディア: 単行本(ソフトカバー)
  • 購入: 3人 クリック: 22回
  • この商品を含むブログ (7件) を見る
 

 

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

心臓に先天性(?)の疾患をもつクシュ。

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

原因は慢性腎不全。

 

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

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

 

https://www.instagram.com/p/BQvBH-wFIdV/

 

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

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

 

 

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

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

 

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

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

 

 <サポート食>

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

 

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

・セミントラ

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

・吐き気止め

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

 

 

サプリメント

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

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

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

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

 

 

 

 

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

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

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

 

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

 

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

 

 

 

バッチファイルから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

で赤色

 

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

 

 

生体販売の是非

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

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

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

 

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

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

 

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

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

 

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

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

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

 

 

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

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

 

 

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