Parcours de tableau

Bonjour,

Je recherche une méthode me permettant de rechercher dans un tableau de numériques , une suite particuliere de valeur.
Mon tableau fait plusieurs millions d'enregistrements, la recherche élément par élément est un peu lente.

ex : 1,0,0,1,1,1,0,1,1,1,1
je cherche  3 fois 1 de suite
reponse : indice de départ = 4 ( 1,0,0,1,1,1,0,1,1,1,1)

Merci,
Olivier

Faut prendre l'habitude d'indexer en base 0, ton indice sera donc 3.

Un index indique l'offset de décalage rapport à l'adresse base, un index 0 indique donc bien le 1er élément.

ciao...
BruNews, MVP VC++

Salut,

en gros, ça devrait faire ça :


Dim TabARechercher(3) As Long, StartIndice As Long
Dim MonTableau() As Long, i As Long

TabARechercher = Array(1, 1, 1)
MonTableau = Array(1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1)

For i = LBound(MonTableau) To UBound(MonTableau) - 3
   If TabARechercher(0) = MonTableau(i) And TabARechercher(1) = MonTableau(i + 1) And TabARechercher(2) = MonTableau(i + 2) Then
      StartIndice = i: Exit For
   End If
Next i

Erase TabARechercher
Erase MonTableau
~ Mortalino ~ Colorisation automatique

@++

---

Ah et je confirme que suite à ce que dit BruNews, je suis bien en base 0 et StartIndice sera donc égal à 3

@++

---

Je vois mal comment ne pas parcourur tous les éléments du tableau (celà me parait inévitanle)

 

Je vois par contre une possibilité de gagner en temps.

au lieu de comparer à 1 (donc une condition à chaque fois) : additionner ---

quelque chose du genre  (îci je recense tous les départs d'occurrence dans une listbox, juste pour y voir clair)

Private Sub Command1_Click()
  MonTableau = Array(1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1)
  n = 0
  For i = 0 To UBound(MonTableau) - 1
    If MonTableau(i) > 0 Then
       n = n + 1
    Else
       n = 0
    End If
    If n = 3 Then
      List1.AddItem i - 2
      n = 0
    End If
  Next
End Sub

C'est juste une idée et :

1) je n'ai pas testé n comparaison de temps
2) elle est surement perfectible

Prends exemple sur ce qui t'a été donné plus haut par mortalino et jmfmarques.

Si vraiment tu bosses sur des tableaux de millions d'elems, ça risque fort de rester assez lent faute au "MonTableau(i)", l'accès aux elems par indexation est une calamité depuis vb en terme de performance.
Pour perfs incomparables, il te faudra compiler une dll C qui accèdera direct à la mémoire du tableau, tu devrais atteindre un benef facteur 10 minimum.
Exemple ici:
http://www.vbfrance.com/code.aspx?ID=33938

ciao...
BruNews, MVP VC++

Effectivement, il est difficile de ne pas parcourir le tableau.
d'autant plus que l'exemple ennoncer est incomplet. en réalité il serait plutot comme suit : 

  MonTableau1 = Array(1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1)
  MonTableau2 = Array(1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1)
  MonTableau3 = Array(1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1)

je doit trouver l'endroit ou j'ai 3 fois 1 de suite dans l'ensemble de mes tableau (l'ensemble des tableaux doit approcher le million d'éléments)

resultat : 
  MonTableau1 = Array(1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1)
  MonTableau2 = Array(1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1)
  MonTableau3 = Array(1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1)

merci pour le tuyau, je vais assayer en effectuant des additions

A+

dim res (1 to 10000) as boolean

Max=UBound(MonTableau1)

for i = 0 to Max
    MonTableau4(i)=MonTableau1(i)+MonTableau2(i)+MonTableau3(i)
next i
   
for i = 0 to Max
    if  MonTableau4(i)=3 and MonTableau4(i+1)=3 and MonTableau4(i+2)=3 then res( i+1) = true
next i

tu obtient ainsi la liste des résultats dans un tableau donc l'index de base est 1 ce qui te simplifie la tâche je pense. Pour ce qui est de l'accélération si le nombre d'occurance de ton tableau est fixe, il est possible d'utiliser dans la boucle de recherche des multiples de i ce qui va augmenter le nombre de tests par tour de boucle ce qui peut être plus rapide.

      

next i
MAXIMO71
PS Si la réponse vous satistait
pensez à la valider