Pour parcourir des lignes de texte [EXTRAIRE]

Définition :
Cette nouvelle instruction permet de parcourir chaque ligne contenue dans un texte multi-ligne sous la forme d’une boucle qui exécutera les instructions inscrites pour chacune d’entre elles.

Syntaxe :

[POURCHAQUE]
[EXTRAIRE]
Variable pour contenir la ligne : variable qui contient le texte
[FINEXTRAIRE]
Instructions à exécuter pour chaque ligne lue du texte …
[FINPOURCHAQUE]

Exemples 1 : Cas d'une zone de texte dans un masque
Soit les deux variables déclarées par paramétrage :

SDVA(‘’Lines’’, ‘’variable qui contiendra le texte multi-ligne’’)
SDVA(‘’Line’’, ‘’variable qui contiendra une ligne du texte’’)

Soit le masque suivant qui permet de saisir du texte multi-ligne dans la variable Lines et un bouton qui permet de parcourir les lignes du texte.

Instructions positionnées sur une action de zone du bouton ‘POUR CHAQUE’

[POURCHAQUE]
    [EXTRAIRE]
        Line : Lines
    [FINEXTRAIRE]
    SAM("line", Line)	// Chaque ligne du texte sera affichée à l’écran sous forme d’un message
[FINPOURCHAQUE]

Résultat : Un SAM affiche le contenu de chaque ligne lue.

Exemple 2 : Cas d'un fichier texte

//Soit les deux variables déclarées par paramétrage :
SDVA("ComptesClients$", "variable qui contiendra le contenu du fichier")
SDVA("Line","variable qui contiendra une ligne du fichier texte")

//Lecture du fichier texte dans une variable:
vu(1) = FileReadAllText("c:\compte.txt","ComptesClients$")
[SI]
  vu(1)=0
[FINSI]
[ALORS]
// début de la boucle pour chaque ligne de texte
   [POURCHAQUE]
     [EXTRAIRE]
        Line : ComptesClients$
     [FINEXTRAIRE]
   SAM("line", Line)    // Chaque ligne du texte sera affichée à l’écran sous forme d’un message
   [FINPOURCHAQUE]
[FINALORS]
[SINON]
   SAM("", SilGetLastError(vu(1)),0)     // Affichage de l'erreur si le fichier est n'est pas lu   
[FINSINON]

Résultat : Un SAM affiche le contenu de chaque ligne lue.

Exemple 3 : Duplication d'une ligne d'AOC depuis l'application "Proposition commerciale"