LSet Statement

Zarovn√° reŇ•azec vńĺavo v reŇ•azcovej premennej alebo skop√≠ruje premenn√ļ pouŇĺ√≠vateńĺom urńćen√©ho typu do inej premennej in√©ho pouŇĺ√≠vateńĺom urńćen√©ho typu.

Syntax:


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

Parameters:

Premenn√°: Premenn√° typu String obsahuj√ļca reŇ•azec, ktor√Ĺ chcete zarovnaŇ• vńĺavo.

Text: ReŇ•azec, ktor√Ĺ chcete zarovnaŇ• vńĺavo od premennej typu string.

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

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

Ak je reŇ•azec kratŇ°√≠ ako reŇ•azcov√° premenn√°, LSet zarovn√° reŇ•azec vńĺavo v reŇ•azcovej premennej. Zost√°vaj√ļce miesta v reŇ•azci bud√ļ nahraden√© medzerami. Ak je reŇ•azec dlhŇ°√≠ ako reŇ•azcov√° premenn√°, bud√ļ skop√≠rovan√© len znaky najviac nańĺavo aŇĺ do dńļŇĺky reŇ•azcovej premennej. Pr√≠kazom LSet je tieŇĺ moŇĺn√© kop√≠rovaŇ• premenn√ļ pouŇĺ√≠vateńĺom definovan√©ho typu do inej premennej rovnak√©ho typu.

Example:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    REM Zarovn√° "SBX" 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√° vńĺavo "SBX" 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!