RSet Statement

Right-aligns a string within a string variable, or copies a user-defined variable type into another.

āļšāˇāļģāļš āļģāˇ“āļ­āˇ’āļē:


RSet Text As String = Text or RSet Variable1 = Variable2

āļ´āļģāˇāļ¸āˇ’āļ­āˇ“āļąāˇŠ:

Text: āļ­āļąāˇŠāļ­āˇ” āļ…āļģāˇāˇ€āļšāˇŠ

Text: String that you want to right-align in the string variable.

Variable1: User-defined variable that is the target for the copied variable.

Variable2: User-defined variable that you want to copy to another variable.

If the string is shorter than the string variable, RSet aligns the string to the right within the string variable. Any remaining characters in the string variable are replaced with spaces. If the string is longer than the string variable, characters exceeding the length of the variable are truncated, and only the remaining characters are right-aligned within the string variable.

You can also use the RSet statement to assign variables of one user-defined type to another.

The following example uses the RSet and LSet statements to modify the left and right alignment of a string.

āļ‹āļ¯āˇāˇ„āļģāļĢāļē:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    REM Right-align "SBX" āļ…āļšāˇ”āļģāˇ” 40 āļ…āļąāˇ” āļŊāļšāˇ”āļĢāˇ” āˇ€āˇāļŊāļšāˇ’āļąāˇŠ
    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" āļ…āļšāˇ”āļģāˇ” 40 āļ…āļąāˇ” āļŊāļšāˇ”āļĢāˇ” āˇ€āˇāļŊāļšāˇ’āļąāˇŠ
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub

Please support us!