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