Instrukcja LSet

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

Składnia:


LSet zmienna As String = tekst lub LSet zmienna1 = zmienna2

Parametry:

Zmienna: Dowolna zmienna zawierająca ciąg, który należy wyrównać do lewej strony.

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

Zmienna1: Nazwa zmiennej typu zdefiniowanego przez użytkownika, do której należy skopiować dane.

Zmienna2: Nazwa zmiennej typu zdefiniowanego przez użytkownika, z której należy skopiować dane.

Jeśli ciąg jest krótszy niż długość zmiennej, funkcja LSet 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ż długość zmiennej, zostanie skopiowana jedynie określona liczba znaków (równa długości zmiennej) licząc od lewej strony. Instrukcja LSet pozwala także na kopiowanie zmiennej typu zdefiniowanego przez użytkownika do innej zmiennej tego samego typu.

Przykład:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Wyrównanie tekstu "SBX" w obrębie 40-znakowego ciągu odniesienia
    ' 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 odniesienia
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub

Please support us!