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