FF_LSET

[Paul Squires]

Code Select Expand




''
''  FF_LSET
''  Return a string containing a left-justified (padded) string.
''
''  If sPadCharacter is null (empty) or is not specified, then the function
''  pads string_expression with space characters to the right. Otherwise,
''  the function pads the string with the first character of sPadCharacter.
''
Function FF_LSet( ByRef sMainString   As String, _
                  ByRef nStringLength As Integer, _
                  ByRef sPadCharacter As String = " " _
                  ) As String

    Dim s As String
    s = String( nStringLength, Asc(sPadCharacter, 1) )
   
    Mid( s, 1, Len(sMainString) ) = sMainString
   
    Function = s
End Function