(Lifting) de 'Convertir noms prénom (même composés) -> noms propres' [Sources]

[vodiem]

je suis tombé par hazard sur le code d'Argyronet ici, j'ai trouvé ca compliqué pour faire si peu, ayant deux minutes sous la main (j'exagère ), je l'ai donc refait.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function GetProperName(ByVal TextToConvert As String) As String
Dim i As Integer
Dim separateur
separateur = Array(" ", ";", ":", "-", "~", "@", "_", "&", "*", "#", "'", Chr(160))
TextToConvert = LCase(TextToConvert)
 
'mettre la première lettre en majuscule
TextToConvert = UCase(Mid(TextToConvert, 1, 1)) + Right(TextToConvert, Len(TextToConvert) - 1)
 
'mettre en majuscule après chaque séparateur
For i = 1 To Len(TextToConvert) - 1
    If UBound(Filter(separateur, Mid(TextToConvert, i, 1))) >= 0 Then
        TextToConvert = Left(TextToConvert, i) + UCase(Mid(TextToConvert, i + 1, 1)) + Right(TextToConvert, Len(TextToConvert) - i - 1)
    End If
Next i
 
GetProperName = TextToConvert
End Function

en supposant que les séparateurs n'ont pas de majuscule.

cela corrige aussi qq défaut de traitement de sa fonction.

sincère respect à ton travail Argyronet, 2008 se présente comme une période de récession...

[naphta]

Salut,

Depuis que je traine sur les contributions j'avions pas vue celle là

Car en plus j'avais déjà une fonction qui avait le même objectif, mais là je m'incline.
Cette fonction est terrible à tout point de vue un exemple pour tous.

Merci Vodiem ça c'est de la Gold contribution

[Jonkill]

je n'ai pas peur de poser ma question, sur quel événement faut-il mettre ce code ?
merci

[micniv]

Salut,
typiquement : dans le _AfterUpdate()

[DocGyn]

Super génial

Juste ce qu'il me faut pour réparer une MAJ "mal pensée" par SQL

[novice06]

bonjour,
j'aimerais avoir une précision d'utilisation de cette fonction

j'ai une table ARRETS avec un champ NomArret avec des nom d'arrêts en majuscule avec ou sans tirets de séparation entre 2 mots et un 2ème champ NomArret_Modif vide.

j'ai copié ce code dans un module tel quel.

Comment l'utiliser pour mettre à jour le 2ème champ NomArret_modif de la table ARRETS en fonction du champ NomArret ?

Merci par avance et bonne journée

[micniv]

Bonjour,
Eh bien, tu passes la requete :

Code :

1
2
 
UPDATE ARRETS  Set NomArret_modif = GetProperName( NomArret) ;

A+