IBM Lotus Symphony
|
将某个字符串变量中的字符串左对齐,或者将用户定义类型的变量复制到其他用户定义的类型变量。
LSet Var As String = Text or LSet Var1 = Var2
Var:含有要左对齐的字符串的任何字符串变量。
Text:字符串变量中要左对齐的字符串。
Var1:您想复制到的用户定义的类型变量名称。
Var2:您想从其复制的用户定义的类型变量名称。
若字符串长度小于字符串变量,LSet 左对齐字符串变量中的字符串。字符串变量中的剩余位置由空格代替。如果字符串变量的长度小于字符串的长度,那么仅复制字符串中前 n 个字符,n 由字符串变量的长度决定。LSet 语句还可用于将用户定义类型的变量复制到相同类型的其他变量。
Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
sVar = String(40,"*")
sExpr = "SBX"
REM Align "SBX" within the 40-character reference string
REM Replace asterisks with spaces
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123457896"
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(40,"*")
sExpr = "SBX"
REM Left-align "SBX" within the 40-character reference string
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub