仕事を頑張る人のおしりトラブル対策

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

このQ&Aに関連する最新のQ&A

A 回答 (1件)

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



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
    • good
    • 0
この回答へのお礼

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

お礼日時:2006/02/06 15:18

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング