Modul
Obsah
Index 🔎︎

# Příkaz LSet

Zarovná řetězec vlevo v řetězcové proměnné nebo zkopíruje proměnnou typu definovaného uživatelem do jiné proměnné jiného typu definovaného uživatelem.

## Syntaxe:

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

## Parametry:

Proměnná: Proměnná typu String obsahující řetězec, který chcete zarovnat vlevo.

Text: Řetězec, který chcete zarovnat vlevo od ř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á, LSet zarovná řetězec vlevo 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 zkopírovány jen znaky nejvíce nalevo až do délky řetězcové proměnné. Příkazem LSet je také možné kopírovat proměnné uživatelem definovaného typu do jiné proměnné stejného typu.

## Příklad:

    Sub ExampleRLSet

    Dim sVar As String

    Dim sExpr As String

        sVar = String(40,"*")

        sExpr = "SBX"

        ' Zarovná "SBX" 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á vlevo "SBX" ve 40znakovém řetězci

        LSet sVar = sExpr

        Print ">"; sVar; "<"

        sVar = String(5,"*")

        sExpr = "123456789"

        LSet sVar = sExpr

        Print ">"; sVar; "<"

    End Sub