AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 06 20:28:21
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CALCUL DU NOMBRE D'OCCURENCE D'UN CARACTÈRE OU CHAÎNE DE CARACTÈRES


Information sur la source

Catégorie :Texte Classé sous : calcul, occurence, nombre, caractère, chaine Niveau : Débutant Date de création : 11/10/2001 Date de mise à jour : 29/04/2002 11:38:31 Vu : 5 473
Auteur : Fabian Site perso
Ecrire un message privé
Note :
6,5 / 10 - par 2 personnes
6,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

Description

Cette fonction permet de calculer le nombre de fois qu'un caractère ou qu'une chaîne de caractères est présent dans un autre chaîne.
 

Source

  • Function CalculateOccurenceNumber(strString As String, strCharacter As String) As Integer
  • Dim intPosition As Integer
  • intPosition = 1
  • While intPosition <= Len(strString) And strCharacter <> "" And InStr(intPosition, strString, strCharacter) <> 0
  • intPosition = InStr(intPosition, strString, strCharacter)+1
  • CalculateOccurenceNumber = CalculateOccurenceNumber + 1
  • Wend
  • End Function 
Function CalculateOccurenceNumber(strString As String, strCharacter As String) As Integer
    
    Dim intPosition As Integer
    
    intPosition = 1
    
    While intPosition <= Len(strString) And strCharacter <> "" And InStr(intPosition, strString, strCharacter) <> 0
       
        intPosition = InStr(intPosition, strString, strCharacter)+1
        CalculateOccurenceNumber = CalculateOccurenceNumber + 1
    Wend
End Function

Conclusion

exemple:

CalculateOccurenceNumber("Ceci est un Test", "e") renvoie 3  
 

Commentaires et avis

signaler à un administrateur
Commentaire de SHIVA le 20/01/2002 16:50:10

MERCI !

signaler à un administrateur
Commentaire de Yahan le 22/10/2002 22:44:20

pyrof et lamer ayez la critique instructive poser la votre ligne.

moi je le remerci et j'utilise toute ces lignes vu ke je ne sais faire autrement, si vous critiquez cette source il ne dois pas y avoir beaucoup de source valable pour vous

Yann, merci mec pour ta function

signaler à un administrateur
Commentaire de capoueidiablo le 18/09/2003 11:48:22

moi je ne suis ni pour ni contre ce code mais je trouve qu'il manque de commentaire, tout le monde n'est pas apte a comprendre ces ligne de codes

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Nombre d'occurence d'un caractère dans un chaine [ par CochonPerdu ] Bonjour,Existe-t-il une fonction pour compter le nombre d'occurences d'un caractère dans une chaine de caractère.Par ex, combien y a-t-il de tabulatio Conversion d'un nombre entier en une chaine de caractère [ par Janot ] Ben, je n'arrive pas à trouver la fonction qui convertit un nombre entier en une chaine de caractères (je connaîs seulement Val qui fait l'inverse).Me Reconnaissance d'une chaine de caractère dans une textbox [ par jul ] Comment reconnaitre une chaine de caractères donné dans une textbox? Mettre en gras une chaine de caractère... [ par kris ] Est ce kelk1 pourrais me dire comment faire pour mettre une "SELECTION" d'une zone de texte en gras...merci à celui ou celle qui pourra m'aider Conversion chaine de caracteres en un nombre entier [ par tntdavid ] Je voudrais connaitre le code VB d'une fonction qui me permettrait de convertir une chaine de 6 caractères en un nombre entier.Merci d'avance de l'att en VB, comment récupérer une chaine de caractère ? [ par Fimagen ] voia, j'ai une appli contenant un espece de bloc note personnalisé faite à partir d'une richtextbox.J'ai 5 styles à partir duquel je peux ecrire dans Passage de VC à VB [ par barjonet ] Bonjour,Je voudrais savoir comment je peux faire pour récupérer une chaine de caractère en VB.J'ai un programme VC++ qui retourne l'adresse d'une chai compter le nombre d'un caractère dans une string [ par Jeronimo ] Je dois trouver le nombre d'un caractère dans une chaîne de caractèrestrCar=astrTexte =txtTexte.texttrouver le nombre de strCar dans strTexteJ'ai essa CALCUL DE MODULO D'UN NOMBRE AYANT UN TRES GRAND EXPOSANT!!!!! [ par popstatic ] j'aai besoin de savoir s'il y a la possibilité de calculer le modulo d'un nombre ayant un très grand exposant (&gt; 1500 !). merci d'avance.popstatic Calcul de jour !! [ par Quickeneen ] hello tous le monde, je voudrais savoir comment trouver le nombre de jour qu'il y a entre 2 date.et egalement savoir coment calculer une date en ayant


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


Console Sony Playstation 3 80GB
Entre 398€ et 425€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto Cockpit Airbus A320
Photo pretty girlPhoto femme, plage, bien être, soleil, vacances, été, détente, repos

Visiter la photothèque


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
Temps d'éxécution de la page : 0,530 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.