Spis treści

# Instrukcja RSet

Wyrównuje ciąg w zmiennej do prawej strony lub kopiuje zmienną typu zdefiniowanego przez użytkownika do innej zmiennej.

### Składnia:

    RSet tekst As String = tekst lub RSet zmienna1 = zmienna2

### Parametry:

Tekst: Dowolna zmienna zawierająca ciąg znaków.

Tekst: Ciąg, który ma zostać wyrównany do prawej strony zmiennej.

Zmienna1: Zmienna zdefiniowana przez użytkownika będąca miejscem docelowym dla zmiennej kopiowanej.

Zmienna2: Zmienna zdefiniowana przez użytkownika, która ma zostać skopiowana do innej zmiennej.

Jeśli ciąg jest krótszy niż długość zmiennej, funkcja RSet wyrównuje ciąg w obrębie tej zmiennej. Pozostałe znaki ciągu są zastępowane spacjami. Jeśli ciąg jest dłuższy niż zmienna, znaki wykraczające poza jej długość są obcinane, a pozostałe są wyrównane do prawej w obrębie tej zmiennej.

Instrukcja RSet pozwala także na przypisywanie zmiennych typu zdefiniowanego przez użytkownika do innych.

Poniższy przykład wykorzystuje instrukcje RSet i LSet do modyfikacji wyrównania ciągu do lewej i do prawej strony.

### Przykład:

    Sub ExampleRLSet
    Dim sVar As String
    Dim sExpr As String
        sVar = String(40,"*")
        sExpr = "SBX"
        ' Wyrównanie tekstu "SBX" do prawej w obrębie 40-znakowego ciągu
        ' Gwiazdki zostaną zastąpione spacjami
        RSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(5,"*")
        sExpr = "123457896"
        RSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(40,"*")
        sExpr = "SBX"
        ' Wyrównanie tekstu "SBX" do lewej w obrębie 40-znakowego ciągu
        LSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(5,"*")
        sExpr = "123456789"
        LSet sVar = sExpr
        Print ">"; sVar; "<"
    End Sub

Tematy pokrewne

Funkcje łańcuchowe

Prosimy o wsparcie!