IBM Lotus Symphony
|
Zarovná doprava reťazec v reťazcovej premennej alebo skopíruje typ premennej zadaný užívateľom na iný typ.
RSet text ako typ String = text alebo RSet premenná_1 = premenná_2
Text: ľubovoľná reťazcová premenná.
Text: reťazec, ktorý chcete zarovnať doľava v reťazcovej premennej.
Premenná_1: premenná definovaná užívateľom, ktorá je cieľom kopírovanej premennej.
Premenná_2: premenná definovaná užívateľom, ktorú chcete kopírovať do inej premennej.
Ak je reťazec kratší ako reťazcová premenná, príkaz RSet zarovnáva doprava reťazec v reťazcovej premennej. Ostatné zostávajúce pozície v reťazcovej premennej sa nahradia medzerami. Ak je reťazec dlhší ako reťazcová premenná, znaky presahujúce dĺžku premennej sa orežú a iba zostávajúce znaky sa zarovnajú doprava v reťazcovej premennej.
Môžete tiež používať príkaz RSet na priradenie premenných jedného typu definovaného užívateľom inému typu.
Nasledujúci príklad používa príkazy RSet a LSet na modifikáciu zarovnania reťazca doľava a doprava.
Sub Príklad_RLSet
Dim sVar as string
Dim sExpr as string
sVar = String(40,"*")
sExpr = "SBX"
REM Right-align "SBX" in a 40-character string
REM Nahraďte hviezdičky medzerami
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