Module
Contenu
Index 🔎︎

# 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