ライブラリ

fString_Left_Count

***************************************************************
文字列の左端で指定値をカウント

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

Public Function fString_Left_Count(Value As String, Find As String, Optional Compare As VbCompareMethod = vbBinaryCompare) As Long
'- 文字列内の指定文字をカウント
    
    If Value = "" Or Find = "" Then Exit Function
    
    Dim Len_Cnt As Long
    Len_Cnt = Len(Find)
    
    Dim At_Cnt  As Long
    At_Cnt = 1
    
    Do
        Dim At_Fnd  As Long
        At_Fnd = InStr(At_Cnt, Value, Find, Compare)
        If At_Fnd <> At_Cnt Then Exit Do
        
        Dim Cnt     As Long
        Cnt = Cnt + 1
        At_Cnt = At_Fnd + Len_Cnt
    Loop
    
    fString_Left_Count = Cnt
    
End Function

String   2017/11/21   shono

この記事へのコメント

コメントを送る

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