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

Please support us!