RSet Statement

右对齐字符串变量中的字符串，或将自定义变量类型复制为其他变量。

语法：

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"

    ' 在长度为 40 个字符的字符串中右对齐“SBX”

    ' 用空格代替星号

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123457896"

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(40,"*")

    sExpr = "SBX"

    ' 在长度为 40 个字符的字符串中左对齐 "SBX"

    LSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123456789"

    LSet sVar = sExpr

    Print ">"; sVar; "<"

End Sub