Функція LSet

Модуль
Зміст
Покажчик 🔎︎

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

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

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

    LSet Змінна As String = Текст чи LSet Змінна1 = Змінна2

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

Змінна: будь-яка рядкова змінна (типу String), що містить рядок, котрий слід вирівняти вліво.

Текст: рядок, який потрібно вирівняти за лівим краєм рядкової змінної.

Змінна1: назва змінної визначеного користувачем типу в яку виконується копіювання.

Змінна2: назва змінної визначеного користувачем типу з якої виконується копіювання.

Якщо даний рядок коротший, ніж рядкова змінна, то LSet вирівнює вліво цей рядок у рядковій змінній. Решта позицій у рядковій змінній замінюється пропусками. Якщо даний рядок довший, ніж рядкова змінна, копіюються лише крайні зліва символи, що заповнюють довжину рядкової змінної. За допомогою інструкції 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