Оператор 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

Моля, подкрепете ни!