Indexer par groupe

Version imprimable

07/06/2012, 16h50
Johngtrs

Indexer par groupe

Bonjour à tous,

Je fais appel à votre talent pour VB, pour quelque chose qui me semble assez difficile à réaliser. J'explique :

J'ai 2 fichiers :

- Fichier 1 : contient le nom de groupe de musique (3000+ lignes) classé par ordre alphabétique.

- Fichier 2 : contient des chemins d'emplacements sur mon ordinateur, menant à des tablatures de groupe. Pour faciliter la tâche, j'ai extrais le nom des groupes de ces emplacements. Du coup dans ce fichier là, le nom des groupes ne sont pas classés par ordre alphabétique et son répété plusieurs fois. Mais c'est pas grave ! Au contraire c'est justement ça que je veux.

Donc maintenant je vous explique ce que j'aimerais avoir, le but final est de copier ce fichier dans ma base de données :

J'aimerais que l'on parcourt chaque ligne du Fichier 1. Lorsque l'on tombe sur une ligne du Fichier 1 (on va avoir un nom de groupe), il faudrait comparer ce groupe là, avec le groupe du Fichier 2 et à ce moment là, indexer ce groupe dans un autre fichier créé par le script, en n'écrivant que le nombre et rien d'autre.

Donc il faudrait garder en mémoire le nom du groupe du Fichier 1 et regarder si dans le Fichier 2, en le parcourant entièrement, il existe. Tant que l'on est sur le même groupe on ne change pas d'index.

Exemple :

Fichier1.......................txtFichier2....................txtfichierIndex

groupeA........................groupeB................................2
groupeB........................groupeB................................2
groupeC........................groupeB................................2
groupeD........................groupeC................................3
groupeE........................groupeE.................................5
...................................groupeA.................................1
...................................groupeD.................................4
...................................groupeD.................................4
...................................groupeB.................................2
...................................groupeB.................................2

Voilà 8O

Si quelqu'un arriverait a faire cela, je lui tire mon chapeau !

Merci d'avance.

John.
07/06/2012, 17h01
hackoofr

:salut:
peut-être en utilisant un dictionnaire
07/06/2012, 17h10
Johngtrs

Effectivement ! Mais pourrais-tu m'aider un peu à construire le code s'il te plait ? :aie:
07/06/2012, 17h21
hackoofr

Inspire-toi de cette discussion : Comparer 2 fichiers texte et récupérer la différence
je crois qu'elle va te donner plus d'idées ;)
07/06/2012, 17h28
Johngtrs

Ben en fait j'étais parti sur une logique du genre :

On regarde la première ligne du fichier, puis on regarde ensuite le 2eme (en le parcourant entièrement), si il a le même groupe on marque 1 dans un fichier, on continue à parcourir le deuxième, si on tombe encore sur le même on écrit 1, à la fin du fichier, on passe à la deuxième ligne du fichier 1, à ce moment on incrémente une variable k et on fait la même chose.
07/06/2012, 18h12
Johngtrs

Je viens de regarder la discussion que tu m'as envoyé et... J'ai rien compris :aie:

J'ai jamais touché à du VBS donc je suis extrêmement perdu dans ce langage. Il n'y a pas de commentaire dans le code que tu as fournis dans la discussion :(

J'ai fais un algo, possible de le traduire en VBS s'il vous plait ?

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
k : entier <- 1
ligne1, ligne 2 : chaine
fic1 : chaine <- "lechemindudossier"
fic2 : chaine <- "lechemindudossier"
fic3 : chaine <- "lechemindudossier"
 
Debut
        ouvrir(fic2, Lecture)
        ouvrir(fic3, Ecriture)
        lire(fic2, ligne2)
        tant que non fin(fic2)
               ouvrir(fic1, Lecture)
               lire(fic1, ligne1)
               k <-- 1
               tantque non fin(fic1) et ligne2 <> ligne1
                       k <-- k + 1
                       lire(fic1, ligne1)
               fintantque
               si ligne2 = ligne1 alors
                       ecrire(fic3, k)
               finsi
               fermer (fic1)
               lire(fic2, ligne2)
        fintantque
        fermer (fic2)
        fermer (fic3)
fin

J'ai enfin réussi, voici comment j'ai procédé :

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
dim objFSO, objFile, objFiles, objFiless, Texte, Textes
 
Const ForReading = 1
Const ForWriting = 2
 
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFiles = objFSO.OpenTextFile("C:\Scripts\fic2.txt", ForReading)
Set objFiless = objFSO.OpenTextFile("C:\Scripts\fic3.txt", ForWriting)
 
Textes = objFiles.ReadLine
 
While Not objFiles.AtEndOfStream
	Set objFile = objFSO.OpenTextFile("C:\Scripts\fic1.txt", ForReading)
	Texte = objFile.ReadLine
	k = 1
	While Not objFile.AtEndOfStream And Texte <> Textes
		k = k + 1
		Texte = objFile.ReadLine
	Wend
	If Texte = Textes Then
		objFiless.WriteLine k
	End If
	objFile.Close
	Textes = objFiles.ReadLine
Wend
objFiles.Close
objFiless.Close