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

Code

 > 

Chaînes de caratères

 > COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE

COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Chaînes de caratères Classé sous :compter, mots, chaine, string, caractères Niveau :Débutant Date de création :03/04/2001 Vu :11 696
Auteur : Nix

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

 Description

Encore un truc tout simple mais qui peut servir

Source

  • <html>
  • <head>
  • <title>Comptage de mot :)</title>
  • </head>
  • <body>
  • <%
  • Function CombienDeMot(LeTexte)
  • Dim LeTxtTmp
  • Dim LeTxt
  • 'On vire tout ce qui n'est pas dans l'alphabet
  • LeTxtTmp = Nettoyage(LeTexte)
  • ' Au cas ou il y aurait des double espace
  • LeTxtTmp = Replace (LeTxtTmp, " ", " ")
  • 'on considère qu'un espace sépare 2 mots
  • ' et on split les mots
  • LeTxt = Split(LeTxtTmp, " ")
  • CombienDeMot = Ubound(LeTxt) + 1
  • End Function
  • Function Nettoyage(source)
  • Const Letters = "abcdefghijklmnopqrstuvwxyzéèùîçïëêàâäôö"
  • Dim i, tmp
  • tmp = ""
  • For i = 1 To Len(source)
  • If InStr(Letters, LCase(Mid(source, i, 1))) <> 0 Then
  • tmp = tmp & Mid(source, i, 1)
  • Else
  • tmp = tmp & " "
  • End If
  • Next
  • Nettoyage = tmp
  • End Function
  • %>
  • <%=CombienDeMot("C'est cool, y a plein de mot dans ma phrase:)test")%> mot(s)
  • </body>
  • </html> 
<html>
<head>
	<title>Comptage de mot :)</title>
</head>

<body>
<%

Function CombienDeMot(LeTexte)
	Dim LeTxtTmp
	Dim LeTxt

	'On vire tout ce qui n'est pas dans l'alphabet
	LeTxtTmp = Nettoyage(LeTexte)

	' Au cas ou il y aurait des double espace
	LeTxtTmp = Replace (LeTxtTmp, "  ", " ")

	'on considère qu'un espace sépare 2 mots
	' et on split les mots
	LeTxt = Split(LeTxtTmp, " ")
	
	CombienDeMot = Ubound(LeTxt) + 1
End Function


Function Nettoyage(source)
	Const Letters = "abcdefghijklmnopqrstuvwxyzéèùîçïëêàâäôö"
	Dim i, tmp

    tmp = ""
    For i = 1 To Len(source)
        If InStr(Letters, LCase(Mid(source, i, 1))) <> 0 Then
			tmp = tmp & Mid(source, i, 1)
		Else
			tmp = tmp & " "
        End If
    Next
    Nettoyage = tmp
End Function
%>
<%=CombienDeMot("C'est cool, y a plein de mot dans ma phrase:)test")%> mot(s)
</body>
</html>

 Conclusion

Faites un copier/coller dasn une page en .asp, exécutez et le tour est joué


 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
PROBLÈME D'INSERTION D'UNE CHAINE CONTENANT DES COTES par djo
AJOUTER UN S À UNE CHAINE EN FCT D'UN NOMBRE par rcolas
TROUVER UNE CHAINE ET LA REMPLACER par rcolas

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

completer une chaine de caractères [ par metos ] je voudrais pouvoir compléter une chaîne de caractère par des *.exemple l'utilisateur entre dans une inputbox de 30 caractères:testj'aimerais complète Caractères dasn un string [ par sschupp ] Comment fait-on pour compter le nombre de caractères d'un string ? Concatination d'une chaine de caractères avec les guillemets [ par barhooom ] Salut...J'ai un petit problème avec la concatination avec le caractère( " )j'ai une variable qui contient une liste des checkbox séléctionnés exemple: Pb avec une chaine de caractères... [ par Tribute2U ] Bonjour.Voila mon problème,j e récupère une chaine de caractère contenant le prénom et le nom de l'utilisateur avec un espace entre les 2 (ex:"Bill Ga 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&# Bloquer une chaine selon une liste de mots [ par D1stort1on ] Salut tt le monde,Ce que j'aimerai faire c'est rep&#233;rer une certaine s&#233;rie de mots dans une chaine de charact&#232;re et, si un de ces&nbsp;m Comment mettre des " dans une chaine de caractères. [ par jerome_p ] Voila tout est dans le sujet!Merci d'avanceP.S. Je suis en C# web.config + clef de connection ! [ par jimmy69 ] Bonjour a tous,Je fais des webform avec c# visual studio 2003 !et je me connecte a une db msde !avant je placais ma chaine dans une chaine de type str Compter le nombre de caractères ! [ par vinsator ] Bonjour à tous, ma question est toute simple mais n'ayant pas trouver de source dessus je vous la pose.Comment faire pour compter le nombre de caractè Récupération de données [ par dupomd ] Bonjour,Je voudrais vous soumettre mon problème de récupération d'un argument de sortie (Target)J'appelle un executable à partir d'une page ASP d'un s


Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (32 Go)
Entre 1290€ et 1333€

Visiter le guide achat

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 : 1,076 sec (4)

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)