IBM Lotus Symphony
|
Zarovnáva doľava reťazcovú premennú alebo skopíruje užívateľom zadaný typ premennej na iný typ premennej zadaný užívateľom.
LSet premenná ako typ String = text alebo LSet premenná_1 = premenná_2
Premenná: ľubovoľná reťazcová premenná obsahujúca reťazec, ktorý chcete zarovnať doľava.
Text: reťazec, ktorý chcete zarovnať doľava v reťazcovej premennej.
Premenná_1: názov typu premennej definovanej užívateľom, do ktorej chcete kopírovať.
Premenná_2: názov typu premennej definovanej užívateľom, z ktorej chcete kopírovať.
Ak je reťazec kratší ako reťazcová premenná, príkaz LSet zarovnáva doľava 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á, skopírujú sa iba ľavé krajné znaky do dĺžky reťazcovej premennej. Príkazom LSet môžete tiež kopírovať typ premennej definovaný užívateľom na inú premennú rovnakého typu.
Sub Príklad_RLSet
Dim sVar ako typ String
Dim sExpr As String
sVar = String(40,"*")
sExpr = "SBX"
REM Align "SBX" within the 40-character reference 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" within the 40-character reference string
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub