LSet Statement

Zarovná reťazec vľavo v reťazcovej premennej alebo skopíruje premennú používateľom určeného typu do inej premennej iného používateľom určeného typu.

Syntax:


LSet Premenná As String = Text alebo LSet Premenná1 = Premenná2

Parameters:

Premenná: Premenná typu String obsahujúca reťazec, ktorý chcete zarovnať vľavo.

Text: Reťazec, ktorý chcete zarovnať vľavo od premennej typu string.

Premenná1: Názov premennej používateľom definovaného typu, do ktorej chcete kopírovať.

Premenna2: Názov premennej používateľom definovaného typu, z ktorej chcete kopírovať.

Ak je reťazec kratší ako reťazcová premenná, LSet zarovná reťazec vľavo v reťazcovej premennej. Zostávajúce miesta v reťazci budú nahradené medzerami. Ak je reťazec dlhší ako reťazcová premenná, budú skopírované len znaky najviac naľavo až do dĺžky reťazcovej premennej. Príkazom LSet je tiež možné kopírovať premennú používateľom definovaného typu do inej premennej rovnakého typu.

Example:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    REM Zarovná "SBX" v 40-znakovom reťazci
    REM nahradí hviezdičky medzerami
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    REM Zarovná vľavo "SBX" v 40-znakovom reťazci
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub

String functions