IBM Lotus Symphony
|
Alinha uma sequência à direita dentro de uma variável de sequência ou copia um tipo de variável definido pelo usuário para outro.
RSet Text As String = Text or RSet Variable1 = Variable2
Text: Qualquer variável de seqüência.
Text: Sequência que você deseja alinhar à direita na variável de sequência.
Variable1: Variável definida pelo usuário que é o destino da variável copiada.
Variable2: Variável definida pelo usuário para a qual você deseja copiar outra variável.
Se a sequência for mais curta que a variável da sequência, RSet alinhará a sequência à direita na variável da sequência. Quaisquer caracteres restantes na variável da sequência são substituídos por espaços. Se a sequência for mais longa que a variável da sequência, os caracteres excedentes serão alinhados à direita dentro da variável da sequência.
Você também pode usar a instrução RSet para atribuir variáveis de um tipo definido pelo usuário a outro.
O exemplo a seguir usa as instruções RSet e LSet para modificar o alinhamento esquerdo e direito de uma sequência.
Sub ExampleRLSet
Dim sVar as string
Dim sExpr as string
sVar = String(40,"*")
sExpr = "SBX"
REM Alinhar "SBX" à direita em uma sequê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 em uma sequência de 40 caracteres
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub