RSet lause

Paremjoondab stringi stringmuutujas või kopeerib kasutaja määratud muutuja tüübi teise tüüpi.

SĂĽntaks:


RSet Text As String = Text või RSet Variable1 = Variable2

Parameetrid:

Text: Suvaline stringmuutuja.

Text: stringmuutujas paremale joondatav string.

Variable1: kasutaja määratud muutuja, mis on kopeeritud muutuja sihtmuutuja.

Variable2: kasutaja määratud muutuja, mille soovid mõnda muusse muutujasse kopeerida.

Kui string on lühem kui stringmuutuja, siis joondab lause RSet stringi stringmuutujas paremale. Stringmuutuja kõik ülejäänud märgid asendatakse tühikutega. Kui string on pikem kui stringmuutuja, siis märgid, mis ületavad muutuja pikkuse, kärbitakse ja stringmuutujas joondatakse paremale ainult järelejäänud märgid.

Lauset RSet saab kasutada ka kasutaja määratud tüübiga muutujate määramiseks teisele kasutaja määratud tüübile.

Järgmises näites kasutatakse lauseid RSet ja LSet stringi vasak- ja paremjoonduse muutmiseks.

Näide:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    REM Paremjoonda "SBX" 40-märgilises stringis
    REM Asenda tärnid tühikutega
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    REM Vasakjoonda SBX 40-märgilises stringis
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub