ForEachField

[Droopy]

J'en avais besoin, désolé si ça a déjà été publié

Code : Tout sélectionner

Procedure ForEachField(String.s,Delimiter.s,*Function)
  Index=1
  While StringField(String,Index,Delimiter)<>""
    CallFunctionFast(*Function,StringField(String,Index,Delimiter))
    Index+1
  Wend
EndProcedure  

;{/ Example

Chaine.s="1,2,3"

Procedure Affiche(Chaine.s)
  PrintN(Chaine)
EndProcedure

OpenConsole()
ConsoleTitle("ForEachField")
ForEachField(Chaine,",",@Affiche())
Input()

;}

[Ar-S]

Salut Droopy, tu peux m'expliquer à quoi ça sert exactement ?
parce que l'affichage des 1 2 3.. c'est pas très explicite (et surtout je suis encore une belle quiche)

[Chris]

Ben sans avoir testé le code, ça doit afficher chaque champs d'une chaine délimitée par des virgules.

Ca peut servir à récupérer les données d'un fichiers .csv, par exemple.

Pas bête, comme code.

[Ar-S]

Ah okokok, superbe

[Droopy]

tout a fait thierry, ça peut servir à traiter chaque ligne d'un fichier csv

[lionel_om]

Y'a un petit bug.
La boucle While n'est pas très adpatée (sauf si c'ets vraiment ce que tu as voulu faire) :

Code : Tout sélectionner

Procedure ForEachField(String.s,Delimiter.s,*Function)
  Nb = CountString(String,Delimiter) + 1
  For i = 1 To Nb
    CallFunctionFast(*Function,StringField(String,i,Delimiter))
  Next i
EndProcedure 

;{/ Example

Chaine.s="1,2,,3"

Procedure Affiche(Chaine.s)
  PrintN(Chaine)
EndProcedure

OpenConsole()
ConsoleTitle("ForEachField")
ForEachField(Chaine,",",@Affiche())
Input()

;}

[Backup]

Ben sans avoir testé le code, ça doit afficher chaque champs d'une chaine délimitée par des virgules.

Ca peut servir à récupérer les données d'un fichiers .csv, par exemple.

Pas bête, comme code.

tu veux dire comme

Code : Tout sélectionner

Resultat$ = StringField(Chaine$, Index, ",")

????

[Droopy]

bien vu Lionel

[Chris]

Ben sans avoir testé le code, ça doit afficher chaque champs d'une chaine délimitée par des virgules.

Ca peut servir à récupérer les données d'un fichiers .csv, par exemple.

Pas bête, comme code.

tu veux dire comme

Code : Tout sélectionner

Resultat$ = StringField(Chaine$, Index, ",")

????

Oui, sauf que la fonction (enfin, si j'ai bien compris, vu que je l'ai pas encore testée), te renvoie le contenu de la totalité des champs en un seul appel.

[Droopy]

Oui, sauf que la fonction te renvoie le contenu de la totalité des champs en un seul appel.

Non elle traite chaque champ avec la fonction appelée