IBM Lotus Symphony
|
Poravna niz znotraj spremenljivke niza na desno ali pa prekopira uporabniško definirano vrsto spremenljivke v drugo.
RSet Text As String = Text or RSet Variable1 = Variable2
Text: Katerakoli spremenljivka niza.
Text: Niz, ki ga želite poravnati na desno spremenljivke niza.
Variable1: Uporabniško definirana spremenljivka, ki je cilj za kopirano spremenljivko.
Variable2: Uporabniško definirana spremenljivka, ki jo želite prekopirati v drugo spremenljivko.
Če je niz krajši od spremenljivke niza, RSet poravna niz na desno znotraj spremenljivke niza. Vsi ostali znaki v spremenljivki niza se zamenjajo s presledki. Če je niz daljši od spremenljivke niza, so znaki, ki presegajo dolžino spremenljivke, odrezani, in samo ostali znaki se poravnajo na desno znotraj spremenljivke niza.
Prav tako lahko uporabljate stavek RSet, če želite dodeliti spremenljivke ene uporabniško definirane vrste drugi.
Naslednji primer uporablja stavka RSet in LSet za spreminjanje leve in desne poravnave niza.
Sub ExampleRLSet
Dim sVar as string
Dim sExpr as string
sVar = String(40,"*")
sExpr = "SBX"
REM Right-align "SBX" in a 40-character string
REM Replace asterisks with spaces
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123457896"
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(40,"*")
sExpr = "SBX"
REM Left-align "SBX" in a 40-character string
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub