文字列検索について

質問

文字列から検索対象文字がいくつあるかカウントする関数はありますでしょうか？
strTest　という変数からchar(10)の改行文字のカウントをしたいのですが。

回答No.1

temtecomai2 · ベストアンサー

文字列の長さによってはスピードがどうだかわかりませんが、下記のような感じでどうでしょうか？

wordCount = InStrCount(strTest)

Function InStrCount(aExpression)
Dim findCount
Dim i

findCount = 0
If Len(aExpression) >= 1 Then
For i = 1 To Len(aExpression)
If Mid(aExpression, i, 1) = Chr(10) Then
findCount = findCount + 1
End If
Next
End If

InStrCount = findCount
End Function

お礼

おかげさまで無事カウントがとれるようになりました。
文字列もそんなに長いものではないので大丈夫そうです。
大変助かりました。
本当にありがとございました。