Concatener : Chaine de Caractere Prenom Nom

Version imprimable

Bonjour à tous,

Voila j'ai besoin de vos lumières. Apres avoir fait des forums de long en large et des test dans tout les sens je suis sans reponses. J'ai donc decider d'appeller à l'aide.

Je commence la programation en vbs et je crée un script pour l'importation du User dans Active Directiry à partir d'un formulaire.

Mon probleme se situe au niveau de la concatenation du Nom et du Prenom de l'utilisateur.

Je voudrais comme exemple de retour : Prenom + Nom = PNom

Jusque la pas de souci (facile ^^)

Or vient la problematique des Prenoms et Nom composés.

Exemple :

Je voudrait que "Jean Pierre Dupond" deviennent JPDupond.

Quel est le code qui me permettrai de faire en sorte que la concatenation me mettre les 2 lettre de son prenom suivi du nom en resultat ?

S'il s'agit d'un tiret (ou apostrophe) plutot qu'un espace comment le gerer (ex Jean-Pierre) pour qu'il me ramene le meme resultat ?

Sachant que mon script tourne en boucle sur tout une liste de prenom, il se peut qu'il y en ai avec des espace d'autre avec des tiret d'autre avec apostrophe etc...

En gros voici mon resonnement :

Si le prenom n'a pas de caractere special (que j'aurai defini comme les espaces, les tirets ou apostrophe) alors ca devient premiere lettre du prenom + nom.

S'il y a un caractere special alors on le supprime et on concatene le tout en supprimant le reste du prenom qui m'interesse pas

Je souhaiterai un truc du genre on analyse le prenom, on supprime tout les caractere choisi defini en variable et on obtient le resultat.

J'ai tenter plusieur methode (split, instr) mais sans succes.

Je voudrais plus un truc du style :
Code:

1 2 3 4 5 6 For Each caractere In MonString If caractere = Chr(34) OR Chr (45) Then resultat = Replace(MonString, caractere, " ") End If Next
Et que ma variable prenom finale prenne le resultat de la suppresion de tout les caracteres de la fonction, mais je sais pas comment faire, ni comment la mettre en place (deja la fonction est elle correcte ?).

Merci d'avance pour votre aide, j'espere avoir été suffisament precis dans ma demande ;)

en remplaçant tout tes caractères séparateurs par un espace ...?

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
26
27
28
29
30
31
Dim st
 
St ="Jean-Pierre Durant"
msgbox st & " => [" & ExtraitNom(st) &"]"
 
St ="Thierry Henri"
msgbox st & " => [" & ExtraitNom(st) &"]"
 
St ="Jean Pierre Dupont"
msgbox st & " => [" & ExtraitNom(st) &"]"
 
St ="D'Henri Charle"
msgbox st & " => [" & ExtraitNom(st) &"]"
Function ExtraitNom( st)
Const stSep  = "-'"
Dim i
Dim  stTmp
Dim tb
stTmp=st
for i = 1 to len(stSep)
 stTmp=replace(stTmp,mid(stSep,1,1)," ")
 
next
 tb =split(replace(stTmp,"  "," ")," ") 'Evite les doublons
 stNew  =""
 For i = 0 to ubound(tb)-1
  StNew = stNew & left(tb(i),1)
next
 ExtraitNom = stNew & tb(ubound(tb) )
 
end function

04/10/2009, 11h20
Tonton_glenn

Trop Fort !!!!!! :ccool:

Un grand merci pour ton aide bbil, ton script est génial, il fait exactement ce que j'ai cité ci-dessus ! :D

Cependant (et c'est de ma faute j'ai pas preciser) je dispose de 2 champ à traiter, un pour le Nom et un autre pour le Prenom. Je dois donc concatener ces 2 champs avec 2 fonctions differentes pour en tirer un nom de login final.

Prenons par exemple Jean-Pierre dans le premier champ recuperer de mon csv qui correspond au prenom puis Du Rand dans le 2eme champ de mon csv qui correspond au Nom

Le Prenom est mis dans un variable v_Prenom puis le Nom dans une variable v_Nom.
Je creer une variable v_Login pour le login final.

Prenom = On enleve les symboles et espace et on recolle enssemble juste les premieres lettres du prenom composé

Exemple = Jean-Pierre devient JP (Ton script me donne JPierre du coup)

Nom = On enleve les symboles et espace et on recolle enssemble la totalité

Exemple : Du Rand devient DuRand (Ton script me donne DRand)

Login = Le login recolle le tout

Exemple : Le resultat du login est JPDuRand

Comment puis je modifier ton script pour avoir un tel resultat ? (car j'ai tenté mais suis noyé dans les fonctions lol). Je pense qu'il faut traiter le prenom avec un fonction puis ensuite le nom avec une autre pour enfin recolle tout le resultat mais je bloque.

Question Bonus : Crois tu egalement qu'il est possible (avec un UCASE par exemple) de faire en sorte que pour le nom et le prenom on mette chaque premiere lette en majuscule et forcer le reste en minuscule ?

En tout cas merci pour ton aide (et ceux qui souhaiterons me repondre) et aussi de ta rapidité c'est agreable, tout cela m'a permis de bien avancé dans la compréhension du vbs ;)

J'ai en partie resolu ma questionen modifiant le code de bbil :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Dim concat
 
v_Prenom = inputbox ("Saississez le Prenom")
v_Nom = inputbox ("Saississez le Nom")
 
 
 
concat = v_prenom
v_prenom_final = ExtraitNom(concat)
 
 
concat = v_nom
v_nom_final = ExtraitNom(concat)
 
v_login = v_prenom_final & v_nom_final
 
'msgbox v_prenom_final
'msgbox v_nom_final
msgbox v_login
 
 
Function ExtraitNom(concat)
Const stSep  = "-'"
Dim i
Dim  stTmp
Dim tb
stTmp=concat
for i = 1 to len(stSep)
 stTmp=replace(stTmp,mid(stSep,1,1)," ")
 
next
 tb =split(replace(stTmp,"  "," ")," ") 'Evite les doublons
 stNew  =""
 For i = 0 to ubound(tb)-1
If concat = v_prenom Then
  StNew = stNew & left(tb(i),1)
End If
If concat = v_nom Then
  StNew = stNew & tb(i)
End If
 
next
 'ExtraitNom = stNew & tb(ubound(tb) )
If concat = v_prenom Then
  ExtraitNom = stNew & left(tb(ubound(tb) ),1)
End If
If concat = v_nom Then
  ExtraitNom = stNew & (tb(ubound(tb)) )
End If
end function

Est ce bien propre ? En tout cas ca fonctionne 8-)

Me reste plus que la question des minuscules et Majuscules et c'est gagné :D

c'est plus tout à fait le même problème ...

je verrai bien une fonction "SupprimeCarSpeciaux" que tu pourrai utiliser pour tes 2 champs et remplacer tes caractères spéciaux par des espaces ....
Code:

1 2 3 4 5 6 7 8 9 10 11 Function SupprimeCarSpeciaux( st) Const stSep = "-'" Dim i Dim stTmp stTmp=st for i = 1 to len(stSep) stTmp=replace(stTmp,mid(stSep,1,1)," ") next SupprimeCarSpeciaux =replace(stTmp," "," ") end function
Une fonction pour extraire les Initiales du prénom
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Function ExtraitInitiale (st) Dim stNew Dim tb Dim i tb =split(st," ") stNew ="" For i = 0 to ubound(tb)-1 StNew = stNew & left(tb(i),1) next ExtraitInitiale = ucase(StNew) end Function
... pour le reste ... un peu de réflexion devrait t'amener au résultat...

Salut bbil,

Merci pour ta reponse ;)

Effectivement cela est une des solution, cependant j'ai gardé ton premier code et j'ai reussi à m'en sortir avec, il fait desormais ce que j'ai envie 8-)

Cependant concernant les Majuscule je bloque juste sur les lettre du Nom (prenom OK)

Je souhaiterai que pour le Nom il mette les premieres lettres apres des espaces ou des caracteres speciaux en majusucle et forcer le reste en minuscule.

Exemple : "du rand" deviendrait "Du Rand" puis une fois concatener "DuRant"

Comment puis-je proceder ?

Voici mon code (qui fonctionne pour la concatenation) :
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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 Dim concat v_Prenom = inputbox ("Saississez le Prenom") v_Nom = inputbox ("Saississez le Nom") If v_prenom <> "" Then concat = v_prenom v_prenom_final = UCASE(ExtraitNom(Concat)) End If concat = v_nom v_nom_final = ExtraitNom(concat) v_login = v_prenom_final & v_nom_final msgbox v_prenom_final, 0, "Prenom concaténé" msgbox v_nom_final, 0, "Nom concaténé" msgbox v_login, 0, "Login Final" Function ExtraitNom(concat) Const stSep = "-'" Dim i Dim stTmp Dim tb stTmp=concat for i = 1 to len(stSep) stTmp=replace(stTmp,mid(stSep,1,1)," ") next tb =split(replace(stTmp," "," ")," ") 'Evite les doublons stNew ="" For i = 0 to ubound(tb)-1 If concat = v_prenom Then StNew = stNew & left(tb(i),1) End If If concat = v_nom Then StNew = stNew & (tb(i)) End If next 'ExtraitNom = stNew & tb(ubound(tb) ) If concat = v_prenom Then ExtraitNom = stNew & left(tb(ubound(tb) ),1) End If If concat = v_nom Then ExtraitNom = stNew & (tb(ubound(tb)) ) End If end function
Merci par avance 8-)

04/10/2009, 14h59
SfJ5Rpw8
c'est une opération simple de manipulation de caractères ...
Code:

1 2 3 4 Dim st st = "DuRant" st =Ucase(left(st,1)) & Mid(lCase(st),2) msgbox st
04/10/2009, 15h44
Tonton_glenn

Oui je pensais égelamant a cela mais je ne vois pas où le placer dans mon code :?

En fait si un nom style du rand est rentrer cela doit retourner DuRand
Mais si un nom simple comme durant est rentrer cela doit retourner Durant.

Or je pense que pour faire cela je dois dire "Mettre en majuscule la premiere lettre de tout les mots de la chaines" et l'integrer dans la fonction mais je vois pas comment... :roll:

Finalement j'ai fini par trouver 8-)

voici ce que j'ai rajouter dans la fonction pour que ca marche :

Code:

1
2
3
4
5
6
 
colInput = Split(stTmp)
For i = 0 to Ubound(colInput)
colInput(i) = UCase(Left(colInput(i), 1)) & LCase(Right(colInput(i), Len(colInput(i)) - 1))
Next
stTmp = Join(colInput)

Et voici le code complet :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Dim concat
 
v_Prenom = inputbox ("Saississez le Prenom")
v_Nom = inputbox ("Saississez le Nom")
 
 
If v_prenom <> "" Then
concat = v_prenom
v_prenom_final = ExtraitNom(Concat)
End If
 
concat = v_nom
v_nom_final = ExtraitNom(concat)
 
v_login = v_prenom_final & v_nom_final
 
msgbox v_prenom_final, 0, "Prenom concaténé"
msgbox v_nom_final, 0, "Nom concaténé"
msgbox v_login, 0, "Login Final"
 
 
Function ExtraitNom(concat)
Const stSep  = "-'" 
Dim i
Dim  stTmp
Dim tb
stTmp=concat
 
For i = 1 to len(stSep)
 stTmp=replace(stTmp,mid(stSep,1,1)," ")
Next
 
colInput = Split(stTmp)
 
For i = 0 to Ubound(colInput)
colInput(i) = UCase(Left(colInput(i), 1)) & LCase(Right(colInput(i), Len(colInput(i)) - 1))
Next
 
stTmp = Join(colInput)
tb =split(replace(stTmp,"  "," ")," ") 'Evite les doublons
stNew  =""
For i = 0 to ubound(tb)-1
 
 If concat = v_prenom Then
  StNew = stNew & left(tb(i),1)
End If
 
If concat = v_nom Then
 StNew = stNew & (tb(i))
End If
 
Next
 
If concat = v_prenom Then
  ExtraitNom = stNew & left(tb(ubound(tb) ),1)
End If
 
If concat = v_nom Then
 ExtraitNom = stNew & (tb(ubound(tb)) )
End If
 
End function

Encore merci bbil pour ton aide précieuse ;)