Obsah

# 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

Související témata

Řetězcové funkce