IBM Lotus Symphony


Instrukcja RSet [środowisko wykonawcze]

Wyrównuje do prawej łańcuch w zmiennej typu String lub kopiuje treść zmiennej o typie zdefiniowanym przez użytkownika do innej zmiennej.

Składnia

RSet Tekst As String = Tekst lub RSet Zmienna1 = Zmienna2

Parametry

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.

Przykład

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


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe