Fonction tout en majuscule

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 957 fois - Téléchargée 39 fois

Contenu du snippet

fonction qui met toute les premieres lettres de chaque mot en majuscule

Source / Exemple :


Function MAJ(str As String) As String
   Dim i As Integer, Find As String
   str = Trim(str)
   str = UCase(Mid(str, 1, 1)) & Mid(str, 2)
   For i = 1 To Len(str)
      Find = InStr(i, str, " ")
      If Find <> 0 Then
         str = Mid(str, 1, Find) & _
               UCase(Mid(str, Find + 1, 1)) & _
               Mid(str, Find + 2)
      End If
   Next
   MAJ = str
End Function

A voir également

Ajouter un commentaire

Commentaires

cs_liquide
Messages postés
1018
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
24 juin 2008
-
ah ok
merci de l'info
BruNews
Messages postés
21054
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
7 novembre 2014
13 -
split est gros consommateur, init d'1 varArray, SysAllocString pour chaque String a inserer dans le le varArray, une calamite.
cs_liquide
Messages postés
1018
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
24 juin 2008
-
ca veut dire quoi , c'est perdu d'avance ?
BruNews
Messages postés
21054
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
7 novembre 2014
13 -
y a ma dll (V 9) dans les sources, vous pourrez mesurer au tick processeur près.
liquide> c'est perdu d'avance.
Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
56 -
tu dois pouvoir faire des GetTickCount (ou plus precis, QueryPerformanceCounter)

a faire sur version compilée, avec un sacré paquet d'appels

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.