RSet Statement

Allinia a la derecha una cadena dientro d'una variable de cadena o copia una variable de tipu definíu pol usuariu n'otra.

Sintaxis:


RSet Testu As String = Testu o RSet Variable1 = Variable2

Parámetros:

Testu: Cualesquier variable de cadena.

Testu: Cadena que se deseya alliniar a la derecha na variable de cadena.

Variable1: Variable definida pol usuariu que ye'l destín pa la copia.

Variable2: Variable definida pol usuariu que se deseya copiar.

Si la cadena ye más curtia que la variable de cadena, RSet allinia la cadena a la derecha dientro de la variable de cadena. Los caráuteres que queden na variable de cadena sustituyir por espacios. Si la cadena ye más llarga que la variable de cadena, los caráuteres que devasen el llargor d'ésta atáyense y namái los restantes allíniense a la derecha dientro de la variable de cadena.

Tamién pue usase la instrucción RSet p'asignar variables d'un tipu definíu pol usuariu a otru.

L'exemplu siguiente usa les instrucciones RSet y LSet pa modificar l'alliniación derecha y esquierda d'una cadena.

Exemplu:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Allinia a la drecha "SBX" dientro d'una cadena de 40 caráuteres
    ' Trocar asteriscos por espacios
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Allinia a la izquierda "SBX" dientro d'una cadena de 40 caráuteres
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub

Please support us!