Contents

# RSet Statement

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

### Syntax:

    RSet Text As String = Text or RSet Variable1 = Variable2

### Parameters:

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

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

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

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

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

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

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

### Example:

    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

დაკავშირებული თემები

String functions

Please support us!