Selection d'un index dans un tableau avec variables

Version imprimable

Bonjour, bonsoir.

J'ai un problème avec mon code. J'aimerais que le logiciel Récupère et trie des données depuis un fichier. J'ai un fichier files.dat qui est composé comme ceci :

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
'Films':
>'Prochainement.';
 
'Prochainement.':
>'Prochainement.';
 
'Series':
>'Wakfu'
>'Bref';
 
'Serie 2':
>'Saison 1'
>'Saison 2';
 
'Saison 1':
>'Episode 1 - test'
>'Episode 2 - episode de merde'
>'Episode 3 - encore un pourri'
>'Episode 4 - Celui la est bien';
 
'Saison 2':
>'Episode 1 - test'
>'Episode 2 - episode de merde'
>'Episode 3 - encore un pourri'
>'Episode 4 - Celui la est pas mal';
 
'Serie 2':
>'Episode 1 - nul'
>'Episode 2 - aussi nul'
>'Episode 3 - bien'
>'Episode 4 - Très bien !'
>'Episode 5 - Complètement nul.';

J'aimerais que mon logiciel puisse récupérer les données "Saison 1" et "Saison 2" lorsque qu'on lui donne la propriété "Serie 2". J'ai pour cela rédiger quelques lignes :

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
Dim Reader() = File.ReadAllLines("files.dat")
        Dim RegexSelect As New Regex("^'(?<value>.*)':$")
        Dim RegexAdd As New Regex("^>'(?<value>.*)'$")
        Dim RegexAddFinal As New Regex("^>'(?<value>.*)';$")
        Dim LineNumber As Integer = 0
 
        For Each line As String In Reader
 
            Dim TexteSettingsMatch As Match = RegexSelect.Match(line)
 
            If TexteSettingsMatch.Success Then
 
                Dim EndWhile As Boolean = False
                Dim LineNumberForReader As Integer = LineNumber
 
                While EndWhile = False
 
                    Dim TexteSettingsMatch2 As Match = RegexAdd.Match(Reader(LineNumberForReader + 1))
                    Dim TexteSettingsMatch3 As Match = RegexAddFinal.Match(Reader(LineNumberForReader + 1))
 
                    If TexteSettingsMatch2.Success Then
 
                        LB_ListeCentre.Items.Add(TexteSettingsMatch2.Groups("value").Value)
                        LineNumberForReader = LineNumberForReader + 1
 
                    ElseIf TexteSettingsMatch3.Success Then
 
                        LB_ListeCentre.Items.Add(TexteSettingsMatch3.Groups("value").Value)
                        EndWhile = True
 
                    End If
 
                End While
 
            End If
 
            LineNumber = LineNumber + 1
 
        Next

Ce code lis toutes les lignes du fichier et les range dans un tableau. Ensuite je trie le fichier ligne par ligne et si il vois une ligne qui correspond a la regex "RegexSelect", il prend les prochaines lignes. Pour qu'il arete de lire les lignes j'ai fait une regex avec un ; a la fin, que j'ai mis dans mon fichier files.dat. Seulement avec ce code, il m'affiche toutes les lignes de la regex RegexAdd et de la regex RegexAddFinal. Il m'affiche donc :

Code:

1
2
3
4
5
6
7
Prochainement.
Prochainement.
Wakfu
Bref
Saison 1
Saison 2
Etc...

Ou me suis-je trompé ?

Merci d'avance de vos réponses.

11/06/2012, 16h32
Pol63

quelle est la hiérarchie de ton fichier ?
'Serie 2' apparait 2 fois en plus ...
11/06/2012, 16h45
Kalork

En fait j'ai 2 ListBox. Une de gauche qui permet de lister les series et films par catégorie ou par saison etc... L'autre se trouve au centre et celui-ci permet de selectionner un fichier en particulier. Et j'aimerais que lorsque que je choisis un sujet ou une serie etc, une liste de fichiers apparaisse dans le ListBox du milieu. Par exemple quand je clique sur "Wakfu", que "Saison 1" et "Saison 2" apparaisse dans la ListBox du milieu et ce, grace au tri du fichier Files.dat. J'espère que vous m'avez compris.

Et oui je me suis trompé, j'ai un peu modifié le fichier pour le mettre sur le forum mais ce ne sont pas les noms exacts.

je comprends donc qu'il n'y a que 2 niveaux :

tu fais un system.io.file.readalllines sur le fichier
ensuite une boucle sur chaque ligne
Code:

1 2 3 4 5 6 if ligne = "" then continue for if not ligne.startswith(">") then créer une instance de classe, la mettre dans la variable "en cours de lecture" else ajouter l'item dans la collection de l'instance "en cours de lecture" end if
et donc avant le for il faut déclarer une variable "en cours de lecture"
la classe à créer a une propriété titre as string et une propriété Elements as list(of string)

ca ne sert à rien de se compliquer la vie avec un regex pour ca !

11/06/2012, 17h04
Kalork

Oula x) J'ai pas tout compris x)
13/06/2012, 22h02
Kalork
J'ai honte, il suffisait de rajouter un simple :
Code:

1 2 3 If TexteSettingsMatch.Groups("value").Value = LB_ListeGauche.SelectedItem Then End If
Et de mettre dedans mon "LB_ListeCentre.Items.Add(TexteSettingsMatch3.Groups("value").Value)".

Enfin bon, c'est résolu !

PS: Je sais tout ca, c'est juste que la j'étais complètement dépité et fatigué alors que la solution me sautais aux yeux x)