Pad Text To String

This function is good to use when creating records with a fixed with.
In banking I've used it when creating transaction files where the record has a
fixed length and all fields has to be either numeric or alfanueric and padded
with zeros or spaces to fill.
This function takes a teststring (textToPad) and adds characters before or
after.
Function padText(textToPad As String, newLen As Integer, padWith As String,
psFix As String) As String

'textToPad
'String; text to be "padded"

'newLen
'Integer; Length of the new String (total length)


'padWidth
'String; What to fill With


'psFix
'String; determines whether to Add it as prefix or suffix to the String

Dim orglen As Integer
Dim tmpString As String
Dim tmpPad As String

orglen = Len(textToPad)
' returns If the new length is the same as the old length

If orglen = newLen Then
padText = textToPad
Exit Function
End If
If orglen > newLen Then
' New length cannot be less than the original length

Msgbox "Error textToPad: Instring " + textToPad + " length " +
Cstr(orgLen) +_
" is less than new length " + Cstr(newLen)
End If

tmpPad = String$(newLen - orgLen, padWith)
If psFix = "P" Then
'Prefix
tmpString = tmpPad + textToPad
Elseif psFix = "S" Then
'Suffix
tmpString = textToPad + tmpPad
Else
'Error
Msgbox "textToPad contains wrong arguments"
End If
If Len(tmpString) <> newLen Then
Msgbox "Error textToPad: New padded string " + tmpString +_
" is larger than the original string " + textToPad
End If

padText = tmpString
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:

-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