IBM Lotus Symphony
|
Powoduje wyrównanie łańcucha do lewej strony zmiennej typu String lub skopiowanie zmiennej o typie zdefiniowanym przez użytkownika do kolejnej zmiennej o tym typie.
LSet Zmienna As String = Tekst albo LSet Zmienna = Zm2
Zm: Zmienna typu String zawierająca łańcuch, który ma zostać wyrównany do lewej.
Tekst: Łańcuch, który ma zostać wyrównany do lewej strony zmiennej typu String.
Zm1: Nazwa zmiennej o typie zdefiniowanym przez użytkownika, do której ma zostać skopiowana treść innej zmiennej.
Zm2: Nazwa zmiennej o typie zdefiniowanym przez użytkownika, której treść ma zostać kopiowana.
Jeśli łańcuch jest krótszy niż zmienna typu String, instrukcja LSet powoduje wyrównanie łańcucha do lewej strony zmiennej. Ewentualne wolne pozycje w zmiennej są zamieniane na odstępy. Jeśli łańcuch jest dłuższy niż zmienna typu String, zostaną skopiowane znaki położone najbardziej z lewej strony, przy czym ich liczba będzie odpowiadać długości zmiennej typu String. Instrukcja LSet umożliwia również kopiowanie treści zmiennej o typie zdefiniowanym przez użytkownika do kolejnej zmiennej tego samego typu.
Sub Przyklad_RLSet
Dim sZm As String
Dim sWyr As String
sZm = String(40,"*")
sWyr = "SBX"
REM Wyrównanie łańcucha SBX w 40-znakowym łańcuchu odwołania
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 odwołania
LSet sZm = sWyr
Print ">"; sZm; "<"
sZm = String(5,"*")
sWyr = "123456789"
LSet sZm = sWyr
Print ">"; sZm; "<"
End Sub