IBM Lotus Symphony
|
Poravna niz na levo stran spremenljivke niza ali pa prekopira spremenljivko uporabniško definirane vrste v drugo spremenljivko druge uporabniško definirane vrste.
LSet Var As String = Text or LSet Var1 = Var2
Var: Katerakoli spremenljivka String, ki vsebuje niz, ki ga želite poravnati na levo.
Text: Niz, ki ga želite poravnati na levo spremenljivke niza.
Var1: Ime uporabniško definirane vrste spremenljivke, v katero želite prekopirati.
Var2: Ime uporabniško definiranega vrste spremenljivke, iz katerega želite prekopirati.
Če je niz krajši od spremenljivke niza, LSet poravna niz na levo znotraj spremenljivke niza. Vsi ostali položaji v spremenljivki niza se zamenjajo s presledki. Če niz ni daljši od spremenljivke niza, se kopirajo samo najbolj levi znaki do dolžine spremenljivke niza. S stavkom LSet lahko prav tako prekopirate uporabniško definirano vrsto spremenljivke v drugo spremenljivko iste vrste.
Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
sVar = String(40,"*")
sExpr = "SBX"
REM Align "SBX" within the 40-character reference 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" within the 40-character reference string
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub