Fonction ucfirst en asp

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 656 fois - Téléchargée 26 fois

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
1648
Date d'inscription
samedi 6 novembre 2004
Statut
Modérateur
Dernière intervention
28 avril 2011
2
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
105
Date d'inscription
mercredi 17 septembre 2003
Statut
Membre
Dernière intervention
17 mars 2017

Well done !

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.