IBM Lotus Symphony
|
Alinea a la derecha una cadena dentro de una variable de cadena o copia una variable de tipo definido por el usuario en otra.
RSet Texto As String = Texto o RSet Variable1 = Variable2
Texto: Cualquier variable de cadena.
Texto: cadena que se desea alinear a la derecha de la variable de la cadena.
Variable1: Variable definida por el usuario que es el destino para la copia.
Variable2: Variable definida por el usuario que se desea copiar.
Si la cadena es más corta que la variable de cadena, RSet alinea la cadena a la derecha dentro de la variable de cadena. Los caracteres que queden en la variable de cadena se reemplazan por espacios. Si la cadena es más larga que la variable de cadena, los caracteres que sobrepasan la longitud de ésta se truncan y sólo los restantes se alinean a la derecha dentro de la variable de cadena.
También se puede usar la instrucción RSet para asignar variables de un tipo definido por el usuario a otro.
El ejemplo siguiente usa las instrucciones RSet y LSet para modificar la alineación derecha e izquierda de una cadena.
Sub EjemploRLSet
Dim sVar as string
Dim sExpr as string
sVar = String(40,"*")
sExpr = "SBX"
REM Alinea a la derecha "SBX" en una cadena de 40 caracteres
REM Reemplazar asteriscos por espacios
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123457896"
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(40,"*")
sExpr = "SBX"
REM Alinea a la izquierda "SBX" en una cadena de 40 caracteres
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub