AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 00:01:00
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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


Information sur la source

Catégorie :Texte Classé sous : majuscule, minuscule, ucase, lcase, inverser Niveau : Initié Date de création : 15/05/1999 Vu / téléchargé: 12 915 / 1 720
Auteur : Nix Site perso
Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Note :
6,33 / 10 - par 3 personnes
6,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
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).

signaler à un administrateur
Commentaire de dread2010 le 19/05/2007 12:56:10

merci ,,ça marche....

signaler à un administrateur
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 Ignorer majuscule et minuscule...vba excel [ par erti1711 ] Bonjour,je voudrais savoir s'il y avait un moyen d'ignorer les majuscules et minuscules dansdes chaines de caract&#232;res???je m'explique:j'ai ecris TooTip ballon inversé? [ par loskiller62 ] Quelqu'un saurait-il comment inverser un tooltip "ballon" (isballoon=true), c'est &#224; dire faire en sorte que la fleche soit en dessous du texte et


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,936 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.