ライブラリ

fString_Left_Chop

***************************************************************
文字列の左端を1文字削除(値指定の場合、指定値の場合のみ除去)

【引数】Value :対象の文字列
              Chop :除去したい値
              Compare :文字列判定方法(VbCompareMethodに準拠)
***************************************************************

Public Function fString_Left_Chop(Value As String, Optional Chop As String, Optional Compare As VbCompareMethod = vbBinaryCompare) As String
    
    If Value = "" Then Exit Function
    
    If Chop = "" Then
        
        fString_Left_Chop = Mid$(Value, 2)
        
    ElseIf Value <> "" Then
        
        If fString_Left_With(Value, Chop, Compare) = True Then
            fString_Left_Chop = Mid$(Value, Len(Chop) + 1)
        Else
            fString_Left_Chop = Value
        End If
        
    End If
    
End Function

String   2017/11/21   shono

この記事へのコメント

コメントを送る

 
※ メールは公開されません
Loading...
 画像の文字を入力してください
6月 2017年7月 8月
      1
2345678
9101112131415
16171819202122
23242526272829
3031

ブログ投稿者一覧

年別アーカイブ一覧