CONVERTIR LES MIN EN MAJ ET LES MAJ EN MIN. DANS UNE CHAINE DE CARACTÈRE

Messages postés
26
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
14 mars 2005
- - Dernière réponse : gabchampagne
Messages postés
216
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
5 mai 2004
- 28 août 2003 à 04:51
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/8119-convertir-les-min-en-maj-et-les-maj-en-min-dans-une-chaine-de-caractere

gabchampagne
Messages postés
216
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
5 mai 2004
-
j'aurais pu aussi faire :

Function inverser_min_maj(str As String) As String
Dim lelen As Long, carac As String, total As String
lelen = Len(str)
For i = 1 To lelen
carac = Mid$(str, i, 1)
If carac LCase$(carac) Then total total & UCase$(carac):Else:total= total & LCase$(carac)
Next
inverser_min_maj = total
End Function
Tilois
Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
4 -
logisim > merci.. la source de départ été un peu "brouillon" a mon gout
logisim
Messages postés
49
Date d'inscription
mardi 8 mai 2001
Statut
Membre
Dernière intervention
14 août 2004
-
Plus simple :

Function inverser_min_maj(str As String) As String
Dim carac As String
For i = 1 To Len(str)
carac = Mid$(str, i, 1)
inverser_min_maj inverser_min_maj & IIf(carac LCase$(carac), UCase$(carac), LCase$(carac))
Next i
End Function
cs_Groucho
Messages postés
26
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
14 mars 2005
-
ELSE ou ELSEIF beaucoup plus élégant que cet abominable GOTO
Il y a suffisemment d'instructions en VB pour éviter l'utilisation de cet affreux GOTO (Sauf dans on error).