IBM Lotus Symphony
|
Выравнивает строку по правому краю строковой переменной, либо копирует одну переменную пользовательского типа в другую.
RSet Переменная As String = Текст или RSet Переменная1 = Переменная2
Переменная: произвольная строковая переменная.
Текст : строка, которую нужно выровнять по правому краю строковой переменной.
Переменная1: пользовательская переменная, в которую заносится копируемое значение.
Переменная2: пользовательская переменная, которую нужно скопировать в другую переменную.
Если строка короче, чем строковая переменная, то RSet выравнивает строку по правому краю строковой переменной. Все оставшиеся символы в строковой переменной заменяются пробелами. Если строка длиннее, чем строковая переменная, то лишние символы усекаются, а оставшиеся символы выравниваются по правому краю строковой переменной.
С помощью оператора RSet можно также присваивать переменные одних пользовательских типов переменным других пользовательских типов.
В следующем примере операторы RSet и 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