Содержимое

# RSet Statement

Выравнивает строку в строковой переменной по правому краю или копирует переменную определённого пользователем типа в другую переменную.

### Синтаксис:

    RSet Текст As String = Текст или RSet Переменная1 = Переменная2

### Параметры:

Текст. Любая строковая переменная.

Текст. Строка, которую нужно выровнять в строковой переменной по правому краю.

Переменная1:. Переменная определённого пользователем типа, в которую нужно копировать.

Переменная2:. Переменная определённого пользователем типа, из которой нужно копировать.

Если данная строка короче, чем строковая переменная, RSet выравнивает эту строку вправо внутри строковой переменной. Любые остающиеся позиции в строковой переменной заменяются пробелами. Если данная строка длиннее, чем строковая переменная, символы, превышающие её длину, отсекаются, а внутри строковой переменной выравниваются вправо только остающиеся символы.

Инструкция RSet может использоваться также для копирования переменных определённого пользователем типа в переменные другого типа.

В следующем примере используются инструкции RSet и LSet для изменения выравнивания строки по левому и правому краю.

### Пример:

    Sub ExampleRLSet
    Dim sVar As String
    Dim sExpr As String
        sVar = String(40,"*")
        sExpr = "SBX"
        REM Выравнивание "АБВ" в строке ссылки длиной 40 символов по правому краю
        REM Замена звёздочек пробелами
        RSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(5,"*")
        sExpr = "123457896"
        RSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(40,"*")
        sExpr = "SBX"
        REM Выравнивание "АБВ" в строке ссылки длиной 40 символов по левому краю
        LSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(5,"*")
        sExpr = "123456789"
        LSet sVar = sExpr
        Print ">"; sVar; "<"
    End Sub

См. также

Функция String