Instruction LSet

Aligne une chaîne de caractères à gauche d'une variable de chaîne de caractères ou copie une variable de type défini par l'utilisateur vers une autre variable d'un autre type défini par l'utilisateur.

Syntaxe :


LSet Var As String = Text ou LSet Var1 = Var2

Paramètres :

Var : toute variable de chaîne de caractères contenant la chaîne de caractères à aligner à gauche.

Text : chaîne de caractères à aligner à gauche de la variable de chaîne de caractères.

Var1 : nom de la variable de type défini par l'utilisateur vers laquelle la copie doit être effectuée.

Var2 : nom de la variable de type défini par l'utilisateur à partir de laquelle la copie doit être effectuée.

Si la chaîne de caractères est plus courte que la variable de chaîne de caractères, l'instruction LSet aligne la chaîne à gauche dans la variable de chaîne de caractères. Toutes les positions restantes dans la variable de chaîne de caractères sont remplacées par des espaces. Si la chaîne de caractères est plus longue que la variable de chaîne de caractères, seuls sont copiés les caractères situés le plus à gauche, et ce, dans la limite du nombre de caractères composant la variable de chaîne. L'instruction LSet vous permet également de copier une variable de type défini par l'utilisateur vers une autre variable du même type.

Exemple :


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Aligner "SBX" dans une chaîne de référence de 40 caractères
    ' Remplacer les astérisques par des espaces
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Aligner à gauche "SBX" dans une chaîne de référence de 40 caractères
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub

Aidez-nous !