Sisukord

# RSet lause

Paremjoondab stringi stringmuutujas või kopeerib kasutaja määratud muutuja tüübi teise tüüpi.

### Süntaks:

    RSet Text As String = Text või RSet Variable1 = Variable2

### Parameetrid:

Text: Suvaline stringmuutuja.

Text: stringmuutujas paremale joondatav string.

Variable1: kasutaja määratud muutuja, mis on kopeeritud muutuja sihtmuutuja.

Variable2: kasutaja määratud muutuja, mille soovid mõnda muusse muutujasse kopeerida.

Kui string on lühem kui stringmuutuja, siis joondab lause RSet stringi stringmuutujas paremale. Stringmuutuja kõik ülejäänud märgid asendatakse tühikutega. Kui string on pikem kui stringmuutuja, siis märgid, mis ületavad muutuja pikkuse, kärbitakse ja stringmuutujas joondatakse paremale ainult järelejäänud märgid.

Lauset RSet saab kasutada ka kasutaja määratud tüübiga muutujate määramiseks teisele kasutaja määratud tüübile.

Järgmises näites kasutatakse lauseid RSet ja LSet stringi vasak- ja paremjoonduse muutmiseks.

### Näide:

    Sub ExampleRLSet
    Dim sVar As String
    Dim sExpr As String
        sVar = String(40,"*")
        sExpr = "SBX"
        REM Paremjoonda "SBX" 40-märgilises stringis
        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 stringis
        LSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(5,"*")
        sExpr = "123456789"
        LSet sVar = sExpr
        Print ">"; sVar; "<"
    End Sub

Sarnased teemad

String functions

Palun toeta meid!