Manage
Learn to apply best practices and optimize your operations.
Left Or Right Padding Of A String In Script
Download: IT Certifications 101
Inside this exclusive essential guide, our independent experts break down which IT certifications are worth your time and effort, and how to get started obtaining them to further your career— including specific certifications that any cloud or desktop pro should seriously consider.
By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.
You also agree that your personal information may be transferred and processed in the United States, and that you have read and agree to the Terms of Use and the Privacy Policy.
(the_string, Length of the total string that should be returned, string that
you want to Pad with [ if left blank it will default to a space])
I'm using it to Pad Zeros to the front of a number.
Function RightPad( str_String As String, int_Length As Integer, str_Pad As
String ) As String
Dim int_add As Integer
int_add = int_length - Len(str_string)
' Default Pading
If Len(str_Pad) = 0 Then
str_Pad = " "
End If
If int_add <= 0 Then
RightPad = str_string
Else
For x = 1 To int_add
RightPad = RightPad + str_Pad
Next
RightPad = str_string + RightPad
End If
End Function
OR
Function LeftPad( str_String As String, int_Length As Integer, str_Pad As
String ) As String
Dim int_add As Integer
int_add = int_length - Len(str_string)
' Default Pading
If Len(str_Pad) = 0 Then
str_Pad = " "
End If
If int_add <= 0 Then
LeftPad = str_string
Else
For x = 1 To int_add
LeftPad = str_Pad + LeftPad
Next
LeftPad = LeftPad + str_string
End If
End Function
This was last published in November 2000
Start the conversation
0 comments