今日は息子（巨人ファン）が、嫁（巨人ファン）と嫁の母（大の巨人ファン）と野球観戦に行ってきた。 チケットを取ってくれたＯ先輩ありがとうございました。 ワタクシ（ドアラ好き）はチャイと一緒に留守番ですわ。 帰ってきたら巨人軍フル装備ですよ。 す…

避妊手術から１週間たったので病院に行った。 傷の状態を診てもらったら問題なし。めでたく抜糸して、カラーを外してもらった。今まで良くがんばったな、チャイ。 家に帰って落ち着くと、カラーを付けていたせいで毛づくろいできなかった1週間分のストレスを…

エディタの メニュー - ツール - 参照設定 - 「Microsoft Scripting Runtime」 サンプル Dim FSO As New FileSystemObject Dim TS As TextStream Set TS = FSO.CreateTextFile(Filename:=ThisWorkbook.Path & "\test.txt", Overwrite:=True) TS.WriteLine "…

は良好です。 だいぶカラーにも慣れたようだ。つってもジャマな事には変わりない様子。早く取ってあげたい。 明々後日の土曜日に抜糸の予定なので、問題が無ければ自由になれるはずだ。 それまでの辛抱だぞ、がんばれチャイ！

地デジか？で今のアナログ契約が来年２月末で打ち切られる事が分かった。 そのままケーブルテレビでデジタル契約をすれば何の問題も無いのだが、 ケーブルテレビは金がかかる 地デジはアナログよりもキレイに映るらしい アナログの電波塔よりも地デジの電波…

最近パンを焼いたブログを書いてなかったのは、決してサボっていた訳ではありません。 とりあえず普通の食パンはそこそこ焼けることが分かったので、代わり映えしない記事を載っける必要は無いかな、と。ちなみに粉の違いはイマイチ良く分からない・・・最強…

パラボラアンテナ付けてｷﾀ━(ﾟ∀ﾟ)━! 寂しかったよーチャヒー、会いたかったー アニマルネッカーって書いてある。エリザベスカラーっていうんだって。 ・・・何だかとてもイヤそうだ。いろんな所にぶつかってる。 かわいそうだ・・・取ってあげたい・・・でも…

今日嫁がチャイを病院に連れて行った。 明日の午後に帰ってくるそうだ。 一晩いないだけなのに、寂しいもんですな。

Split って配列でしょ？だったらレングｔｈじゃん。 Dim SplitCount As Integer SplitCount = Split(temStr, "+").Length (ﾟДﾟ)ﾊｧ? もしかして Count か？な訳ねーよなー SplitCount = Split(temStr, "+").Count ですよね〜 調べてみると Variant型にいれて …

我が家は未だにケーブルテレビのアナログ契約だ。 | | ＼|＼| |／|／ |~＼ | | /~/| ヾヾヽ、＿|＿|＿/ // ＼／ ＼／ / ● ●＼ | | ＼ ＼ /／ | ＼_●/| ／ ∧＿＿∧ ＼ / /| 地 |ヽ ヽ | | | デ. | | | | | .|. ジ .| | | ■ | カ |. ■ |＼＿／| | |. | | | |. |…

普通、VB6 or VBAでファイル入出力の処理をする時に、ファイル番号を任意に割り振ります。しかし、処理するファイルが沢山になってくると、ファイル番号の管理が大変になってきます。そのような時は、FreeFile関数のリターン値を使うと、今空いているファイ…

避妊手術を４月１５日に受ける事になった。 猫を飼おうと決めた当初、完全室内飼育と避妊・去勢は必須だと考えていた。 だが一緒に居ると、この子の体にメスを入れたくないな〜なんて思ったり。 が、不用意な繁殖を避けるためやむを得ず決断した。 恐らく猫…

今息子たちの間ではやっているらしい。 体を使った遊びなので体力作りやバランス感覚を養うのには良いはずだ。 怪我が心配だが、ゲームばかりしているよりも健康的なので、道路や危ない場所で遊ばないと約束させ購入した。 チャヒも興味深々の様子だ。 裏は…

Dim str As String = String.Empty Dim ErrorCount As Integer = 0 While True Console.Write("文字「a」または「b」を入力してください >") str = Console.ReadLine() '入力された値を読み込む If (str = "a") Or (str = "b") Then Console.WriteLine("入力…

Int32.TryParse Method (System) | Microsoft Docs Dim str As String : Dim i As Integer str = Console.ReadLine() '入力された値を読み込む If Integer.TryParse(str, i) Then Console.WriteLine("入力されたのは数値: {0}", i) Else Console.WriteLine("…

イラストレーター 改行コード で改行の削除はとりあえず可能になったが、他所のイラスト屋さんから送られてきたイラストレーターファイルには「vbCr」では取れない物も存在した。 イカン！これではイカン！！という事で、Replace と StringReader の2段構え…

イラストレーターのアイテムを格納する class を作り、プロパティとしてアイテムの情報を取得させる。 Dim PName As Object Dim PNameStr As String '条件に合う文字列を「PName」に格納。 PName = From c As IllData1 In iData Where (c.Cate = 3) AndAlso …

耳が・・・

春休みなので嫁の実家に預けていた息子を迎えに行った。天気が良かったので桜を見に嫁の母校をチイ散歩してみた。のどかで良い所です。 背中で語る息子。 嫁の母校。 満開ですな。

あぁん？スイーツだぁあん？ 男は黙ってワンカップだろ？粗塩舐ながらよぉ なんちゃってー ＿＿＿_ ／⌒ ⌒ ＼ ／ （●） （●） ＼ ＋ / :::::⌒（__人__）⌒:::::ヽ | |r┬-| | + . ＼_ `ー'´ _,／ ／ ＼ + |￣￣￣￣￣￣￣￣ | ﾄﾝ _（,,) マカロン (,,）_ ／ |＿…

#If DEBUG Then ReDim Fs(0) Fs(0) = "F:\sample\a001.ai" #End If