Функція 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

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

String functions

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