IBM Lotus Symphony
|
Alinha uma sequência à esquerda de uma variável de sequência ou copia uma variável de um tipo definido pelo usuário para outra variável de um outro tipo definido pelo usuário.
LSet Var As String = Text or LSet Var1 = Var2
Var: Qualquer variável de Sequência que contenha a sequência que você deseja alinhar à esquerda.
Text: Sequência que você deseja alinhar à esquerda da variável de sequência.
Var1: Nome da variável do tipo definido pelo usuário para a qual você deseja copiar.
Var2: Nome da variável do tipo definido pelo usuário da qual você deseja copiar.
Se a sequência for mais curta que a variável da sequência, LSet alinhará a sequência à esquerda dentro da variável da sequência. Quaisquer posições restantes na variável da sequência são substituídas por espaços. Se a sequência for maior que a variável da sequência, somente os caracteres na extremidade esquerda acima do comprimento da variável da sequência serão copiados. Com a instrução LSet, é possível também copiar uma variável do tipo definido pelo usuário 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" na sequência 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 "SBX" à esquerda na sequência de referência de 40 caracteres
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub