Πρόταση 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

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