La base de données des scripts PHP - ASP & PERL
Programmation Web Hebergement

PHP ASP PERL

Gratuit Mutualisé Dédié
Rechercher


 
membres
S'inscrire

Mail : 
Passe : 
oublié ?
 
services
Développement
E.JavaScript
Domaines
Referencement
Creer un forum
 
comscripts
Scripts PHP
Scripts ASP
Scripts PERL
Sources PHP
Sources ASP
Sources PERL
Les Ateliers
 
ressources
Les Livres
Forums
Liens
Faire un lien
Refrapide
 
partenaires
Hebergeur Image
CréEr Son Site
1 Max 2 Gains
Easy-Script.Com
Annu Marseille
Pc Land
Abc Webmasters
Bons Plans Du N
Web Creation
Business Intern
Votre site ?

Vérifier la disponibilité d'un nom de domaine


Compteur de mots sur une page web  
 Informations rapides
Catégorie : PHP Auteur :
Sous-Catégorie : Chaine de caractères Ajouté le : 06-03-2003
Langage : PHP  CSID : S103
Visites de la page : 11134    

 Informations détaillées
Description :

Petit script pour compter les mots d'une page web d'un site internet

Portion de code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
le code est Ã  mettre dans un fichier compte.php dans votre site: 

<h3>Compter les mots</h3>
<form method="post">
 <input type="text" name="site" value="http://" size="100" maxlength="255">
 <input type="submit" value="Submit">
</form>
<?php

if ($site) {
 $fp = fopen($site, "r");
 $file = str_replace(" ", " ", strip_tags(fread($fp, 100000)));
 $file = str_replace("\"", " ", $file);
 $file = ereg_replace("[0-9]"," ", $file);
 fclose($fp);

 //compte les mots
 $words_to_count = strip_tags($file);
 $pattern = "/[^(\w|\d|\'|\"|\.|\!|\?|;|,|\\|\/|\-\-|:|\&amp;|@)]+/";
 $words_to_count = preg_replace ($pattern, " ", $words_to_count);
 $words_to_count = trim($words_to_count);
 $total_words = count(explode(" ",$words_to_count));

 echo "Il y a $total_words mots dans <a href=\"$site\" target=\"_blank\">$site</
a>.";

 echo "<br>Les plus communs sont:";

 $string = $words_to_count;

 $arr = spliti("[^a-z0-9]+",$string);

 $idx = array();
 foreach($arr as $word) {
    trim($word);
    if(strlen($word)<1) continue;
    $word = strtolower($word);
    $idx[$word]++;
 }

 echo "<table>";
 arsort ($idx);
 foreach($idx as $word=>$cnt) {
  if ($cnt >3 and strlen($word)>3){
    echo "<tr><td><a href=\"http://www.google.fr/search?sourceid=navclient&hl=fr
&q=$word\">";

    echo $word."</a></td><td>($cnt)</td></tr>";
  }
 }
 echo "</table>";
}
?>



 Les Commentaires

Soyez le premier à rédiger un commentaire sur ce code source !

Ajouter  

 Informations & Services  

Je désire recevoir ce code source par email.
Je désire recevoir la Newsletter de ComScripts.

Newsletter
133 199 abonnés

Autre Sources
 Chaine de caractères
- Remove Accen.
- caractères s.
- controle dat.
- Découpe un t.
- création de .

Tips
 Chaine de caractères
ASP (0)
PERL (3)

Dreamweaver MX 2004


  Le bon plan du moment  

Gen. en 0.07913sec. Retour à la page d'accueil
Copyright © 2005 - Visialis - RCS Nanterre 478 885 122 - Tous droits réservés - Nous contacter haut de page

Valid XHTML 1.0! Valid CSS!