begin process at 2010 07 31 04:46:12
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Chaînes de caratères

 > FONCTION UCFIRST EN ASP

FONCTION UCFIRST EN ASP


 Information sur la source

Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Chaînes de caratères Classé sous :ucfirst Niveau :Débutant Date de création :19/10/2005 Vu :8 299

Auteur : DesignerCreator

Ecrire un message privé
Site perso
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

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

  • <%
  • 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
  • %>
<%

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


 Sources de la même categorie

FONCTION : REMPLACER LES CARRACTÈRES ACCENTUÉS PAR LEUR ÉQUI... par promeythey
CHERCHER ET REMPLACER UN MOT DANS UN FICHIER TEXTE par roro59650
CONVERSION CARACTÈRES UTF-8 VERS FRANÇAIS par EricDD
Source .NET (Dotnet) FONCTIONS DE VÉRIFICATION DE LA SYNTAXE D'UNE CHAINE par vladam
Source .NET (Dotnet) RECUPERER LE RENDU D'UN CONTROLE par jesusonline

Commentaires et avis

Commentaire de romalafrite le 19/10/2005 14:20:48

Well done !

Commentaire de Nurgle le 19/10/2005 19:49:16 administrateur CS

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

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Juillet 2010
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,796 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales