Module
Contents
Index 🔎︎

# 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