Příkaz RSet

Zarovná text typu String vpravo v rámci proměnné typu String nebo zkopíruje uživatelem definovaný typ proměnné do jiné.

Syntaxe:

RSet Text As String = Text nebo RSet Proměnná1 = Proměnná2

Parametry:

Text: Libovolný řetězec.

Text: Řetězec, který chcete zarovnat vpravo v řetězcové proměnné.

Proměnná1: Název proměnné uživatelem definovaného typu, do které chcete kopírovat.

Proměnná2: Název proměnné uživatelem definovaného typu, ze které chcete kopírovat.

Je-li řetězec kratší než řetězcová proměnná, RSet zarovná řetězec vpravo v řetězcové proměnné. Zbývající místa v řetězci budou nahrazena mezerami. Je-li řetězec delší než řetězcová proměnná, budou oříznuty znaky překračující délku proměnné a zbývající znaky budou zarovnány vpravo.

Příkaz RSet je také je možné použít k přiřazení proměnné uživatelem definovaného typu do jiné proměnné stejného typu.

Následující příklad používá příkazy RSet a LSet k úpravě levého a pravého zarovnání řetězce.

Příklad:

Sub ExampleRLSet

Dim sVar As String

Dim sExpr As String

    sVar = String(40,"*")

    sExpr = "SBX"

    ' Zarovná "SBX" vpravo ve 40znakovém řetězci

    ' Nahradí hvězdičky mezerami

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123457896"

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(40,"*")

    sExpr = "SBX"

    ' Zarovná "SBX" vlevo ve 40znakovém řetězci

    LSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123456789"

    LSet sVar = sExpr

    Print ">"; sVar; "<"

End Sub