Manage

Left Or Right Padding Of A String In Script

Fred Stoki

Download this free guide

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.

Corporate E-mail Address:

You forgot to provide an Email Address.

This email address doesn’t appear to be valid.

This email address is already registered. Please login.

You have exceeded the maximum character limit.

Please provide a Corporate E-mail Address.
- I agree to TechTarget’s Terms of Use, Privacy Policy, and the transfer of my information to the United States for processing to provide me with relevant information as described in our Privacy Policy.
Please check the box if you want to proceed.
- I agree to my information being processed by TechTarget and its Partners to contact me via phone, email, or other means regarding information relevant to my professional interests. I may unsubscribe at any time.
Please check the box if you want to proceed.

Allows Padding to a string to the side of function you use. Parameters are:
(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

SearchWindowsServer

Related Resources

Dig Deeper on Domino Resources - Part 5

Start the conversation

0 comments

Register

Login

Forgot your password?

Your password has been sent to:

Please create a username to comment.