Regexp Majuscule et miniscule

Bonsoir,
J'ai un fichier des Titres représentants des noms en majuscule (En Rouge) par fois en début de ligne et par fois en fin de ligne
et des prénoms même chose et chaque mot débute par un caractère majuscule.
Comme ceci :

Titre :

Jean Jacque HUGES
LE CROIX Jean Pierre
Marcel M'FILLET
Hèrbère DUHARVE


Et moi je voudrai découper ces titres en noms qui sont en Majuscule et en prénom en Minuscule
Comme ceci :

Nom Prénom

HUGES Jean Jacque
LE CROIX Pierre
M'FILLET Marcel
DUHARVE Hèrbère

J'ai trouvé une solution de découper ces mots majuscules en Nom par REGEXP

"\b[A-Z]{2,}\b"

Pour les autres prénoms j'ai pas encore trouvé.
Pouvez-vous m'aider ?
Merci

salut,

tu peux utiliser ce bout de code comme pattern:

Code:

---

^(?:((?:[A-Z'-]{2,}[ ]){1,})((?:[ ]?[A-Z][a-z\u00E0-\u0178'-]+){1,})|((?:[A-Z][a-z\u00E0-\u0178'-]+[ ]){1,})([A-Z'-]{2,}))$

---

mais il faut avant tout activer le mode multiline dans ton script, pour les matches elles vont variés selon la composition des noms et leurs complexité: match2+match3 ou bien match0+match1 voici une demo et un bout de code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Set objFSO = CreateObject("Scripting.FileSystemObject") Set file = objFSO.OpenTextFile("C:\Users\walid\AppData\Local\Temp\0.txt", 1) With CreateObject("VBScript.RegExp") .Pattern = "^(?:((?:[A-Z'-]{2,}[ ]){1,})((?:[ ]?[A-Z][a-z\u00E0-\u0178'-]+){1,})|((?:[A-Z][a-z\u00E0-\u0178'-]+[ ]){1,})([A-Z'-]{2,}))$" .IgnoreCase = False .Global = True .Multiline = True Do until file.AtEndOfStream data = file.ReadLine Set m = .Execute(data) If m.Count > 0 Then If ISEmpty(m(0).SubMatches(0)) Then txt = txt & m(0).submatches(3) & " " & m(0).submatches(2) & vbCRLF Else txt = txt & m(0).submatches(0) & " " & m(0).submatches(1) & vbCRLF End If End If Loop End With file.Close msgbox txt, 0, "nom <=> prenom"

---

avec un fichier 0.txt

Code:

---

1 2 3 4 5 6

Jean Jacque HUGES LE CROIX Jean Pierre Marcel M'FILLET Hèrbère DUHARV Duval Monica Del Rio BENNETT SAMUEL ADEBE BAYOR Tristan

---

le resultat

Pièce jointe 332047


maintenant c'est à toi d'implémenter tout ceci dans ton code...bonne chance

Maintenant je sais ou je peux trouver mes solutions, et je sais que tu es toujours là :zoubi:
Un grand Merci a toi I'm_HERE
C'est ça ce que je voulais a part quelques mots qui ne se trouvent pas par ma faute (quelques mots peuvent commencer par un miniscule)
Maintenant je vais décortiquer tout ça
MERCI