Compter les mots dans une chaine de caractère


Commenter

Contenu du snippet

Encore un truc tout simple mais qui peut servir

Source / Exemple : 


<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é

A voir également

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.

Du même auteur (Nix)