LSet sakinys

Išlygina eilutę kairėje pradedant nuo eilutės kintamojo arba nukopijuoja vartotojo apibrėžto tipo kintamąjį į kitą kito vartotojo nustatyto tipo kintamąjį.

Sintaksė:


LSet Var As String = Tekstas arba LSet Var1 = Var2

Parametrai:

Var: Bet koks eilutės kintamasis, kuriame yra norima eilutė, sulygiuojamas kairėje.

Tekstas: Eilutė, kurią norite lygiuoti kairėje eilutės kintamojo.

Var1: Vartotojo apibrėžto tipo kintamojo, į kurį norite kopijuoti, vardas.

Var2: Vartotojo apibrėžto tipo kintamojo, iš kurio norite kopijuoti, vardas.

Jei eilutė yra trumpesnė už eilutės kintamąjį, LSet kairėje išlygina eilutę naudojant eilutės kintamąjį. Visos likusios eilutės kintamojo pozicijos pakeičiamos tarpais. Jei eilutė yra ilgesnė nei eilutės kintamasis, nukopijuojami tik kairiausi simboliai iki eilutės kintamojo ilgio. Naudodami LSet sakinį taip pat galite nukopijuoti vartotojo apibrėžto tipo kintamąjį į kitą to paties tipo kintamąjį.

Pavyzdys:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Sulygiuokite „SBX“ taikydami 40 simbolių nuorodų eilutę
    ' Pakeiskite žvaigždutes tarpais
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Kairinė „SB “ lygiuotė naudojant 40 simbolių nuorodų eilutę
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub

Eilutės funkcijos