RSet Statement

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