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