Fixed Length Text fields

[Mervyn Thomas]

Can anyone suggest how I can right pad a text field so that it always has a
fixed length of 18. I have an import requirement that a field is 18
characters long but the source data is variable length and unfortunately I
cannot use delimiters in the import.

[Executor]

Hi Mervin,

I have created a common function:

Public Function RightPad(ByVal sOriginal As String, ByVal iLength As
Integer) As String
If Len(sOriginal) < iLength Then
RightPad = sOriginal & Space(iLength - Len(sOriginal))
Else
RightPad = Left(sOriginal, iLength)
End If
End Function

It takes 2 parameters:
1) The string
2) The length it must have.

If it is shorter some spaces will be added at the end.
If if is to long it will be truncated at the given length.

HTH.


Executor

[Mervyn Thomas]

That's perfect!
Mervyn
"Executor" <wouter.magre@sogeti.nl> wrote in message
news:1141733330.553804.224980@z34g2000cwc.googlegroups.com...
> Hi Mervin,
>
> I have created a common function:
>
> Public Function RightPad(ByVal sOriginal As String, ByVal iLength As
> Integer) As String
> If Len(sOriginal) < iLength Then
> RightPad = sOriginal & Space(iLength - Len(sOriginal))
> Else
> RightPad = Left(sOriginal, iLength)
> End If
> End Function
>
> It takes 2 parameters:
> 1) The string
> 2) The length it must have.
>
> If it is shorter some spaces will be added at the end.
> If if is to long it will be truncated at the given length.
>
> HTH.
>
>
> Executor
>