Instrução RSet

Alinha à direita uma string dentro de uma variável string ou copia um tipo de variável definida pelo usuário em outra.

Sintaxe:


RSet Text As String = Text or RSet Variable1 = Variable2

Parâmetros:

Text: qualquer variável de cadeia de caracteres.

Text: cadeia de caracteres que você deseja alinhar à direita na variável da cadeia de caracteres.

Variable1: variável definida pelo usuário que é o destino da variável copiada.

Variable2: variável definida pelo usuário que você deseja copiar para outra variável.

Se a cadeia de caracteres for mais curta que a variável da string, RSet alinhará a cadeia de caracteres à direita, dentro da variável da string. Todos os caracteres restantes na variável da cadeia de caracteres serão substituídos por espaços. Se a cadeia de caracteres for mais longa que a variável da string, os caracteres que excederem o comprimento da variável ficarão truncados e somente os caracteres restantes serão alinhados à direita dentro da variável da string.

Você também pode usar a Instrução RSet para atribuir variáveis de um tipo definido pelo usuário para outra variável.

O exemplo a seguir usa as instruções RSet e LSet para modificar o alinhamento à esquerda e à direita de uma cadeia de caracteres.

Exemplo:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Alinha "SBX" à direita em uma string de 40 caracteres
    ' Substitui 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 "SBX" à esquerda em uma cadeia de 40 caracteres
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub

Funções de String