LSet Statement

Zarovná reťazec vľavo v reťazcovej premennej alebo skopíruje premennú používateľom určeného typu do inej premennej iného používateľom určeného typu.

Syntax:

LSet Premenná As String = Text alebo LSet Premenná1 = Premenná2

Paremetre:

Premenná: Premenná typu String obsahujúca reťazec, ktorý chcete zarovnať vľavo.

Text: Reťazec, ktorý chcete zarovnať vľavo od premennej typu string.

Premenná1: Názov premennej používateľom definovaného typu, do ktorej chcete kopírovať.

Premenna2: Názov premennej používateľom definovaného typu, z ktorej chcete kopírovať.

Ak je reťazec kratší ako reťazcová premenná, LSet zarovná reťazec vľavo v reťazcovej premennej. Zostávajúce miesta v reťazci budú nahradené medzerami. Ak je reťazec dlhší ako reťazcová premenná, budú skopírované len znaky najviac naľavo až do dĺžky reťazcovej premennej. Príkazom LSet je tiež možné kopírovať premennú používateľom definovaného typu do inej premennej rovnakého typu.

Príklad:

Sub ExampleRLSet

Dim sVar As String

Dim sExpr As String

    sVar = String(40,"*")

    sExpr = "SBX"

    REM Zarovná "SBX" 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á vľavo "SBX" v 40-znakovom reťazci

    LSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123456789"

    LSet sVar = sExpr

    Print ">"; sVar; "<"

End Sub