Discussion :

[barribar]

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

[I'm_HERE]

salut,

tu peux utiliser ce bout de code comme pattern:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

^(?:((?:[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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




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

[barribar]

Maintenant je sais ou je peux trouver mes solutions, et je sais que tu es toujours là
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