• Home
 · 
• String Manipulation
 · 
• PadString Any Side

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.

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

Rate PadString Any Side

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

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