Compter un nombre de données..Résolu

Question

Si j'ai bonjour comme string qui contient "zm10gsalut6nv02nsalut12nvfksalut", comme dois-je faire pour compter le nombre de "salut" dedans?

Merci.

Renfield · Accepted Answer

interessante, ta méthode ^^
elle a l'avantage de ne pas avoir de boucle...

tu pourrais l'accélerer en faisant :

NB_OCCURENCES = (LenB(vsInput) - LenB(Replace(vsInput, vsPattern, vbNullString, Compare:=veCompare))) / LenB(vsPattern)


tout ce qu'il faut considérer, c'est le coût du Replace (qui alloue une
nouvelle chaine de taille au maximum égale a celle de la chaine
d'entrée)

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Renfield · Answer

Dim i As Long

Dim sInput as String

Dim nCount as long

    sInput = "zm10gsalut6nv02nsalut12nvfksalut"


    i = InStr(1, sInput, "salut")

    Do Until i = 0

        nCount = nCount + 1

        i = InStr(i + 1, sInput, "salut")

    Loop


    MsgBox nCount

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Renfield · Answer

http://codyx.org/snippet_compter-nombre-occurrence-chaine-dans-autre_158.aspx




Renfield





Admin CodeS-SourceS

- MVP Visual Basic

Dolphin Boy · Answer

Bonjour
Voici une autre méthode :

Private Sub Command1_Click()
  MsgBox NB_OCCURENCES("zm10gsalut6nv02nsalut12nvfksalut", "salut")
End Sub

Function NB_OCCURENCES(Chaine As String, MotCherche As String) As Integer
  NB_OCCURENCES = (Len(Chaine) - Len(Replace(Chaine, MotCherche, ""))) / Len(MotCherche)
End Function

mortalino · Answer

Salut,

Je pense que la correction de Renfield sur le code de Dolphin Boy ferait accélérer la vitesse de traitement de 3 fois.

A tester avec un compteur...

++
mortalino

Dolphin Boy · Answer

Salut mortalino, j'ai fait des tests et finalement c'est la solution avec instr de Renfield qui est la plus rapide.
LenB n'accélère pas du tout ma méthode, bien au contraire, ça ralenti de presque 2 fois.
Et plus la chaine est longue, plus on voit la différences.
Personnellement, je vais adopter le instr.

Renfield · Answer

le replace est interessant......

il ya un seuil critique a partir duquel ma fonction devient plus rapide....


tout dépend de la taille de l'entrée

"tout ce qu'il faut considérer, c'est le coût du Replace (qui alloue une
nouvelle chaine de taille au maximum égale a celle de la chaine
d'entrée)"

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Compter un nombre de données..

7 réponses

Votre réponse

Discussions similaires