Module
Contents
Index 🔎︎

# 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