Convertir les min en maj et les maj en min. dans une chaine de caractère

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 518 fois - Téléchargée 38 fois

Contenu du snippet

ce code très simple permet de convertire les majuscules en minuscules et les minuscules en majuscules dans une chaine de caractère.

exemple:
msgbox inverser_min_maj(text1.text)

Source / Exemple :


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)
End If
Next
inverser_min_maj = total
End Function

A voir également

Ajouter un commentaire Commentaires
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
Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
7
logisim > merci.. la source de départ été un peu "brouillon" a mon gout
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
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).

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.