LSet
Left-justifies a string
Declare Sub LSet Overload ( ByRef dst As String, ByRef src As Const String )
Declare Sub LSet ( ByVal dst As WString Ptr, ByVal src As Const WString Ptr )
LSet dst, src
LSet dst_udt, src_udt
src
LSet left justifies text into the string buffer dst, filling the left part of the string with src and the right part with spaces. The string buffer size is not modified.
For compatibility with QBasic, LSet can also copy a user defined type variable into another one. The copy is made byte for byte, without any care for fields or alignment. It's up to the programmer to take care for the validity of the result.
Syntax
Declare Sub LSet Overload ( ByRef dst As String, ByRef src As Const String )
Declare Sub LSet ( ByVal dst As WString Ptr, ByVal src As Const WString Ptr )
Usage
LSet dst, src
LSet dst_udt, src_udt
Parameters
src
String variable to receive the data.
dstSource string to get the data.
dst_udtUser defined Type to receive the data.
src_udtDescription
LSet left justifies text into the string buffer dst, filling the left part of the string with src and the right part with spaces. The string buffer size is not modified.
For compatibility with QBasic, LSet can also copy a user defined type variable into another one. The copy is made byte for byte, without any care for fields or alignment. It's up to the programmer to take care for the validity of the result.
Example
Dim buffer As String
buffer = Space(10)
LSet buffer, "91.5"
Print "-[" & buffer & "]-"
buffer = Space(10)
LSet buffer, "91.5"
Print "-[" & buffer & "]-"
Type mytype1
x As Integer
y As Integer
End Type
Type mytype2
z As Integer
End Type
Dim a As mytype1 , b As mytype2
b.z = 1234
LSet a, b
Print a.x
x As Integer
y As Integer
End Type
Type mytype2
z As Integer
End Type
Dim a As mytype1 , b As mytype2
b.z = 1234
LSet a, b
Print a.x
Differences from QB
- In QB, the syntax was LSet dst = src
See also
