String Lenght

[HebieBug]

Am working on a mini program component that takes certain data and places it into a direct debiting system.
The Direct debiting system will only accept certain character lengths. Anyone know of an easy way of setting a variable to accept a maximum character lenght from another variable?

 

[JohnYingling]

Right justified?

Function RJust(byval strToJustify as string, _
    byval strLeftPad as string, _
    byval lngLength as long) as string
    ' Pad max on left and take from the Right
    RJust = Right$(String$(lngLength,Left$(strLeftPad,1)) & _
            strToJustify, lngLength)
End Function

http://WWW.VBCompare.Com

 

[chiph]

Hmmm.
How about creating a class with properties for each variable. In each Let Property, use Left$() in the asignment statement to the internal variable. When you later go to read it via the Get Property, it'll be the correct length. Think of this class as acting as a data filter.
[tt]
Option Explicit

Private m_FName As String
Private m_LName As String

Public Property Let FName(ByVal RHS As String)
m_FName = Left$(RHS, 20)
End Property
Public Property Get FName As String
FName = m_FName
End Property

Public Property Let LName(ByVal RHS As String)
m_LName = Left$(RHS, 30)
End Property
Public Property Get LName As String
LName = m_LName
End Property
[/tt]