鬱々なるままに日暮らし

特定の文字が対象の文字列に何個含まれるか調べるプログラムを作ってみました。

' 文字の出現回数を集計
' psWord String 対象文字列
' psFindWord String 検索文字列
Private Function CntStr(psWord As String, psFindWord As String) As Integer
    Dim i As Integer
    Dim j As Integer
    Dim s As String

    CntStr = 0
    j = 0

    i = InStr(psWord, psFindWord)
    If i > 0 Then
        j = j + 1
        s = Mid$(psWord, i + Len(psFindWord))

        ' 検索文字列を除外した残りの文字がブランク以外なら再度CntStr関数を呼び出す
        If s <> "" Then
            j = j + CntStr(s, psFindWord)
        End If
    End If

    CntStr = j
End Function

more...

theme : プログラミング
genre : コンピュータ

エロ系なスパムコメントって、自動で入ってくるのかな？
投稿する時にパスワード入力させるようなテンプレートないかな。
まあ、いくらコメント入れても承認しないと表示されないから、無駄なんだけどね。

拒否して、削除するのが面倒だ。

theme : ブログ
genre : ブログ

前日、薄着ではしゃぎすぎたせいか子供が風邪ひいた。
熱が少しでてる。熱が出ると色々心配になります。

theme : こどもの病気
genre : 育児

少し忙しくなってきた。まあ、たいしたことはないんだけどね。
なんか、よその仕事を手伝うらしいけど、そんな余裕あるのか？

やっぱり、あの人はわからんわ。

more...

theme : うつと暮らす
genre : 心と身体

職場の人間関係でちょっと憂鬱。
ま、大したことないけど。

theme : うつ病（鬱病）、メンタルヘルス
genre : 心と身体

薬は飲み続けてるけど、気分は平静を保ってます。
仕事もなんとかいけてるし、大丈夫かなぁって感じ。
ただ、きつい状況になってどうなるかはわかりませんが、それも何とかなるかって気分。

theme : うつ病（鬱病）、メンタルヘルス
genre : 心と身体

3連休じゃ〜のはずが、また週末にやってしまった。
仕事が一段落したので次の準備をごそごそとやってたら・・・うごかんくなった。

週末に中途半端な状態にならないようにしようと思ってたのに、つまらんところではまってしまった。油断したわ。

とりあえず、3連休は散髪行って、汚れた車を洗車するかのう。

more...

theme : 転職
genre : 就職・お仕事