IBM Lotus Symphony
|
右对齐字符串变量中的字符串,或将用户定义变量类型复制为其他变量。
RSet Text As String = Text or RSet Variable1 = Variable2
Text:任何字符串变量。
Text:字符串变量中要右对齐的字符串。
Variable1:复制变量时的目标用户定义变量。
Variable2:要复制到其他变量的用户定义变量。
如果字符串变量的长度大于字符串的长度,RSet 右对齐字符串变量中的字符串。字符串变量中剩余的字符用空格代替。如果字符串变量的长度小于字符串的长度,那么超出变量长度的字符将被截去,而仅右对齐剩下的字符。
RSet 语句还可用于将用户定义类型变量指定为其他变量。
以下示例使用 rSet 和 LSet 语句来修改字符串的左对齐和右对齐。
Sub ExampleRLSet
Dim sVar as string
Dim sExpr as string
sVar = String(40,"*")
sExpr = "SBX"
REM Right-align "SBX" in a 40-character 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" in a 40-character string
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub