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

Parameters:

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.

Example:


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

String functions