PureBasic

Bonjour,

Je n'ai pas trouvé de réponse à mon problème. Une âme charitable pourrait peut être m'aiguiller.

Pour le texte :

DURAND, Paul & DUPONT, Jacques
ou
DURAND, Paul et DUPONT, Jacques
ou
DURAND, Paul - DUPONT, Jacques

J'aimerai avoir : (inversion nom prénom sans les virgules)

Paul DURAND & Jacques DUPONT
ou
Paul DURAND et Jacques DUPONT
ou
Paul DURAND - Jacques DUPONT

Merci d'avance de votre aide.

Une astuce de ce style mais qui impose que les prénoms composés comportent des traits d'unions.

Code : Tout sélectionner

Procedure.s Transforme(Buffer.s)

  ;Retirer les virgule
  Buffer = RemoveString(Buffer, ",")

  ;Combien il y a t'il d'espaces
  N = CountString(Buffer, " ")

  ;Un tableau pour enregistrer chaque mot ou symbole du Buffer
  Dim NomPrenom.s(N)

  For I = 1 To N+1
    NomPrenom(I-1) = StringField(Buffer, I, " ")
  Next

  ;Résultat final
  ProcedureReturn Buffer +" ==> " +  NomPrenom(1)+" "+NomPrenom(0)+" "+NomPrenom(2)+" "+NomPrenom(4)+" "+NomPrenom(3) 
EndProcedure

;Zone de test
Debug Transforme("DURAND, Paul & DUPONT, Jacques")
Debug Transforme("DURAND, Paul et DUPONT, Jacques")
Debug Transforme("DURAND, Paul - DUPONT, Jacques")
Debug Transforme("DURAND, Anne-Marie-Camille - DUPONT, Jacques")

Bonjour.
Ça marche super.
Merci de votre aide.

PureBasic

inverser deux mots

inverser deux mots

Re: inverser deux mots

Re:[Resolu] inverser deux mots