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