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

Please support us!