RSet Statement

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

სინტაქსი

RSet Text As String = Text or RSet Variable1 = Variable2

Parameters:

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

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

ცვლადი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