LSet Statement

ཡིག་རྟགས་ཕྲེང་བའི་འགྱུར་ཚད་ཀྱི་ཡིག་རྟགས་གང་རུང་གཡས་སྙོམས་གཤིབ་བྱ་བའམ་སྤྱོད་པོས་རིགས་འགྱུར་ཚད་དེ་སྤྱོད་པོ་གཞན་གྱི་རིགས་ཀྱི་འགྱུར་ཚད་ལ་འདྲ་ཕབ་བྱ་

བརྡ་འཕྲོད་

LSet Var As String = Text or LSet Var1 = Var2

ཁུགས་གྲངས་

Var གཡས་སྙོམས་གཤིབ་དགོས་རྒྱུའི་ཡིག་རྟགས་ཕྲེང་བ་ཚུད་པའི་ཡིག་རྟགས་ཕྲེང་བའི་འགྱུར་ཚད།

Text ཡིག་རྟགས་ཕྲེང་བའི་འགྱུར་ཚད་ནང་གཡས་སྙོམས་གཤིབ་དགོས་རྒྱུའི་ཡིག་རྟགས་ཕྲེང་བ།

Var1 འདྲ་ཕབ་ཀྱི་སྐབས་སུ་དམིགས་ལྡན་སྤྱོད་པོས་རིགས་འགྱུར་ཚད་ཀྱི་མིང་རང་བཟོ་བ་དགོས།

Var2 འགྱུར་ཚད་གཞན་དུ་འདྲ་ཕབ་དགོས་པའི་སྤྱོད་པོས་རིགས་འགྱུར་ཚད་ཀྱི་མིང་རང་བཟོ་བྱ་དགོས།

གལ་སྲིད་ཡིག་རྟགས་ཕྲེང་བའི་འགྱུར་ཚད་ཀྱི་རིང་ཚད་དེ་ཡིག་རྟགས་ཕྲེང་བ་ལས་ཆེ་བ་ཡོད་ན་LSet ཡིག་རྟགས་ཕྲེང་བའི་འགྱུར་ཚད་གཡས་སྙོམས་གཤིབ་བྱ་དགོས་པ་དང་ཡིག་རྟགས་ཕྲེང་བའི་འགྱུར་ཚད་ནང་གི་གནས་ལྷག་མ་རྣམས་སྟོང་མིག་གིས་ཚབ་བྱེད་དགོས་ གལ་སྲིད་ཡིག་རྟགས་ཕྲེང་བའི་འགྱུར་ཚད་ཀྱི་རིང་ཚད་དེ་ཡིག་རྟགས་ཕྲེང་བ་ལས་ཆུང་བ་ཡོད་ན་ ཡིག་རྟགས་ཕྲེང་བའི་མདུན་གྱི་ཡིག་རྟགས་ n འདྲ་ཕབ་བྱས་ན་མཐུས་ n ནི་ཡིག་རྟགས་ཕྲེང་བའི་འགྱུར་ཚད་ཀྱི་རིང་ཚད་ཀྱིས་ཐག་གཅོད་པར་བྱེད་ LSet རྗོད་པ་ནི་ད་དུང་སྤྱོད་པོས་རིགས་འགྱུར་ཚད་རང་བཟོ་ནས་རིགས་མཐུན་གྱི་འགྱུར་ཚད་གཞན་དུ་འདྲ་ཕབ་བྱེད་པར་སྤྱོད་ཆོག

དཔེ་གཞི་

Sub ExampleRLSet

Dim sVar As String

Dim sExpr As String

    sVar = String(40,"*")

    sExpr = "SBX"

    REM རིང་ཚད་ཡིག་རྟགས་ 40ཡིན་པའི་འདྲིན་སྤྱོད་ཡིག་རྟགས་ཕྲེང་བའི་ནང་གཡས་སྙོམས་གཤིབ་ "SBX"

    REM གྱིས་སྟོང་མིག་གིས་སྐར་རྟགས་ཀྱི་ཚབ་བྱེད་པ་

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123457896"

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(40,"*")

    sExpr = "SBX"

    REM རིང་ཚད་ཡིག་རྟགས་ 40ཡིན་པའི་འདྲིན་སྤྱོད་ཡིག་རྟགས་ཕྲེང་བའི་ནང་གཡས་སྙོམས་གཤིབ་ "SBX"

    LSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123456789"

    LSet sVar = sExpr

    Print ">"; sVar; "<"

End Sub