Simpler Left- And Rightpad Functions

I've been using the following LS functions to pad strings for display. This can
also be done using @Functions like this:

StringToPad := "3456";
StringLength := 10;
PadChar := "0";
RightPad := @Left(StringToPad + @Repeat(PadChar; StringLength); StringLength);
LeftPad := @Right(@Repeat(PadChar; StringLength) + StringToPad ; StringLength)
Function RightPad(StringToPad As String, StringLength As Integer, PadChar as
String) As String
FLength%= StringLength - Len(StringToPad)
If Len(PadChar) = 0 Then PadChar = " "
FTemp$ = String$(StringLength, PadChar)
If FLength% <= 0 Then
RightPad = StringToPad
Else
RightPad = Left$(StringToPad & FTemp$, StringLength)
End If
End Function

Function LeftPad(StringToPad As String, StringLength As Integer, PadChar as
String) As String
FLength%= StringLength - Len(StringToPad)
If Len(PadChar) = 0 Then PadChar = " "
FTemp$ = String$(StringLength, PadChar)
If FLength% <= 0 Then
LeftPad = StringToPad
Else
LeftPad = Right$(FTemp$ & StringToPad, StringLength)
End If
End Function
This was first published in November 2000

Dig deeper on Lotus Notes Domino Administration Tools

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:

SearchWinIT

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

SearchVirtualDataCentre.co.uk

Close