FORUM WINDEV

Bonjour à tous,
A partir d'une chaine de caractères comportant plusieurs informations (Nom1, Nom2, Nom3,...) je récupère son contenu via le code:

Code: Tout sélectionner

i,n sont des entiers
sNomExtrait, sTexte sont des chaînes
sTexte = Acteurs1
SI Droite(sTexte,1) <> ", " ALORS sTexte += ", "
n  = ChaîneOccurrence(sTexte,",")
POUR i=1 A n
   sNomExtrait = ExtraitChaîne(sTexte,i,", ")
   //Trace(sNomExtrait)
      Acteurs.Prénom_NOM = sNomExtrait          
      SI HAjoute(Acteurs)=Faux ALORS
         Erreur(ErreurInfo())
         SORTIR
      FIN
FIN

Ca fonctionne parfaitement grâce à Samifred qui m'a sorti d'embarras
Voir: forum-windev-11-12/champ-texte-separe-par-des-virgules-t5495.html
Mais un problème subsiste:
Cette opération pourrait se représenter à plusieurs reprises avec des noms déjà extraits précédemment...
Comment faire alors pour éviter qu'un nom précédemment ajouté ne se présente plusieurs fois ?
En fait comment gérer les doublons ?

Merci d'avance...

Tout simplement en cherchant si il existe déjà...

Code: Tout sélectionner

i,n sont des entiers
sNomExtrait, sTexte sont des chaînes
sTexte = Acteurs1
SI Droite(sTexte,1) <> ", " ALORS sTexte += ", "
n  = ChaîneOccurrence(sTexte,",")
POUR i=1 A n
   sNomExtrait = ExtraitChaîne(sTexte,i,", ")
   //Trace(sNomExtrait)
   HLitRecherchePremier(Acteurs,Prénon_NOM, sNomExtrait)
    SI pas Htrouve(Acteurs) ALORS
         Acteurs.Prénom_NOM = sNomExtrait   
         SI HAjoute(Acteurs)=Faux ALORS
             Erreur(ErreurInfo())
             SORTIR
         FIN
     FIN
FIN

J'ai pas testé, mais normalement pas de problème.

Comme d'hab, c'est du gateau !
Grand merci Samifred