Ukaz RSet

Desno poravna niz v rezultat, ali pa kopira uporabniško določeno spremenljivko v drugo spremenljivko.

Skladnja:


RSet Besedilo As String = Besedilo or RSet Spremenljivka1 = Spremenljivka2

Parametri:

Besedilo: poljuben izraz vrste String (niz).

Besedilo: Niz, ki ga želite desno poravnati v rezultat.

Spremenljivka1: Uporabniško definirana spremenljivka, ki je rezultat kopiranja.

Spremenljivka2: Uporabniško definirana spremenljivka, iz katere se kopira.

Če je niz krajši od spremenljivke, ga bo RSet v rezultatu poravnal na desno. Vsa ostala mesta v rezultatu se zapolnijo s presledki. Če je niz daljši od spremenljivke rezultata, se odvečne znake odvrže, ostali znaki pa se desno poravnajo v rezultat.

Z ukazom RSet lahko tudi kopirate uporabniško določene spremenljivke med seboj.

Naslednji primer uporablja ukaza RSet in LSet, da izvorni niz poravna na desno in na levo.

Primer:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    ' poravnajmo "SBX" na desno v niz dolžine 40 znakov
    ' zvezdice zamenjajmo s presledki
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    ' poravnajmo "SBX" na levo v niz dolžine 40 znakov
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub

Funkcije z nizi