IBM Lotus Symphony
|
Wyrównuje do prawej łańcuch w zmiennej typu String lub kopiuje treść zmiennej o typie zdefiniowanym przez użytkownika do innej zmiennej.
RSet Tekst As String = Tekst lub RSet Zmienna1 = Zmienna2
Tekst: Dowolna zmienna typu String.
Tekst: Łańcuch, który ma zostać wyrównany do prawej strony zmiennej typu String.
Zmienna1: Zmienna o typie zdefiniowanym przez użytkownika, do której ma zostać skopiowana treść drugiej zmiennej.
Zmienna2: Zmienna zdefiniowana przez użytkownika, która ma zostać skopiowana.
Jeśli łańcuch jest krótszy niż zmienna typu String, instrukcja RSet powoduje wyrównanie łańcucha do prawej strony zmiennej. Ewentualne wolne pozycje w zmiennej są zamieniane na odstępy. Jeśli łańcuch jest dłuższy niż zmienna typu String, znaki przekraczające długość zmiennej są obcinane, a pozostałe znaki wyrównywane do prawej strony zmiennej.
Instrukcja RSet pozwala także przypisać treść zmiennej o typie zdefiniowanym przez użytkownika do innej zmiennej.
W poniższym przykładzie instrukcje RSet i LSet są używane do modyfikowania wyrównania łańcucha do lewej i do prawej.
Sub Przyklad_RLSet
Dim sZm as string
Dim sWyr as string
sZm = String(40,"*")
sWyr = "SBX"
REM Wyrównanie łańcucha SBX do prawej w 40-znakowym łańcuchu
REM Zastąpienie gwiazdek odstępami
RSet sZm = sWyr
Print ">"; sZm; "<"
sZm = String(5,"*")
sWyr = "123457896"
RSet sZm = sWyr
Print ">"; sZm; "<"
sZm = String(40,"*")
sWyr = "SBX"
REM Wyrównanie łańcucha SBX do lewej w 40-znakowym łańcuchu
LSet sZm = sWyr
Print ">"; sZm; "<"
sZm = String(5,"*")
sWyr = "123456789"
LSet sZm = sWyr
Print ">"; sZm; "<"
End Sub