Trouver un élément dans un tableau, facile pour qui s'y connait !

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Trouver un élément dans un tableau, facile pour qui s'y connait !

Profil supprimé

Salut à tous !

Voilà, j'ai un tableau TA(1 To Max), qui contient une
liste de mots (sans doublons), et je souhaite obtenir
l'indice (le numéro de ligne) d'un mot M donné.

Je bosse en VBA pour Excel, et j'ai le code suivant :

Code :

Trouve = 0
For i = 1 To Max
If TA(i) = M Then Trouve = i: Exit For
Next i

En sortie de boucle, je récupère une variable Trouve
qui vaut 0 si le mot n'est pas dans la table, et son
numéro de ligne s'il y est.

Je trouve ça assez peu optimisé (et je suis gentil),
et du coup, ça me ralenti pas mal mon programme
(j'ai Max qui vaut 50.000 actuellement, et ce nombre
va croitre jusqu'à 200.000 environ... Et cette boucle
va tourner plus de 30 millions de fois !!!).

Mais je ne vois pas d'autre méthode !

Est-il possible de faire ça plus rapidement ?
(sans boucle, se serait top)

Merci d'avance !

Message édité par Profil supprimé le 23-09-2007 à 18:34:54

Publicité

jpcheck

Pioupiou

tu as ces valeurs là sous excel ? c'est pas mieux une BDD Access ?

kiki29

Si tu tiens à ton Tableau et si ce dernier est trié alors http://www.asp-php.net/tutorial/divers/dichotomie.php
sinon une bête feuille XL 256 x 65536 cellules et un find

Message édité par kiki29 le 23-09-2007 à 20:58:09

Profil supprimé

Hum... Non, Access n'est pas mieux, parce qu'il y a plus de fonctions Excel pour les traitements parallèles que j'ai à faire.
Et non, mon tableau n'est pas trié, donc le dichotomie, ça marche pas !
Et un find implique que "j'écrives" mon tableau sur une feuille Excel, mais cette simple opération prend plus de temps que la boucle que je cherche à optimiser !

jpcheck

Pioupiou

ton tableau tu le sors d'où au fait ? ca va piocher des infos où ?
sinon en passant par un fichier txt, ca devrait aller plus vite non ?

Profil supprimé

Bon, j'explique plus en détail... En fait, le but est de soumettre
un texte (stocké dans un fichier txt) au programme. Le but sera
alors de lister les différents mots présents dans le texte et, pour
chaque mot, de connaitre le nombre d'occurences.

Mon programme fonctionne comme suit :
1. Lecture du fichier : on stocke le contenu du
fichier texte dans une variable (ou on fait ça
en plusieurs fois selon la taille du fichier).
2. On met tout en minuscule et on vire tout ce qui
n'est pas une lettre ou un espace.
3. On vire les éventuels double-espaces.
4. On "sépare" les mots, donc pour ça, je cherche
le premier espace (avec un InStr) et ce qui est
à gauche, c'est mon mot, ce qui est à droite, c'est
ce qu'il reste à traiter. Et je boucle là-dessus.
Et donc, ce mot en question que je récupère, il y a
deux possibilités.
En fait, j'ai deux tableaux : TA et TB. TB(n) sera le
nombre d'occurences du mot TA(n).
La boucle fameuse boucle dont je parle cherche le petit
n pour lequel TA(n) = mot qu'on cherche.
Si n <> 0 alors TB(n) = TB(n) + 1
Par contre, si n = 0, alors on incrémente la variable MAX
(nombre total de mots), et on créé TA(MAX) et TB(MAX)
passe à 1.

Voilà !

Au final je n'ai plus qu'à écrire sur ma feuille Excel les
tableaux TA et TB.

Dans ce programme, ce qui met du temps, c'est la
boucle de découpage des mots. Le reste, c'est quasi
instantané.
Si vous voulez, voici la boucle en question :

Code :

Do
P = InStr(T, " " )
If P <> 0 Then
M = Left(T, P - 1)
T = Right(T, Len(T) - P)
Trouve = 0
For i = 1 To TN
If TA(i) = M Then Trouve = i: Exit For
Next i
If Trouve = 0 Then
TN = TN + 1
TA(TN) = M
TB(TN) = 1
Else
TB(Trouve) = TB(Trouve) + 1
End If
End If
Loop

Note : j'ai zappé le if P = 0 qui gère le dernier mot et
qui fait sortir de la boucle. C'est pas important.

Merci de vous pencher là-dessus !

Message édité par Profil supprimé le 24-09-2007 à 11:48:41

jpcheck

Pioupiou

oki,
bon alors moi je propose un truc peut être plus simple : commande batch :pt1cable:
je ne maitrise pas assez le code pour te filer une ligne, mais à mon avis tu dois pouvoir faire un find du mot que tu cherches, et un compteur peux te refiler le nombre d'occurences. Le tout s'écrit alors dans un fichier fichier txt simple avec nom : nb_d'occurences.

Ca te donne une idée ?

Profil supprimé

Bah ça m'emballe pas trop, parce que si je bosse
sur un fichier texte, ok, je pourrai utiliser un Find
ou quelque chose dans ce gout-là, cependant,
les temps d'écritures sont plus lents en TXT qu'en
RAM, forcément. Donc au final, c'est même pas
dit que je sois gagnant.

tegu

Pour un tableau VB non trié, seule la recherche exhaustive peut marcher.
Il n'y a pas d'optimisation.

Toute solution passe par l'utilisation d'un tableau trié, d'un objet autre qu'un tableau (Collection, classe dédiée, expressions régulières via "Microsoft VBScript Regular Expressions 5.5" ) ou d'une autre solution (batch, composant externe, ...).

Profil supprimé

Hum... Bon bah tant pis, ça restera lent...

Publicité

jpcheck

Pioupiou

euh, tu peux juste nous indiquer le temps de traitement qui est "lent" stp ?

Profil supprimé

Sans problème. Prenons par exemple "Le petit chose", d'Alphonse Daudet.

1. Lecture du fichier et stockage dans une variable texte.
29 secondes

2. Formatage du texte (suppression des caractères autres que les lettres)
5 secondes

3. Suppression des double-espaces
12 secondes

4. Séparation des mots et calcul des occurences (code plus haut)
114 secondes

5. Affichage des données
4 secondes

Et conclusion (pour ceux que ça intéresse) :
88.008 mots, dont 8.590 différents.

jpcheck

Pioupiou

et ca doit être réduit à combien tout ca ?

Profil supprimé

J'ai pas de contraite particulière.
C'est juste que je trouve ça long, et que
j'aimerai abaisser ce temps le plus possible,
sans que ça m'oblige à faire des trucs trop
compliqués !

kiki29

Qqs remarques
1. Lecture du fichier : on stocke le contenu du
fichier texte dans une variable (ou on fait ça
en plusieurs fois selon la taille du fichier).

Normalement tu peux lire séquentiellement un fichier texte
et le traiter ligne par ligne sans le "tronçonner"
et faire du LCase , Replace et autre dans la foulée

C'est vrai je n'ai pas de dispo "le petit chose" en texte pour faire une comparaison

Message édité par kiki29 le 25-09-2007 à 05:21:21

Profil supprimé

Oui, bien sûr, je sais qu'on peut faire ça
ligne par ligne, mais bon, entre faire tourner
une fois le programme avec 2000 lignes ou
2000 fois avec une ligne, je ne sais pas si
ça fait une différence. Surtout que ça me
fait réitérer certaines opérations d'affichage
et ça, c'est très lent...

archangel

Un homme Une vision

J'ai déjà fait des tris en VB/VBA, et j'avais de bien meilleur temps que toi.
Je m'étais aidé de ce site

---------------
J'suis timide - Prêt à mourir, mais pas à vivre - Je suis vraiement très fatigué ... - more than meets the eye

jpcheck

Pioupiou

tiens d'ailleurs, si tu virais les affichages intermédiaires (si inutiles hein), ou que tu freezais l'écran ca accélérerait les étapes non ?

Paul Hood

Bonjour,
Une suggestion qui vaut peut être pas grand chose ... (je connais rien au problème d'optimisation)
Pour le découpage de mots pourquoi ne pas utiliser Split et pour le comptage du nombre d'occurences de chaque mot le même Split avec Ubound.

Ca pourrait faire

TabResA = Split(MonTexte, " " )
Do While UBound(TabResA) > 0
TabResA = Split(MonTexte, " " )
nbocc = UBound(Split(MonTexte, TabResA(0)))

MonTexte = Replace(MonTexte, TabResA(0) & " ", "" )
msg = msg & vbCrLf & TabResA(0) & "=>" & nbocc
Loop
MsgBox msg

kiki29

To thejulienlepage : Ta réponse est tout simplement stupide, la linéarité de ce genre de probleme est un leurre
Si en plus tu n'as pas utilisé Application.ScreenUpdating = False....Application.ScreenUpdating = True, ainsi que Application.EnableEvents

Message édité par kiki29 le 25-09-2007 à 11:48:19

Profil supprimé

Merci bien les gars !
Le Split() va sûrement bien m'aider, et pareil
pour le Application.ScreenUpdating.
Je connaissais pas du tout !

M'enfin kiki29, de là à dire que ma réponse est "stupide",
c'est pas la peine ! Je connais pas, c'est vrai. C'est
pas être stupide !
C'est comme si je te disais "quoi ?! Tu parles pas
le bulgare ? Mais t'es stupide, c'est pourtant simple !"

Donc traite moi d'ignorant tant que tu veux, et honni
j'accepterai. En revanche stupide, évite !

Bon, je vais faire les changements appropriés et je vous
tiens au courant des résultats !

Profil supprimé

Bon, bah j'y pige que pouic, comme on dit.
La fonction Split() refuse mystérieusement
de fonctionner et me donne le message
d'erreur suivant :
"Erreur de compilation :
Nombre d'arguments incorrect ou affectation de propriété incorrecte"

J'ai marqué juste ça :
TAt = Split(T, " " )
TAt() et T étant de type String.
D'ailleurs, même si je marque TAt = Split("Texte bidon", " " ),
ça me fait la même chose.

Mais il y a un autre truc étrange : quand je tape
"Split(", la p'tite infobulle qui donne d'habitude les
arguments à mettre n'apparait pas, alors que le mot
clé "Split" est reconnu puisque quand je ne met pas
la majuscule sur le "S", il me la met.

Bref, faut-il faire quelque chose de spécial pour que
le Split fonctionne sous Excel ?

tegu

Ne pas être sous Excel97

Profil supprimé

Oui, ça ça va. Je suis sous Excel 2007.

tegu

Es-tu sûr que c'est bien la syntaxe du Split qui pose problème ?
Si tu as une autre erreur de syntaxe, cela justifierait l'erreur et l'absence d'info-bulle, même pour le Split.

edit: après test, le split fonctionne parfaitement sous Excel 2007. Le problème est ailleurs.

Message édité par tegu le 25-09-2007 à 13:30:42

Profil supprimé

Non, je n'ai pas d'autre erreur.
Quand je met le Split en commentaire, la
macro s'exécute.
En fait, quand je lance
le programme (qui est constitué de deux
macros), la première tourne, puis au moment
de lancer la seconde, il va directement sur la
ligne du Split et me met le message d'erreur.
Il refuse tout simplement d'entrer dans la macro.
Je ne sais pas si je suis très clair là...

En résumé, quand je lance le programme, il
ne commence même pas à exécuter la macro
et place le curseur sur la ligne du Split en me
mettant le message d'erreur.

tegu

1/ Si tu fais Debogage / Compiler est-ce que l'erreur est la même ?
2/ Fais voir le code concerné, y compris les déclarations des variables, sinon on ne pourra pas t'aider.

edit:
Tu peux aussi faire le test suivant : tu crées une nouvelle feuille Excel, tu actives l'éditeur VBA et, dans la fenêtre de debogage tu tapes
« ? split("bnefuih reuivh ireugb"," " )(1) » ou un truc du genre et tu fais ENTREE pour voir.

Message édité par tegu le 25-09-2007 à 13:49:47

Paul Hood

Ton TAt doit etre de type tableau
Tu peux donc mettre
Dim TAt as variant
Ca devrait fonctionner

en plus comme dirait Ki.. et quelque :hello: tu fais F1 (Aide en ligne)

Message édité par Paul Hood le 25-09-2007 à 14:06:03

Profil supprimé

Bah l'aide elle m'apprend rien de plus.
Et en ce qui concerne le type de TAt () (que j'ai renommé
Test d'ailleurs, mais on s'en fout), que je mette String,
Variant ou même rien du tout, ça ne change rien !

Voici mon code, si ça peut aider :

Code :

Option Explicit
Dim TA(1 To 150000, 1 To 1) As String ' Tableau contenant les différents mots du texte
Dim TB(1 To 150000, 1 To 1) As Double ' Tableau contenant le nombre d'occurences de chaque mot
' Pour un mot M donné, si TA(i) = M alors TB(i) est le
' nombre d'occurences du mot M.
Dim TN As Double ' Nombre total de mots différents
Dim T As String ' Variable stockant l'intégralité du fichier
Dim S As String ' Une ligne du fichier texte
Dim L As String ' Caractères possibles dans un mot
Dim i As Double ' Variable multiusage (pour les boucles)
Dim Max As Integer ' Nombre maximum d'espaces à la suite
Dim O As Double ' Taille du fichier texte ouvert en octets
Dim K As Integer ' Taille du fichier en ko
Dim M As Integer ' Taille du fichier en Mo
Dim Test() As String
'---------------- Fonction principale, appelée par le bouton d'exécution du programme
Sub Split()
'-- On ferme les fichiers ouverts, au cas où.
Close
'-- Initialisation...
Range("O8" ) = "Initialisation...": Range("P8" ) = ""
Range("E4:J150000" ).ClearContents
T = "" ' Contenu du texte
L = "azertyuiopqsdfghjklmwxcvbnäëüïöÿâêûîôéèçùàñãõœæ " ' Caractères possibles dans un mot
TN = 0 ' Nombre de mots différents
'-- On stocke le fichier dans la variable T
Range("O8" ) = "Lecture du fichier...": Range("P8" ) = "En cours..."
Open Range("O5" ) For Input As #1 ' Range("O5" ) contient le chemin d'accès du fichier
O = 0 ' Taille ouverte jusqu'à présent
Do ' Boucle de lecture
Input #1, S ' On lit une ligne...
O = O + Len(S) ' La taille du fichier est mise à jour
T = T & LCase(S) & " " ' On incrémente T
If O / 1024 = Int(O / 1024) Then ' Tous les 1024 octets (pour pas que ça rame trop)
M = Int(O / 1048576) ' On affiche la taille ouverte
K = Int(O / 1024)
If K > 1024 Then ' Si ça fait plus d'1 Mo, on met la taille en Mo...
Range("P8" ) = CStr(M) & "," & CStr(Int(Int((K - M * 1024)) / 1024 * 100)) & " Mo"
Else
Range("P8" ) = CStr(K) & " ko"
End If
End If
If Range("M12" ) = "OUI" Then ' Permet de traiter les gros fichiers par blocs de
If Len(T) > 500000 Then ' 500 ko via une option sur la feuille Excel.
Traite T ' Si les 500 ko sont atteints, on traite T.
T = "" ' ...et on réinitialise sa valeur.
End If
End If
Loop Until EOF(1) ' On boucle.
Close #1 ' On peut maintenant fermet le fichier.
Traite T ' On traite T, qui vaudra tout le texte pour un petit
' fichier, ou la fin d'un gros.
Fin:
Range("O8" ) = "Opérations terminées !": Range("P8" ) = "" ' Le programme est fini !
End Sub
'--------------- Procédure de traitement de la variable T.
Sub Traite(T)
'----------- On sépare tous les mots par un espace.
Range("O8" ) = "Formatage du texte..."
Range("P8" ) = "0 %" ' Permet de connaitre l'état d'avancement
For i = 1 To Len(T)
' On actualise tous les 10.000 caractères, pour pas que ça rame trop.
If i / 10000 = Int(i / 10000) Then Range("P8" ) = CStr(Int(i / Len(T) * 1000)) & " ‰"
' Si le caractère i n'est pas un caractère valide (appartenant à la chaîne L), on
' le remplace par un espace.
If InStr(L, Mid(T, i, 1)) = 0 Then Mid(T, i, 1) = " "
Next i
'------------ On vire les doubles espaces
Range("O8" ) = "Suppression des espaces..."
Range("P8" ) = "En cours..."
' On calcule le nombre maximal d'espaces à la suite
Max = 1
Do
If InStr(T, String(Max + 1, " " )) <> 0 Then Max = Max + 1 Else Exit Do
Loop
' ...et on les remplace par un espace simple.
For i = Max To 2 Step -1
T = Replace(T, String(i, " " ), " " )
Next i
'------------ Le plus gros du boulot : la séparation des mots !
Range("O8" ) = "Séparation des mots..."
Range("P8" ) = ""
' La fonction qui ne marche pas !
Test = Split(T, " " )
End Sub

J'ai pas mis toute la partie que j'avais faite
pour le traitement (que j'espère pouvoir modifier
avec le fameux Split), mais ça n'a pas d'incidence
sur le programme, car j'ai tout mis en commentaires.
À part ça, le code est le même chez moi et bug
toujours sur le Split.

Paul Hood

En ligne 21 tu redéfinis la fonction Split...
Quand tu l'appel en ligne 97...c'est la tienne qu'il tente d'executer...
Je pense qu'en changeant le nom de ta fonction Split ca devrait aller mieux...

Profil supprimé

Argh !!! Qu'est-ce que je suis naze !
J'avais même pas fait gaffe au fait que
ma fonction s'appelait Split !

Merci Paul Hood ! (de la famille de Robin ?)

Paul Hood

pas tout à fait !!
Plus près de Jack Ryan :whistle: que de Robin ...

Message édité par Paul Hood le 25-09-2007 à 14:40:05

Profil supprimé

Bon, bah mauvaise nouvelle : en utilisant la fonction suivante :

Code :

Test = Split(T, " " )
For i = 0 To UBound(Test)
Test = Split(T, " " )
TA(i + 1, 1) = Test(0)
T = " " & T
TB(i + 1, 1) = UBound(Split(T, " " & Test(0) & " " ))
T = Replace(T, " " & Test(0) & " ", " " )
T = Right(T, Len(T) - 1)
Next i

...j'obtiens un temps de calcul nettement plus long
qu'avec mon ancienne méthode...

Paul Hood

Tu n'as pas besoins de la ligne 8 : Right etc...
Test = Split(T, " " )
i=0
Do While UBound(Test) > 0
Test = Split(T, " " )
TA(i,0)=Test(0)
TA(i,1)=UBound(Split(T, Test(0)))
T = Replace(T, Test(0) & " ", "" )
i=i+1
Loop
en fait tu remplaces le mot sélectionné et le blanc suvant par rien, ce qui diminue la string au fur et a mesure.
Dans ton tableau TA à 2 dimensions, la premiere c'est pour stocker le mot et la deuxième c'est pour le nombre d'occurences.

Message édité par Paul Hood le 25-09-2007 à 16:04:49

Profil supprimé

Bah oui, j'avais fait comme ça au début, mais...
0: "alphonse daudet le petit chose table des matières"
1: "daudet le petit chose table des matières"
2: "petit chose tab des matières"
...

Eh oui, c'est un peu embêtant !

Mais j'ai trouvé quelque chose qui fonctionne
pas mal et me baisse le temps d'exécution du
découpage des mots de 114 à 30 secondes en
faisant un mix entre mon ancienne méthode et
la tienne :

Code :

Do
P = InStr(T, " " )
If P = 0 Then
If T <> "" Then
TN = TN + 1
TA(TN, 1) = T
TB(TN, 1) = 1
End If
Exit Do
Else
Mot = Left(T, P - 1)
T = Right(T, Len(T) - P)
TN = TN + 1
TA(TN, 1) = Mot
TB(TN, 1) = UBound(Split(T, " " & Mot & " " )) + 1
T = Replace(T, " " & Mot & " ", " " )
End If
Loop

Message édité par Profil supprimé le 25-09-2007 à 16:27:28

tegu

Si l'optimisation dans le traitement de chaînes VB6 vous intéresse, voici de quoi lire.
http://msdn2.microsoft.com/en-us/l [...] e.10).aspx
http://msdn.microsoft.com/library/ [...] topic1.asp

Publicité

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Trouver un élément dans un tableau, facile pour qui s'y connait !

Sujets relatifs
Stockage dans un tableau - help!	Débutant =) -> différence entre cadre et tableau
excel/vba fonction trouver un mot dans une plage	Définir message d'abence du bureau [vba]
[regexp] Extraire les lignes d'un tableau d'une page html	durée de vie d'un tableau
simplexml object dans un tableau: asXML n'existe plus :s	Tableau croisé et VBA
extraire une valeur d'un tableau en retour de fonction	Ou Trouver javax.speech
Plus de sujets relatifs à : Trouver un élément dans un tableau, facile pour qui s'y connait !

Page générée en 0.152 secondes