Problème avec le champ Arbre et Retour Chariot (RC)

Bonjour à tous et à toutes !

Je n'ai pas eu de réponse à ce sujet sur le forum de PCSoft, c'est pourquoi je laisse un message sur celui-ci.

Je veux initialiser un arbre à partir de données issus d’un champ liste multi-sélections. Voir descriptif ici.

http://forum.pcsoft.fr/thread.awp?gr...=2#entry287678

Je souhaiterai avoir le résultat suivant dans le champ Arbre :

Activités
(+/-)Nom de la première activité
(+/-)Intervenant(s)
Michèle TRUC
Léo MACHIN
Virginie CHOSE
(+/-)Nom de la deuxième activité
(+/-)Intervenant(s)
…
Hors, j’obtiens ceci :
Activités
(+/-)Nom de la première activité
(+/-)Intervenant(s)
Michèle TRUCLéo MACHINVirginie CHOSE
(+/-)Nom de la deuxième activité
(+/-)Intervenant(s)
…
Le retour chariot n’est pas pris en compte lors de l’initialisation du champ Arbre. A vrai dire, je ne sais pas si cela est possible. Je souhaite tout simplement convertir les RC en TAB.

Voici le code utilisé dans le champ arbre :

Code:

---

ArbreAjoute(ARBRE_ActiviteJournaliereMatinee,"Activités" +TAB+ ActiviteJournaliere.NomActivite +TAB+ "Intervenant(s)" +TAB+ ActiviteJournaliere.Intervenant)

---

Merci d’avance pour votre aide précieuse.
Joseph Emmanuel

Bonjour,
Si tu veux convertir les RC en TAB, tu peux utiliser la fonction remplace.
Bonne lecture

Bonjour mail.spam !

Merci infiniment d'avoir pris le temps de répondre à mon message. En utilisant la fonction remplace, j'obtiens ceci :

Activités
(+/-)Nom de la première activité
(+/-)Intervenant(s)
(+/-)Michèle TRUC
(+/-)Léo MACHIN
(+/-)Virginie CHOSE
(-)
(+/-)Nom de la deuxième activité
(+/-)Intervenant(s)
…

Hors, je souhaiterai que l'identité de chaque intervenant soit la feuille de "Intervenant(s)". Cette présentation me semble plus lisible pour l'utilisateur final.

Dans l'attente d'une réponse de votre part, je vous souhaite une agréable fin de journée.
Joseph Emmanuel

Il faudrait peut-être que du donne ton code pour remplir l'arbre pour qu'on puisse te conseiller...

Bonsoir Laurent !

Voici une partie du code pour initialiser le champ arbre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

... ChaîneInitiale est une chaîne = ActiviteJournaliere.Intervenant ChaîneRemplacée est une chaîne = Remplace(ActiviteJournaliere.Intervenant,RC,TAB)   SI HTrouve(ActiviteJournaliere) ALORS POUR TOUT ActiviteJournaliere ArbreAjoute(ARBRE_ActiviteJournaliereMatinee,"Activités" +TAB+ ActiviteJournaliere.NomActivite +TAB+ "Intervenant(s)" +TAB+ ChaîneRemplacée)   ArbreDérouleTout(ARBRE_ActiviteJournaliereMatinee) FIN FIN ...

---

J'espère que cette partie de code vous permettra de m'éclairer sur le problème que j'essaie de résoudre.

Dans l'attente d'une réponse de votre part, je vous souhaite une bonne soirée.
Joseph Emmanuel

Peux-tu me confirmer que j'ai bien compris ce qu'il y a dans ActiviteJournaliere.Intervenant.
Est-ce bien la liste des intervenant séparés par un RC ?

Ne voyant pas de réponse de ta part je poursuis dans l’hypothèse où ActiviteJournaliere.Intervenant contient la liste des intervenants séparés par un RC.

Dans ce cas ton code a plusieurs problèmes.

Tout d'abord, le fait de faire
ChaîneRemplacée est une chaîne = Remplace(ActiviteJournaliere.Intervenant,RC,TAB)
avant la boucle fait que tu auras la même liste d'intervenant quelque soit l'activité journalière

Ensuite dans ArbreAjoute() ChaîneRemplacée contenant la liste des intervenants séparés par des TAB chaque intervenant sera la feuille de l'intervenant le précédent dans la liste.

Enfin, ce n'est pas le plus grave, il n'est pas utile de faire un ArbreDérouleTout() après chaque ajout dans l'arbre.
Il est préférable de le faire après que l'arbre est complètement rempli.

Ce qui donne, en espérant avoir bien compris le contexte...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

nNb_intervenant est un entier i est un entier SI HTrouve(ActiviteJournaliere) ALORS POUR TOUT ActiviteJournaliere nNb_intervenant = ChaîneOccurrence(ActiviteJournaliere.Intervenant,RC) + 1 // le + 1 seulement si ActiviteJournaliere.Intervenant ne se termine pas par un RC POUR i = 1 A nNb_intervenant ArbreAjoute(ARBRE_ActiviteJournaliereMatinee,"Activités" +TAB+ ActiviteJournaliere.NomActivite +TAB+ "Intervenant(s)" +TAB+ExtraitChaîne(ActiviteJournaliere.Intervenant,i,RC)) FIN FIN FIN ArbreDérouleTout(ARBRE_ActiviteJournaliereMatinee)

---

Bonjour Laurent !

Merci ,merci et encore merci de votre aide. Mon problème est résolu ! Il ne me reste plus qu'à décortiquer ce code pour me l'approprier.

Je vous souhaite une excellente journée.
Joseph Emmanuel