begin process at 2012 02 16 13:45:23
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Texte

 > INVERSER LES MINUSCULES ET MAJUSCULE (EX : R en r et r en R)

INVERSER LES MINUSCULES ET MAJUSCULE (EX : R en r et r en R)


 Information sur la source

Note :
6,33 / 10 - par 3 personnes
6,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Texte Classé sous :majuscule, minuscule, ucase, lcase, inverser Niveau :Initié Date de création :15/05/1999 Vu / téléchargé :18 658 / 1 807
Auteur : Nix

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

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

Mettez la fonction suivante dans votre Module :

Source

  • 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
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


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE...
IMPRIMER LE CONTENU D'UN RICHTEXTBOX
Source avec Zip Source avec une capture TESTEUR DE REGEX (REGULAR EXPRESSIONS)
Source avec Zip Source avec une capture FORCER LE REBOOT SOUS WINDOWS NT OU WINDOWS 2000 (REDÉMARRAG...
COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE
Toutes les sources de Nix

 Sources de la même categorie

Source avec Zip Source avec une capture MASQUE DE SAISIE NUMÉRIQUE par acive
Source avec Zip Source .NET (Dotnet) COMPTEUR DE NOMBRE DE MOTS DANS UN TEXTE par alpha5
Source avec Zip Source avec une capture HM - BLOCNOTE par hassenmajor
Source .NET (Dotnet) [VB.NET] CLASS DE COLORATION SYNTAXIQUE "ON THE FLY" par huzima
Source avec Zip Source avec une capture PERSONNALISEZ VOS BOÎTES DE MESSAGE (X)HTML par medjahedScript
Toutes les sources de la catégorie Texte

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture TEXTEBOX MULTIFONCTIONS par Sinsitrus
Source avec Zip Source avec une capture Source .NET (Dotnet) INVERSEUR DE SOURIS (CLIQUE ET/OU MOUVEMENT) par darkteam
Source avec Zip Source avec une capture MAJUSCULES / MINSUSCULES par jpleroisse
Source avec Zip ALTERNER MAJUSCULES ET MINUSCULES par Pyros
PASSER UN TEXTBOX EN MAJUSCULES OU EN MINUSCULES par FredericPinchon

Commentaires et avis

Commentaire de beber85 le 30/06/2005 14:44:21


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).

Commentaire de dread2010 le 19/05/2007 12:56:10

merci ,,ça marche....

Commentaire de sooprano le 09/12/2007 15:47:42

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

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

minuscule majuscule dans une BD acess [ par john deuff ] j'ai besoin de faire la différence entre les minuscules et les majuscules dans un tri d'une base de donnee acces.arrive passi qq'un peut m'aider ? Ne pas faire de différence entre majuscule et minuscule [ par phoenix91720 ] Bonjour,J'utilise la fonction instr comme suit :If InStr(enregistrement("titre"), txt_descriptif.Item(0).Text) &lt;&gt; 0 Then lst_liste_fi Validation minuscule/majuscule dans un textbox [ par pure ] Bonjour!J'ai un petit problème, j'essaie de trouver un moyen de faire la distinction entre majuscule et minuscule sur le contenu entré dans un textbox Majuscule et minuscule [ par petiflamand ] Salutquand on recherche un mot dans un fichier text comment faire pour qu'il ne face pasla difference entre Majuscule et minusculec'est a diresi je re Pb verifier si un caractere est en majuscule ou minuscule?? [ par fdiedler2000 ] Bonjour je m'explique : J'ai un textbos et je voudrais que seul la 1er lettre se mette en majuscule et pas les autres.. exemple : si tu tapes : salut Recherche avec majuscule et minuscule sans difference [ par petiflamand ] Bonjour je voudrais savoir comment faire pour  faire une recherche sansdevoir faire attention au majuscule et minisculedonc si je recherche le mot par Pb Table SQL Majuscule Minuscule [ par Caussenard ] Bonjour, J'ai crée une table SQL avec deux clés primaire, l'une de ces deux clés doit faire la différence entre les majuscules et minuscules. Comment vb.net Changer minuscule par majuscule [ par JeffC1977 ] Salut à tous...Je suis à la recherche d'un code pour changer les minuscules par des majuscules... en VB.Netmerci de votre aide   En VB6 ca va... m Probleme UCASE sur un textbox_change() [ par mulder69 ] Bonjour, J'utilise le petit code suivant dans une procédure textbox_change() (afin de mettre en majuscule la 1er lettre qui y est insérée). Private Alterner Majuscule et Minuscule [ par emmagine ] Bonjour, Je suis débutante et je bloque sur un petit exo ... je veux créer une form avec une textbox et un label lorsque l'on lance l'appli, l'utili


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful woman in a bikini meditating on the beachPhoto Underwater View of the Ocean With LIght Shining Through the Wave
Photo barbaggio (village corse) 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,072 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)