FORMATER UN NOM COMPOSÉ AVEC LES 1ERES LETTRES EN MAJUSCULE (CHARLES EDOUARD DEV
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
15 avril 2005 à 18:10
DjZebulon
Messages postés19Date d'inscriptionlundi 11 mars 2002StatutMembreDernière intervention12 décembre 2005
-
16 nov. 2005 à 12:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
DjZebulon
Messages postés19Date d'inscriptionlundi 11 mars 2002StatutMembreDernière intervention12 décembre 2005 16 nov. 2005 à 12:11
Salut voila pour ma part un bout de code que j'ai mis sur le net il y a un momment :
<script language="VBScript">
Function Format_Prenom(Chaine)
'Transforme la 1ere lettre d un prénom en maj
Dim intLen
Dim intIdx
Dim a
Dim strFinale
Chaine = LCase(Chaine)
intLen = Len(Chaine)
For intIdx = 1 To intLen
a = Mid(Chaine, intIdx, 1)
If intIdx 1 Then a UCase(a)
If intIdx > 2 Then
If Mid(Chaine, intIdx - 1, 1) " " Then a UCase(a)
If Mid(Chaine, intIdx - 1, 1) "-" Then a UCase(a)
End If
strFinale = strFinale & a
Next
Format_Prenom = strFinale
End Function
</script>
cboulas
Messages postés2641Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention 8 janvier 201416 18 avril 2005 à 20:03
Salut, la même chose en .NET ?
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 16 avril 2005 à 15:58
Pas de réaction ...
Essaye de corriger l'affichage de ta source stp, ou mieux, nous faire une petite source en Zip.
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 15 avril 2005 à 18:10
Salut
L'exemple du titre est très bien choisi !
Je plaisante : pas de bol, les textes sont convertis en majuscules ...
Sinon, et sans te démoraliser, la fonction suivante fait la même chose que ta source :
StrConv("paul lucien", vbProperCase)
En plus, pas facile d'essayer ta source : Le code déposé a quelques soucis d'affichage et il n'y a pas de Zip
16 nov. 2005 à 12:11
<script language="VBScript">
Function Format_Prenom(Chaine)
'Transforme la 1ere lettre d un prénom en maj
Dim intLen
Dim intIdx
Dim a
Dim strFinale
Chaine = LCase(Chaine)
intLen = Len(Chaine)
For intIdx = 1 To intLen
a = Mid(Chaine, intIdx, 1)
If intIdx 1 Then a UCase(a)
If intIdx > 2 Then
If Mid(Chaine, intIdx - 1, 1) " " Then a UCase(a)
If Mid(Chaine, intIdx - 1, 1) "-" Then a UCase(a)
End If
strFinale = strFinale & a
Next
Format_Prenom = strFinale
End Function
</script>
18 avril 2005 à 20:03
16 avril 2005 à 15:58
Essaye de corriger l'affichage de ta source stp, ou mieux, nous faire une petite source en Zip.
15 avril 2005 à 18:10
L'exemple du titre est très bien choisi !
Je plaisante : pas de bol, les textes sont convertis en majuscules ...
Sinon, et sans te démoraliser, la fonction suivante fait la même chose que ta source :
StrConv("paul lucien", vbProperCase)
En plus, pas facile d'essayer ta source : Le code déposé a quelques soucis d'affichage et il n'y a pas de Zip