RSet Statement

Zarovn√° text typu String vpravo v r√°mci premennej typu String alebo skop√≠ruje pouŇĺ√≠vateńĺom definovan√Ĺ typ premennej do inej.

Syntax:

RSet Text As String = Text alebo RSet Premenn√°1 = Premenn√°2

Paremetre:

Text: Ak√Ĺkońĺvek reŇ•azec.

Text: ReŇ•azec, ktor√Ĺ chcete zarovnaŇ• vpravo v reŇ•azcovej premennej.

Premenn√°1: N√°zov premennej pouŇĺ√≠vateńĺom definovan√©ho typu, do ktorej chcete kop√≠rovaŇ•.

Premenn√°2: N√°zov premennej pouŇĺ√≠vateńĺom definovan√©ho typu, ktor√ļ chcete kop√≠rovaŇ•.

Ak je reŇ•azec kratŇ°√≠ ako reŇ•azcov√° premenn√°, RSet zarovn√° reŇ•azec vpravo v reŇ•azcovej premennej. Zost√°vaj√ļce miesta v reŇ•azci bud√ļ nahraden√© medzerami. Ak je reŇ•azec dlhŇ°√≠ ako reŇ•azcov√° premenn√°, znaky prekrańćuj√ļce dńļŇĺku premennej bud√ļ orezan√© a zost√°vaj√ļce znaky bud√ļ zarovnan√© vpravo.

Pr√≠kaz RSet je tieŇĺ je moŇĺn√© pouŇĺiŇ• na priradenie premennej pouŇĺ√≠vateńĺom definovan√©ho typu do inej premennej rovnak√©ho typu.

Nasleduj√ļci pr√≠klad pouŇĺ√≠va pr√≠kazy RSet a LSet na √ļpravu ńĺav√©ho a prav√©ho zarovnania reŇ•azca.

Príklad:

Sub ExampleRLSet

Dim sVar As String

Dim sExpr As String

    sVar = String(40,"*")

    sExpr = "SBX"

    REM Zarovn√° "SBX" vpravo v 40-znakovom reŇ•azci

    REM nahrad√≠ hviezdińćky medzerami

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123457896"

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(40,"*")

    sExpr = "SBX"

    REM Zarovn√° "SBX" vńĺavo v 40-znakovom reŇ•azci

    LSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123456789"

    LSet sVar = sExpr

    Print ">"; sVar; "<"

End Sub