Instrução LSet

Alinha uma string à esquerda de uma variável string, ou copia uma variável do tipo definido pelo usuário para outra variável de um diferente tipo definido pelo usuário.

Sintaxe:

LSet Var As String = Text or LSet Var1 = Var2

Parâmetros:

Var: qualquer variável String que contenha a cadeia de caracteres que você deseja alinhar à esquerda.

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

Var1: nome da variável de tipo definida pelo usuário para a qual você deseja copiar.

Var2: nome da variável de tipo definida pelo usuário a partir da qual você deseja copiar.

Se a cadeia de caracteres for mais curta que a variável da string, LSet alinhará a cadeia de caracteres à esquerda da variável da string. Todas as posições restantes na variável da cadeia de caracteres serão substituídas por espaços. Se a cadeia de caracteres for mais longa que a variável da string, serão copiados somente os caracteres mais à esquerda que preencham o tamanho da variável. Com a instrução LSet, você também pode copiar uma variável de tipo definida pelo usuário para outra variável do mesmo tipo.

Exemplo:

Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Alinha "SBX" na string de referência 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 dentro da cadeia de referência de 40 caracteres
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub