IBM Lotus Symphony
|
Alinha uma cadeia à direita com uma variável de cadeia ou copia um tipo de variável definida pelo utilizador para outro tipo de variável.
RSet Text As String = Text or RSet Variable1 = Variable2
Text: Qualquer variável de cadeia.
Text: Cadeia que pretende alinhar à direita na variável de cadeia.
Variable1: Variável definida pelo utilizador que é o destino da variável copiada.
Variable2: Variável definida pelo utilizador que pretende copiar para outra variável.
Se a cadeia for mais curta que a variável de cadeia, RSet alinha a cadeia à direita dentro da variável de cadeia. Quaisquer caracteres que restem na variável de cadeia são substituídos por espaços. Se a cadeia for mais longa do que a variável de cadeia, os caracteres que excedam o comprimento da variável são truncados e somente os restantes caracteres são alinhados à direita dentro da variável de cadeia.
É também possível utilizar a instrução RSet para atribuir variáveis de um tipo definido pelo utilizador para outro.
O seguinte exemplo utiliza as instruções RSet e LSet para modificar os alinhamentos à direita e esquerda de uma cadeia.
Sub ExampleRLSet
Dim sVar as string
Dim sExpr as string
sVar = String(40,"*")
sExpr = "SBX"
REM Alinhar à direita "SBX" numa cadeia 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 "SBX" numa cadeia de 40 caracteres
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub