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"

    REM  在 40 個字元的參照字串中向右對齊「SBX」

    REM  用空格代替星號

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123457896"

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(40,"*")

    sExpr = "SBX"

    REM 在 40 個字元的參照字串中向左對齊「SBX」

    LSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123456789"

    LSet sVar = sExpr

    Print ">"; sVar; "<"

End Sub