Inverser les minuscules et majuscule (ex : r en r et r en r)

Soyez le premier à donner votre avis sur cette source.

Vue 21 616 fois - Téléchargée 1 915 fois

Description

Comment inverser les majuscules et minuscule ?
Ex : Visual Basic => vISUAL bASIC

Mettez la fonction suivante dans votre Module :

Source / Exemple :


Public Function InverserCase(Chaine as String) as String
    Dim a as String * 1 'Chaine de 1 Caractère
    Dim Temp as String

    For i = 1 to Len(Chaine)
        a = mid(Chaine, i, 1)

        If a = uCase(a) Then
            Temp = Temp & lCase(a)
        Else
            Temp = Temp & uCase(a)
        End If

    Next

    InverserCase = Temp
End Function

' Pour l'executer ex :

InverserCase("Visual Basic")

' N.B : Ceci ne Fonctionne pas en Unicode ( merci à <A HREF="http://www.c2i.fr">C2I</A> ) pour la remarque

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

If a = uCase(a) Then
Temp = Temp & lCase(a)
Else
Temp = Temp & uCase(a)
End If

peut être renplacer par :
Temp iif(a uCase(a),Temp & lCase(a),Temp & uCase(a)
)
beber85
Messages postés
10
Date d'inscription
vendredi 9 avril 2004
Statut
Membre
Dernière intervention
8 juillet 2005
-
Et pourquoi pas ca ?

Public Function InverserCase(ByVal Chaine As String) As String
For i As Integer = 1 To Len(Chaine)
InverserCase &IIf(Mid(Chaine, i, 1) UCase(Mid(Chaine, i, 1)), LCase(Mid(Chaine, i, 1)), UCase(Mid(Chaine, i, 1)))
Next
End Function

?!? ... le but n'est pas de faire le plus court possible ... mais aussi d'avoir du code compréhensible (de plus ce n'est pas parce que tu as moins de ligne que ton code est plus efficace).
dread2010
Messages postés
5
Date d'inscription
mercredi 16 mai 2007
Statut
Membre
Dernière intervention
19 mai 2007
-
merci ,,ça marche....
sooprano
Messages postés
34
Date d'inscription
dimanche 9 décembre 2007
Statut
Membre
Dernière intervention
22 avril 2008
-
ohhh ca l'aire un peu compliqué, meme si on a pas obligé a faire tous ca.
parcke a mon avis quand on vx saisir le nom il dois etre majuscule alors au lieu ke l'utilisateur fé shift sur clavier puis il saisis son nom on le fé automatiquement alors on fé tous simplement sur command1 si j travail sur bas de donnée et j dois saisir le nom ds le text1 par ex alors j'utilise DATA1 je fé data1.recordset.fields("nom")=ucase(text1)
et pour faire le prenom s'a vx dire le premier caractere dois etre en majuscule et les autre en minuscule alors j dois poser un composant nommé MaskEdit sa vx dire un masque de saisi

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.