Зміст

# Інструкція RSet

Вирівнює рядок в рядковій змінній за правим краєм або копіює змінну визначеного користувачем типу в іншу змінну.

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

    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"
        ' Вирівнювання "АБВ" у рядку довжиною 40 символів за правим краєм
        ' Заміна зірочок пробілами
        RSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(5,"*")
        sExpr = "123457896"
        RSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(40,"*")
        sExpr = "SBX"
        ' Вирівнювання "АБВ" у рядку довжиною 40 символів за лівим краєм
        LSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(5,"*")
        sExpr = "123456789"
        LSet sVar = sExpr
        Print ">"; sVar; "<"
    End Sub

Пов'язані теми

String functions

Будь ласка, підтримайте нас!