compter occurences uniques

Version imprimable

14/01/2009, 22h51
Cheztoto

compter occurences uniques

Bonjour à tous,

Je suis completement planté et j'ai besoin d'aide car je ne sais pas comment comment faire.
En entrée, j'ai un fichier csv. Pour chaque ligne, j'ai le nom d'une personne; un légume consommé par la personne;la valeur 1 si le légume peut être cultivé en France.

toto;tomate;1
toto;concombre rouge;0
toto;haricot;1
tata;avocat;1
tata;haricot;1
tata;tomate;1

Le but est d'avoir en sortie la liste des personnes pouvant consommer que des produits cultivé en France.

Je me suis dit : Si il y a 3 toto et qu'il n'y a pas 3 fois le nombre 1, c'est que le personne ne pourra pas consommé que des produits francais.
En revance, si j'ai 3 tata et trois fois le nombre 1, c'est qu'elle cosomme que des produits cultivables en France.

Donc, en sortie l'idée est d'avoir le nom des personnes pouvant consommer que des produits du pays.

Par contre je ne sais pas du tout comment m'y prendre ...

Auriez vous une idée SVP ?

@+

voilà comment j'aurais fait, je ne suis pas un spécialiste :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'ouverture des fichiers
Const ForReading = 1
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
FichierSource = "c:\Source.txt" 'c'est un exemple
fichierLog = "Parser.log"
Set objTextFile = objFSO.OpenTextFile(Fichiersource, ForReading)
Set objLogFile = objFSO.OpenTextFile (fichierLog, ForAppending, True)
 
'suppression des doublons
Set objDictionary = CreateObject("Scripting.Dictionary")
Do Until objTextFile.AtEndOfStream 
    strNextLine = objTextFile.Readline
    objDictionary.Add strNextLine, strNextLine
Loop
 
'stockage des utilisateurs
Set userDictionary = CreateObject("Scripting.Dictionary")
For Each strkey in objDictionary.keys
ArrList = Split(objDictionary.item(strkey),";")
userDictionary.Add ArrList(0),1 'on dira que 1 = consomme..., 0 = consomme pas... et que par défaut il sont à 1
Next
 
'et maintenant on check s'il consomme uniquement du 1
For Each strkey in objDictionary.keys
ArrList = Split(objDictionary.item(strkey),";")
if ArrList(2) = 0 Then
userDictionary.Remove strkey
userDictionary.Add ArrList(0),0
End If
Next
 
'on n'a plus qu'à lire l'info
for each strKey in userDictionary
if userDictionary.Item(strkey) = 1 Then
objLogFile.WriteLine strKey
End If
Next
 
'et on ferme les fichiers
objTextFile.Close
objLogFile.Close

enjoy^^

15/01/2009, 11h46
Cheztoto

Génial !!!! J'ai bien pensé au dictionnaire mais je ne savais pas comment l'exploiter.

j'ai un message d'erreur "Cette clé est deja associée à un élément de cette collection".
Faut je cherche....

Encore merci
15/01/2009, 15h54
spantemonium

Citation:

Envoyé par Cheztoto

Génial !!!! J'ai bien pensé au dictionnaire mais je ne savais pas comment l'exploiter.

j'ai un message d'erreur "Cette clé est deja associée à un élément de cette collection".
Faut je cherche....

Encore merci

pose ton code et la ligne de l'erreur si tu veux un coup de main :)

en fait je crois que c'est là que j'ai merdé ^^

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'ouverture des fichiers
Const ForReading = 1
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
FichierSource = "c:\Source.txt" 'c'est un exemple
fichierLog = "Parser.log"
Set objTextFile = objFSO.OpenTextFile(Fichiersource, ForReading)
Set objLogFile = objFSO.OpenTextFile (fichierLog, ForAppending, True)

'suppression des doublons
Set objDictionary = CreateObject("Scripting.Dictionary")
Do Until objTextFile.AtEndOfStream 
    strNextLine = objTextFile.Readline
    objDictionary.Add strNextLine, strNextLine
Loop

'stockage des utilisateurs
Set userDictionary = CreateObject("Scripting.Dictionary")
For Each strkey in objDictionary.keys
ArrList = Split(objDictionary.item(strkey),";")
userDictionary.Add ArrList(0),1 'on dira que 1 = consomme..., 0 = consomme pas... et que par défaut il sont à 1
Next

'et maintenant on check s'il consomme uniquement du 1
For Each strkey in objDictionary.keys
ArrList = Split(objDictionary.item(strkey),";")
if ArrList(2) = 0 Then
userDictionary.Remove ArrList(0)
userDictionary.Add ArrList(0),0
End If
Next

'on n'a plus qu'à lire l'info
for each strKey in userDictionary
if userDictionary.Item(strkey) = 1 Then
objLogFile.WriteLine strKey
End If
Next

'et on ferme les fichiers
objTextFile.Close
objLogFile.Close

enjoy^^

16/01/2009, 10h07
ced600

Citation:

Génial !!!! J'ai bien pensé au dictionnaire mais je ne savais pas comment l'exploiter.

j'ai un message d'erreur "Cette clé est deja associée à un élément de cette collection".
Faut je cherche....

Pour un dictionnaire, si l'on a une entrée qui un couple (Clé1, Valeur 1), on ne peut pas avoir une deuxième entrée avec Clé1. Il faudra forcément utiliser une autre clé.
16/01/2009, 16h08
RadPAT

Citation:

Envoyé par ced600

Pour un dictionnaire, si l'on a une entrée qui un couple (Clé1, Valeur 1), on ne peut pas avoir une deuxième entrée avec Clé1. Il faudra forcément utiliser une autre clé.

ou si c'est possible de mettre en valeur 1 "tomate;1" puis après de faire un split sur ";".

A++
16/01/2009, 18h03
ced600

Citation:

Envoyé par RadPAT

ou si c'est possible de mettre en valeur 1 "tomate;1" puis après de faire un split sur ";".

A++

On peut aussi mettre toutes les chaines de caractères dans la valeur séparé par des séparateur, et mettre en un index en clé.
Mais alors attention de voir si un tableau de chaine de caractères ne serait pas plus simple. Tout dépend de l'index, si on l'incrémente de 1 en 1 ou non.