by VisualProgman (2 Submissions)
Category: String Manipulation
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(3 Votes)
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.
Inputs
Input ltring, length of return string, pad character, and side to pad
Code Returns
a string
Side Effects
No matter howmany characters in the pstrChar your pad character is the first character of pstrChar.
API DeclarationsPublic Enum enPadString
pdLeft
pdRight
End Enum
VBcodersPublic 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