ライブラリ

fString_Right_Fix

***************************************************************
文字列の右端が指定値でない場合に補完

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

Public Function fString_Right_Fix(Value As String, FixVal As String, Optional Compare As VbCompareMethod = vbBinaryCompare) As String
    
    If FixVal = "" Then
        
        fString_Right_Fix = Value
        
    ElseIf Value = "" Then
        
        fString_Right_Fix = FixVal
        
    Else
        
        If fString_Right_With(Value, FixVal, Compare) = False Then
            fString_Right_Fix = Value & FixVal
        Else
            fString_Right_Fix = Value
        End If
        
    End If
    
End Function

String   2017/11/21   shono

この記事へのコメント

コメントを送る

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