PadString Any Side
Pads a string with any character you like. I usually use it to pad numbers with leading zeros. But you can use it for other things.
Original Author: VisualProgman
Inputs
Input ltring, length of return string, pad character, and side to pad
Returns
a string
Side Effects
No matter howmany characters in the pstrChar your pad character is the first character of pstrChar.
API Declarations
Public Enum enPadString
pdLeft
pdRight
End Enum
Code
Public Function PadString(pstrInput As String, _
pintWidth As Integer, _
pstrChar As String, _
Optional penSidetoPad As enPadString = pdLeft) As String
'Returns
'-------
'PadString("12345", 10, "0") = "0000012345"
'PadString("12345", 10, "0", pdRight)) = "1234500000"
'Declare Variables
'-----------------
Dim strTemp As String
'-----------------
'End Declares
'Creates a string to the length of
'pintWidth of the first character
'of pstrChar.
strTemp = String$(pintWidth, pstrChar)
'Check to see what side to pad?
If penSidetoPad = pdRight Then
PadString = Left$(pstrInput & strTemp, pintWidth)
Else
PadString = Right$(strTemp & pstrInput, pintWidth)
End If
End Function 'PadString
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.