IBM Lotus Symphony


Instrukcja LSet [środowisko wykonawcze]

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.

Składnia

LSet Zmienna As String = Tekst albo LSet Zmienna = Zm2

Parametry

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.

Przykład

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


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe