FONCTION TOUT EN MAJUSCULE
VicoLaChips2
Messages postés
436
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
-
26 nov. 2002 à 16:52
cs_liquide Messages postés 1016 Date d'inscription samedi 22 mars 2003 Statut Membre Dernière intervention 24 juin 2008 - 4 août 2004 à 17:50
cs_liquide Messages postés 1016 Date d'inscription samedi 22 mars 2003 Statut Membre Dernière intervention 24 juin 2008 - 4 août 2004 à 17:50
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5114-fonction-tout-en-majuscule
https://codes-sources.commentcamarche.net/source/5114-fonction-tout-en-majuscule
4 août 2004 à 17:50
merci de l'info
4 août 2004 à 17:48
4 août 2004 à 17:39
4 août 2004 à 17:37
liquide> c'est perdu d'avance.
4 août 2004 à 17:21
a faire sur version compilée, avec un sacré paquet d'appels
4 août 2004 à 17:00
Existe t il un truc pour calculer en temps reel, une méthode par rapport a une autre ?
4 août 2004 à 16:54
tu effectue davantage de manipulations sur tes chaines, et il ne faut pas plusieurs espaces consécutifs
(
qui pourraient être remplacées par :
Mid$(Splitage(i), 1, 1) = UCase$(Mid$(Splitage(i), 1, 1))
)
bref, pas top ;-)
4 août 2004 à 15:54
Private Function MAJ(Str As String) As String
If Len(Str) 0 Then MAJ Str: Exit Function
Dim Splitage() As String
Dim i As Integer
Splitage() = Split(Str, " ")
For i = LBound(Splitage()) To UBound(Splitage())
Splitage(i) = UCase$(Mid$(Splitage(i), 1, 1)) & Mid$(Splitage(i), 2, Len(Splitage(i)) - 1)
Next i
MAJ = Join(Splitage(), " ")
End Function
4 août 2004 à 14:19
1 - Find est un String (instr renvoies un entier !)
2 - Str est passé par référence (normal) mais tu le modifies !!
3 - tu fais des Left et des Mid a tout va.... pour remplacer un caractère dans une chaine, c'est inutilement gourmand...
alors pour quelqu'un qui se vante de conserver la casse des lettres, ton influence sur la chaine d'entrée est carrément moins négligeable !
voici une version optimisée :
Function MAJ(Str As String) As String
Dim L As Integer: L = Len(Trim$(Str))
'# MAJ contient la valeur d'entrée, sa taille est dès lors figée :
'# on n'allouera pas de caractères supplémentaires....
MAJ = Str
If L = 0 Then Exit Function
Dim i As Integer
Do
i = i + 1
Mid$(MAJ, i, 1) = UCase$(Mid$(MAJ, i, 1))
i = InStr(i , MAJ, " ")
Loop Until i = 0 Or i >= L
End Function
Niveau Expert, lol
4 août 2004 à 10:33
18 nov. 2003 à 22:15
27 nov. 2002 à 15:22
Si j'ai mis cette fonction c'est que celle de VB n'est pas parfaite et ne convient pas pour tout!
un exemple
je prend la chaine de caractere "heLLO woRLD"
ma fonction renvoit -> "HeLLO WoRLD" La casse des autres caracteres est conservée
maintenant la fonction de VB renvoit "Hello World" La casse n'est pas conservé et peut etre génant pour la suite du traitement!
de plus ma fonction fonctionne toute version de VB ce qui n'est pas le cas de StrConv
Voilà je viens de vs démontrer qu'on peut bien réinventer la roue si on l'améliore!
27 nov. 2002 à 08:36
27 nov. 2002 à 08:34
26 nov. 2002 à 23:54
merci à toi et VicoLaChips2, sans qui, je serai encore en train de chercher/creer la fonction
26 nov. 2002 à 21:47
26 nov. 2002 à 16:52
Autrement ya ça :
Function MAJ(str as string) as string
MAJ = StrConv(str, vbProperCase)
End Function
@+, VIC