Оператор LSet

Подравнява низ от лявата страна или копира стойност от потребителски тип в друга променлива от друг потребителски тип.

Синтаксис:

LSet Var As String = Text или LSet Var1 = Var2

Параметри:

Var: низова променлива, която да приеме подравнения резултат.

Text: низ, който искате да подравните наляво.

Var1: име на променлива от потребителски тип, в която искате да копирате.

Var2: име на променлива от потребителски тип, от която искате да копирате.

Ако низът е по-къс от низовата променлива, LSet го подравнява наляво в нея. Останалите позиции в променливата се заместват с интервали. Ако низът е по-дълъг от променливата, се копират само най-левите му знаци до дължината на променливата. С оператора LSet можете също така да копирате стойността на променлива от потребителски тип в друга променлива от такъв тип.

Пример:

Sub ExampleRLSet

Dim sVar As String

Dim sExpr As String

    sVar = String(40,"*")

    sExpr = "SBX"

    ' Подравняваме „SBX“ в 40-знаков низ

    ' Заменяме звездичките с интервали

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123457896"

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(40,"*")

    sExpr = "SBX"

    ' Подравняваме наляво „SBX“ в 40-знаков низ

    LSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123456789"

    LSet sVar = sExpr

    Print ">"; sVar; "<"

End Sub