指定文字の数え方

---

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

private TEXT as String 

TEXT = "111,222,333,444"

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

編集 削除

---

'*-----------------------------------------------------------------------------
'*  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

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

編集 削除

---

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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。