begin process at 2012 02 07 07:31:50
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Texte

 > DONNE NOMBRE DE TOKEN DANS UNE CHAINE

DONNE NOMBRE DE TOKEN DANS UNE CHAINE


 Information sur la source

Note :
2 / 10 - par 1 personne
2,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Texte Niveau :Débutant Date de création :03/03/2003 Date de mise à jour :03/03/2003 11:55:00 Vu :2 737
Auteur : Amadeus

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

 Description

Peut s'utiliser avec TokenAt
Retourne le nombre de token contenu dans la chaîne S.

Source

  • function TokenCount(S: string; Seperator: Char): Integer;
  • var
  • I: Integer;
  • begin
  • Result := 0;
  • I := 1;
  • while (I <= Length(S)) do
  • begin
  • if (S[I] = Seperator) then
  • Inc(Result);
  • Inc(I);
  • end;
  • Inc(Result);
  • end;
function TokenCount(S: string; Seperator: Char): Integer;

var
  I: Integer;

begin
  Result := 0;
  I := 1;

  while (I <= Length(S)) do
  begin
    if (S[I] = Seperator) then
      Inc(Result);

    Inc(I);
  end;

  Inc(Result);
end;



 Sources du même auteur

VERROUILER UN FICHIER
RENVOIE UNE PARTIE D'UNE CHAINE PAR RAPPORT À UN SÉPARATEUR
Source avec Zip COMPOSANT TALIGNPANEL
GESTION DES FENÊTRE MDI FILLE UNIQUE
Source avec Zip EXPORT DE DONNÉE D'UN DATASET DANS UN FICHIER TEXTE
Toutes les sources de Amadeus

 Sources de la même categorie

Source avec Zip Source avec une capture TABLEAU INFO SAVE INI par quentinix
Source avec Zip TIBWORD: EDITEUR ORIENTE LANGUE TIBÉTAINE par fredelem
Source avec Zip Source avec une capture POSTIT INFOS par dubois77
Source avec Zip Source avec une capture STREAM STRINGWRITER... UNE MICRO-LIBRAIRIE POUR ÉCRIRE DES C... par LaDentDeLait
Source avec Zip COMBINAISONS DE STRINGS par askil2000
Toutes les sources de la catégorie Texte

Commentaires et avis

Commentaire de amiga68 le 05/03/2007 14:21:12

Euh... C'est juste une fonction qui compte le nombre de mots dans une phrase ?

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Archos Tablette PC ARNOVA ARNOVA 10 4GB
Entre 200€ et 210€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

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 : 2,106 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)