LSet lause

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

String functions