ホーム > ライブラリ > String > fString_Count

ライブラリ

fString_Count

***************************************************************
文字列をカウント
※様々な方法から、最速の方法でカウント

【引数】Value :検索対象の文字列
              Find :検索値
              Compare :文字列判定方法(VbCompareMethodに準拠)
***************************************************************

Public Function fString_Count(Value As String, Find As String, Optional CompareMode As VbCompareMethod = vbBinaryCompare) As Long
'- 文字列内の指定文字をカウント
'+ 200万Hit:0.30s
    
    Dim At_Start    As Long
    At_Start = 1
    
    Dim Len_Find    As Long
    Len_Find = Len(Find)
    Do
        
        At_Start = InStr(At_Start, Value, Find, CompareMode) + Len_Find
        
        Dim Cnt         As Long
        If At_Start = Len_Find Then
            Exit Do
        Else
            Cnt = Cnt + 1
        End If
        
    Loop
    
    fString_Count = Cnt
    
End Function

String   2017/11/21   shono

この記事へのコメント

コメントを送る

 
※ メールは公開されません
Loading...
 画像の文字を入力してください