LSet Statement

Joondab stringi stringimuutujast vasakule või kopeerib kasutaja määratletud tüübiga muutuja kasutaja määratletud erineva tüübiga muusse muutujasse.

Süntaks:

LSet Var As String = Text või LSet Var1 = Var2

Parameetrid:

Var: vasakule joondatavat stringi sisaldav suvaline stringmuutuja.

Text: stringmuutujast vasakule joondatav string.

Var1: selle kasutaja määratletud tüübiga muutuja nimi, kuhu soovid kopeerida.

Var2: selle kasutaja määratletud tüübiga muutuja nimi, millest soovid kopeerida.

Kui string on lühem kui stringmuutuja, siis joondab lause LSet stringi stringmuutujas vasakule. Kõik ülejäänud stringmuutuja positsioonid asendatakse tühikutega. Kui string on pikem kui stringmuutuja, siis kopeeritakse ainult kõige vasakpoolsemad märgid kuni stringmuutuja lõpuni. Lause LSet abil saab kasutaja määratletud tüübiga muutuja kopeerida ka muusse sama tüüpi muutujasse.

Näide:

Sub ExampleRLSet

Dim sVar As String

Dim sExpr As String

    sVar = String(40,"*")

    sExpr = "SBX"

    REM Joonda SBX 40-märgilises viitestringis

    REM Asenda tärnid tühikutega

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123457896"

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(40,"*")

    sExpr = "SBX"

    REM Vasakjoonda SBX 40-märgilises viitestringis

    LSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123456789"

    LSet sVar = sExpr

    Print ">"; sVar; "<"

End Sub