RSet Statement

სტრინგს ასწორებს მარჯვნივ სტრინგის ცვლადში ან აკოპირებს მომხმარებლის მიერ მორგებულ ცვლადის ტიპს სხვაში.

RSet Text As String = Text or RSet Variable1 = Variable2

ტექსტი: ნებისმიერის სტინგის ცვლადი.

ტექსტი: სტრინგი, რომელიც გსურთ გაასწოროთ მარჯვნივ სტრინგის ცვლადში.

ცვლადი1: მომხმარებლის მიერ განსაზღვრული ცვლადი რომელიც არის მიზანი კოპირებული ცვლადისთვის.

ცვლადი2: მომხმარებლის მიერ განსაზღვრული ცვლადი რომელიც გინდათ გადაწეროთ სხვა ცვლადში.

თუ სტრინგი უფრო მოკლეა ვიდრე სტინგის ცვლადი, RSet ასწორებს სტრინგს მარჯვნივ. ნებისმიერი დარჩენილი ასო-ნიშანი სტრინგის ცვლადეში ჩანაცვლდება ჰარით. ტუ სტრინგი უფრო გრძელია ვიდრე სტრინგის ცვლდაი, ასო-ნიშნები, რომლების აჭარბებენ ცვლადის ზომას იჭრება, მხოლოდ დარჩენილი ასო-ნიშნები სწორდებიან მარჯვნივ.

თქვენ აგრეთვე შეგიძლიათ გამოიყენოთ RSet ბრძანება რათა მიანიჭოთ მომხმარებლის მიერ განსაღვრული ერთი ტიპი მეორეს.

შემდეგი მაგალითი იყენებს RSet და LSet ბრძანებებს რათა შეცვალონ სტინგების მარცხენა და მარჯვენა სწორება.

Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    REM მარჯვენა სწორება "SBX" 40 ასო-ნიშნიან სტრინგში.
    ' Replace asterisks with spaces
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    REM მარცხენა სწორება "SBX" 40 ასო-ნიშნიან სტრინგში.
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub