Fonction tout en majuscule

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 973 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
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
16
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
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
16
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
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
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.