指定文字の数え方

ろでぃ 2004-06-17 01:41:09 No: 84057

いつもお世話になってます。よろしくお願いします。
テキストボックスに入っている文字列の中から指定の文字がいくつ
入っているかを知る関数はあるんでしょうか？

private TEXT as String

TEXT = "111,222,333,444"

例えば上記のTEXTに格納さされているカンマ","がいくつあるか(この場合３つ)
を知りたいんです。Instrでひとつずつカンマまでの文字数を求めて、
１カウントして、文字数＋１からまたカンマまでも文字数を求めて、
１カウントアップ・・・とループしないと取得できないでしょうか？

nanashi 2004-06-17 02:07:25 No: 84058

'*-----------------------------------------------------------------------------
'*  CharCount   :   指定の文字列を数える
'*
'*  arguments   :   対象文字列
'*              :   検索する文字列
'*
'*  return      :   検索数
'*-----------------------------------------------------------------------------
Private Function CharCount(ByVal sTarget As String, ByVal sSearch As String) As Long

    CharCount = (Len(sTarget) - Len(Replace(sTarget, sSearch, ""))) / Len(sSearch)
End Function

Private Sub Command1_Click()

Debug.Print CharCount(TEXT, ",")
End Sub

こんな感じでいかがでしょうか？

PO 2004-06-17 05:41:54 No: 84059

A=UBOUND(SPLIT("1,2,333,4",","))