Usage of the LSET$ CSET$ RSET$ Keywords

[Michael Clease]

' Usage of the LSET$ Keyword example
' Usage of the CSET$ Keyword example
' Usage of the RSET$ Keyword example
'
'
' Written by Abraxas

DIM MyOLDString as String value "HELLO WORLD"
DIM MyLSETString as string
DIM MyCSETString as string
DIM MyRSETString as string
DIM sMsg as string
DIM Length as Byte

Length = Len(MyOLDstring)

MyLSETString = LSET$(MyOLDString, Length+10 USING "*")
MyCSETString = CSET$(MyOLDString, Length+10 USing "*")
MyRSETString = RSET$(MyOLDString, Length+10 USING "*")

sMSG += "Strings Padded with * " & $CRLF & $CRLF
sMsg += "Normal " & MyOLDString & $CRLF & $CRLF
sMsg += "LSET$ " & MyLSETString & $CRLF & $CRLF
sMsg += "CSET$ " & MyCSETString & $CRLF & $CRLF
sMsg += "RSET$ " & MyRSETString & $CRLF & $CRLF

MsgBox 0, sMsg

[ErosOlmi]

Added. Thanks