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

Soyez le premier à donner votre avis sur cette source.

Vue 21 585 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

Commenter la réponse de TomAmplius

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.