Left Or Right Padding Of A String In Script

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 first published in November 2000

Dig deeper on Domino Resources - Part 5

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close