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