Fonction ucfirst en asp

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 024 fois - Téléchargée 28 fois

Commenter

Contenu du snippet

Aprés avoir developper pendant de nombreuses années en PHP, je me suis ou plutôt j'ai du me convertir a l'ASP et la fonction Ucfirst me manquer beaucoup, la fléme de trop googler j'ai developper une chtite fonction qui fait exactement ce que je veux. Je suis assez nouveau a l'ASP donc les critique constructive sont le bienvenue et même attendu :p

Source / Exemple : 


<%

function Ucfirst( string )
	'Clean Up the String    Nettoyage du Code Enleve les Espaces aux debut du string et a la fin et la mais en Minuscule
	string= trim(string)
	string= lcase(string)
	'Get the Strings First Letter and Change it to upper Case : Je Prends la Premiere lettre et je la passe en Majuscule
	Stringfirst = Left(string,1)
	Stringfirst = ucase(Stringfirst)
	string=replace(string,lcase(Stringfirst),Stringfirst,1)
	'Get The Next Words First Letter, Ensuite on fait le Deuxieme mot
	Spacepos=InStr(string," ")
	SecondString = Mid(string,Spacepos,2)
	SecondString = trim(SecondString)
	String=replace(string," "&SecondString," "&ucase(SecondString))
	'Et pis la on recherche tt les espaces suivi dun mot pour les mettres en Majuscule 
	Do While InStr(int(Spacepos+1),string," ") <> 0
		Spacepos=InStr(int(Spacepos+1),string," ")
		SecondString = Mid(string,Spacepos,2)
		SecondString = trim(SecondString)
		String=replace(string," "&SecondString," "&ucase(SecondString))
	Loop
	Ucfirst=string
	'Je fait le premier et deuxieme mot separement pasque a la base mes strings n'avait que deux mots mais j'ai ajouter la Loop aprés
	'CopyLeft Black Raven iceburnertk@hotmail.com
End Function
'Chtit Test avec des Chiffres histoire de voir si ca plante :p 
response.write Ucfirst("1 YOU ARE 2 ME")
'Tout marche bien donc voici ma premiere contribution a Code Sources aprés des années dinscription	
%>

Conclusion :


Donc voila je contibu enfin a un site qui m'a beaucoup aider a travers tt les langages de prog. Merci a tt le monde

A voir également

Ajouter un commentaire Commentaires
cs_Nurgle Messages postés 1642 Date d'inscription samedi 6 novembre 2004 Statut Membre Dernière intervention 28 avril 2011 4
19 oct. 2005 à 19:49
Tu as fait un peu compliqué, mais ça fonctionne, c'est ce qui compte :)

cf. http://www.asp-php.net/tutorial/asp-php/glossaire.php?glossid=10

Nurgle
romalafrite Messages postés 106 Date d'inscription mercredi 17 septembre 2003 Statut Membre Dernière intervention 21 octobre 2022
19 oct. 2005 à 14:20
Well done !
S'inscrire maintenant

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.