Fonction pcase pour mettre des majuscules à chaque début de mots dans un phrase

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 456 fois - Téléchargée 35 fois


Contenu du snippet

Cette fonction n'est pas de moi à l'origine mais elle comportait un bug que j'avais corrigé.
Je ne sais plus d'ou elle viens car ce sont des fonctions que j'utilise souvent.

Source / Exemple :


<%
'---------- Fonction ProperCase ( Ex : PCase("nix est pas grand") => Nix Est Pas Grand )
Function PCase(strInput)
	Dim iPosition
	Dim iSpace  
	Dim strOutput
	iPosition = 1
	Do While InStr(iPosition, strInput, " ", 1) <> 0
		iSpace = InStr(iPosition, strInput, " ", 1)
		strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
		strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))
		iPosition = iSpace + 1
	Loop
	strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
	strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))
	PCase = strOutput
End Function
'----------------------------- Fin Fonction ProperCase ----------------------------------
%>

Conclusion :


CoOl NoN ? :)

A voir également

Ajouter un commentaire

Commentaire

moguaii
Messages postés
13
Date d'inscription
mardi 6 janvier 2004
Statut
Membre
Dernière intervention
28 octobre 2011
-
Joli code, mais quand même super compliqué :s

La même fonction en plus simple (et de moi :p) :

------------------------------------------------------------------------------------------
Function PCase(strInput)
colInput = Split(strInput)
For i = 0 to Ubound(colInput)
colInput(i) = UCase(Left(colInput(i), 1)) & LCase(_
Right(colInput(i), Len(colInput(i)) - 1))
Next
PCase = Join(colInput)
End Function
------------------------------------------------------------------------------------------

Voilà ;)

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.