CONVERTIR LES MIN EN MAJ ET LES MAJ EN MIN. DANS UNE CHAINE DE CARACTÈRE
cs_Groucho
Messages postés
26
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
14 mars 2005
-
2 août 2003 à 08:52
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
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
https://codes-sources.commentcamarche.net/source/8119-convertir-les-min-en-maj-et-les-maj-en-min-dans-une-chaine-de-caractere
28 août 2003 à 04:51
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
27 août 2003 à 20:59
18 août 2003 à 12:22
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
2 août 2003 à 08:52
Il y a suffisemment d'instructions en VB pour éviter l'utilisation de cet affreux GOTO (Sauf dans on error).