Conteúdo

# Instrução RSet

Alinha uma cadeia à direita com uma variável de cadeia ou copia um tipo de variável definida pelo utilizador para uma outra.

### Sintaxe:

    RSet Texto As String = Texto or RSet Variável1 = Variável2

### Parâmetros:

Texto: qualquer variável de cadeia.

Texto: cadeia que pretende alinhar à direita na variável de cadeia.

Variável1: Variável definida pelo utilizador que é o destino da variável copiada.

Variable2: Variável definida pelo utilizador que pretenda 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. 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 só os restantes caracteres são alinhados à direita dentro da variável.

Também pode 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.

### Exemplo:

    Sub ExampleRLSet
    Dim sVar As String
    Dim sExpr As String
        sVar = String(40,"*")
        sExpr = "SBX"
        ' Alinhar à direita "SBX" numa expressão de 40 caracteres
        ' 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"
        ' Alinhar à esquerda "SBX" numa expressão de 40 caracteres
        LSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(5,"*")
        sExpr = "123456789"
        LSet sVar = sExpr
        Print ">"; sVar; "<"
    End Sub

Tópicos relacionados

Funções de cadeia de caracteres

Necessitamos da sua ajuda!