Περιεχόμενα

# Πρόταση LSet

Στοιχίζει μια συμβολοσειρά στα αριστερά μιας μεταβλητής συμβολοσειράς ή αντιγράφει μια μεταβλητή τύπου ορισμένου από το χρήστη σε άλλο τύπο μεταβλητής ή τύπο ορισμένου από το χρήστη.

### Σύνταξη:

    LSet Var As String = Text or LSet Var1 = Var2

### Παράμετροι:

Var: Κάθε μεταβλητή συμβολοσειράς στην οποία η μεταβλητή πρόκειται να στοιχιστεί στα αριστερά.

Text: Συμβολοσειρά που πρόκειται να στοιχιστεί στα αριστερά της μεταβλητής συμβολοσειράς.

Var1: Όνομα της μεταβλητής με τύπο ορισμένο από το χρήστη στην οποία αντιγράφεται.

Var2: Όνομα της μεταβλητής με τύπο ορισμένο από το χρήστη από την οποία αντιγράφεται.

Αν η συμβολοσειρά είναι μικρότερου μήκους από τη μεταβλητή συμβολοσειράς, η πρόταση LSet στοιχίζει στα αριστερά τη συμβολοσειρά εντός της μεταβλητής συμβολοσειράς. Οι εναπομένουσες θέσεις στη μεταβλητή συμβολοσειράς αντικαθίστανται με διαστήματα. Αν μια συμβολοσειρά είναι μεγαλύτερου μήκους από τη μεταβλητή συμβολοσειράς, μόνο οι χαρακτήρες που βρίσκονται αριστερότερα μέχρι το μήκος της μεταβλητής συμβολοσειράς αντιγράφονται. Με την πρόταση LSet μπορείτε επίσης να αντιγράψετε μια μεταβλητή τύπου ορισμένου από το χρήστη σε μια άλλη μεταβλητή του ίδιου τύπου.

### Παράδειγμα:

    Sub ExampleRLSet
    Dim sVar As String
    Dim sExpr As String
        sVar = String(40,"*")
        sExpr = "SBX"
        ' Στοίχιση "SBX" στη συμβολοσειρά αναφοράς 40 χαρακτήρων
        ' Αντικατάσταση αστερίσκων με κενά
        RSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(5,"*")
        sExpr = "123457896"
        RSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(40,"*")
        sExpr = "SBX"
        ' Στοίχιση στα αριστερά "SBX" μες τη συμβολοσειρά αναφοράς 40 χαρακτήρων
        LSet sVar = sExpr
        Print ">"; sVar; "<"
        sVar = String(5,"*")
        sExpr = "123456789"
        LSet sVar = sExpr
        Print ">"; sVar; "<"
    End Sub

Σχετικά θέματα

Συναρτήσεις συμβολοσειράς