IBM Lotus Symphony
|
Выравнивает строку по левому краю строковой переменной, либо копирует переменную пользовательского типа в другую переменную другого пользовательского типа.
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"
REM Выровнять "SBX" в 40-символьной строке
REM Заменить звездочки пробелами
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123457896"
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(40,"*")
sExpr = "SBX"
REM Выровнять "SBX" по левому краю в 40-символьной строке
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub