Manage
Learn to apply best practices and optimize your operations.
Left Or Right Padding Of A String In Script
(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