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

Palun toeta meid!