IBM Lotus Symphony
|
Alinha uma cadeia à esquerda de uma variável de cadeia ou copia uma variável de um tipo definido pelo utilizador para outra variável com um diferente tipo definido pelo utilizador.
LSet Var As String = Text or LSet Var1 = Var2
Var: Qualquer variável de cadeia que contenha a cadeia que pretende alinhar à esquerda.
Text: Cadeia que pretende alinhar à esquerda da variável de cadeia.
Var1: Nome da variável de tipo definida pelo utilizador para a qual pretende copiar.
Var2: Nome da variável de tipo definida pelo utilizador a partir da qual pretende copiar.
Se a cadeia for mais curta do que a variável de cadeia, LSet alinha a cadeia à esquerda dentro da variável de cadeia. Quaisquer posições que restem na variável de cadeia são substituídas por espaços. Se a cadeia for mais longa do que a variável de cadeia, somente os caracteres mais à esquerda até ao comprimento da variável de cadeia são copiados. Através da instrução LSet, é ainda possível copiar uma variável de tipo definida pelo utilizador para outra variável do mesmo tipo.
Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
sVar = String(40,"*")
sExpr = "SBX"
REM Alinhar "SBX" dentro da cadeia de referência de 40 caracteres
REM Substituir asteriscos por espaços
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123457896"
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(40,"*")
sExpr = "SBX"
REM Alinhar à esquerda "ZBX" dentro da cadeia de referência com 40 caracteres
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub