begin process at 2012 05 27 06:43:22
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Chaînes de caratères

 > FONCTION PCASE POUR METTRE DES MAJUSCULES À CHAQUE DÉBUT DE MOTS DANS UN PHRASE

FONCTION PCASE POUR METTRE DES MAJUSCULES À CHAQUE DÉBUT DE MOTS DANS UN PHRASE


 Information sur la source

Note :
6 / 10 - par 3 personnes
6,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Chaînes de caratères Classé sous :pcase, majuscule, début, mots, phrase Niveau :Débutant Date de création :11/04/2001 Vu :10 714
Auteur : Nix

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

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

  • <%
  • '---------- 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 ----------------------------------
  • %> 
<%
'---------- 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 ? :)


 Sources du même auteur

Source avec une capture Source .NET (Dotnet) RÉCUPÉRER L'ADRESSE IP D'UN NOM DE DOMAINE AVEC ASP.NET
Source avec une capture Source .NET (Dotnet) FAIRE UN HISTORGRAMME (EN GIF) À LA VOLÉE EN ASP.NET
Source .NET (Dotnet) ENVOYER UN MAIL LORSQU'UNE PAGE GÉNÈRE UNE ERREUR
Source .NET (Dotnet) RÉCUPÉRER UNE PAGE WEB À TRAVERS UNE PAGE ASP.NET
Source avec Zip UPLOADER UN FICHIER SANS COMPOSANT V2.0
Toutes les sources de Nix

 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
FONCTION UCFIRST EN ASP par DesignerCreator
Source .NET (Dotnet) FONCTIONS DE VÉRIFICATION DE LA SYNTAXE D'UNE CHAINE par vladam
Toutes les sources de la catégorie Chaînes de caratères

 Sources en rapport avec celle ci

Source .NET (Dotnet) CONNAÎTRE LES MOTS CLÉS UTILISÉS SUR GOOGLE POUR TOMBER SUR ... par jeffwow
Source .NET (Dotnet) .NET - COUPER UNE CHAINE DE CHARACTÈRE POUR EN EXTRAIRE LE D... par fabrice69
Source .NET (Dotnet) RECHERCHER DES MOTS DANS UN TEXTE POUR LES METTRES EN GRAS. par damasta
Source avec Zip DICTON DU JOURS par Mcjo
STOCKER TOUS LES MOTS D'UNE PHRASE DANS UN ARRAY par vbtom

Commentaires et avis

Commentaire de moguaii le 23/07/2009 23:07:39

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à ;)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Majuscule -> minuscule Au secour !!!! [ par yomguyberbi ] Bonjour,Je cherche à rajouter des majuscules à chaque début de phrase lorsqu'il n'y en a pas dans une phrase juste avant un point, un point d'exclamat Comment traiter un texte en ne retenant que les mots-clés en utilisant les RegExp?? [ par ben5600 ] Situation: je traite un texte de qq lignes en retirant tous les accents et les espaces et points etc..Les mots restants sont stockés dans une variable probleme avec mots trop long [ par profweetos ] Bonjour,Je fais saisir un message dans un textarea.Ce message est enregistré dans un champ mémo access.Problème : Lorsque je veux faire afficher ce me suppression image et majuscule [ par poussmouss ] Bonjour,en fait j'ai deux question : 1- J'ai une liste d'utilisateur, qui ont chacun leur avatar, et je voudrais savoir si il existe un moyen pour sup MapPath et directory [ par jcq ] Bonjour à tous et bonne fête nationale !Donc comme y'a pas de répis pour les braves, une question certainement trés simple mais qui me pose problème d TERRIBLE début [ par Fildomen ] salut.je suis pas célèbre dans les forums asp, c'est parce-que je suis nouveau,je fais du c#. et je veux me mettre un peu dans l' asp.net, et au premi Un moyen plus simple ? [ par ranouf ] Bonjour, suis je oblig&#233; de mettre "&lt;!-- #include file="fonctions\fonctions.asp" --&gt;" a chaque d&#233;but de page? En php, si on le d&#233;c url et majuscules [ par Chris_LaFouine ] Lorsque je clique sur un lien... il arrive que dans l'url, il y ait des param&#232;tres en majuscule accentu&#233;es, le probl&#232;me est que ces par index server et l'arabe [ par chatbi ] bonjour &#224; tous,j'ai&nbsp;r&#233;alis&#233; un moteur de recherche avec index server , mais il ne cherche que les mots en fran&#231;ais et ignore Couper une chaine sans pour autant couper les mots [ par dadamagouil ] Le titre est assez clair mais je m'explique Je voudrais couper une chaine sans couper le dernier mot. Faudrait que je prenne par exemple 80 caract&#


Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir
 
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,640 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)