Pahayag ng RSet

I-right-align ang isang string sa loob ng string variable, o kinokopya ang isang uri ng variable na tinukoy ng user sa isa pa.

RSet Text Bilang String = Text o RSet Variable1 = Variable2

Teksto: Anumang string variable.

Text : String na gusto mong i-right-align sa string variable.

Variable1: Variable na tinukoy ng user na target para sa nakopyang variable.

Variable2: Variable na tinukoy ng user na gusto mong kopyahin sa isa pang variable.

Kung ang string ay mas maikli kaysa sa string variable, RSet aligns ang string sa kanan sa loob ng string variable. Anumang natitirang mga character sa string variable ay papalitan ng mga puwang. Kung ang string ay mas mahaba kaysa sa string variable, ang mga character na lampas sa haba ng variable ay puputulin, at ang natitirang mga character lamang ang naka-align sa kanan sa loob ng string variable.

Maaari mo ring gamitin ang RSet na pahayag upang magtalaga ng mga variable ng isang uri na tinukoy ng user sa isa pa.

Ang sumusunod na halimbawa ay gumagamit ng RSet at LSset mga pahayag upang baguhin ang kaliwa at kanang pagkakahanay ng isang string.

Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    ' I-right-align ang "SBX" sa isang 40-character na string
    ' Palitan ang mga asterisk ng mga puwang
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    ' I-align sa kaliwa ang "SBX" sa isang 40-character na string
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub