Contenu STRING pour adresser variable

Version imprimable

Bonjour, débutant en .net je suis en train de développer une petite appli perso.

J'ai donc une Structure qui contient différents tableaux (appelés A(), E(), EA(), SA(), etc...) qui sont composés d'éléments issus d'une autre structure (avec des champs Champ1 as string, champ2 as boolean, etc...).

J'ai une variable Var qui est du type de ma structure de tableaux et dans une partie de mon code, j'extrais des données d'un fichier qui en fonction d'une première valeur du genre "A50", "E100" me permet d'aller ranger les données suivantes dans Var.A(50).champ1, Var.A(50).champ2 ou Var.E(100).champ1, Var.E(100).champ2.

Pour ce faire, je décompose le "A50" en "A" (rangé dans maSTRING) et 50 (rangé dans i), puis j'ai un select case sur maSTRING avec des cases "A", "E", etc... et dans chaque case, j'ai:
Var.A(i).champ1=truc (lu dans le fichier)
Var.A(i).champ2=bidule (lu dans le fichier)
ou
Var.E(i).champ1=truc (lu dans le fichier)
Var.E(i).champ2=bidule (lu dans le fichier)

Ca marche bien, mais ce n'est pas trés élégant et du coup je me dis qu'on doit pouvoir faire mieux, beaucoup mieux.

Existe-t-il une manière de se passer du SELECT CASE et d'écrire juste:
var.[quelque chose qui regarde le contenu de maSTRING](I).champ1=truc
var.[quelque chose qui regarde le contenu de maSTRING](I).champ2=bidule
Mais ceci une seule fois.

En plus dans le reste de mon appli, il va falloir que je retourne lire le contenu des champ1 et champ2 en fonction du "A50" ou "E100", si à chaque fois il faut que je me retape un select case, pas glop.

C'est peut-être aussi ma manière de déclarer mes 2 structures (celle des tableaux et celle des champs) qui n'est pas terrible?

Merci à vous si quelqu'un peut me donner un petit coup de main.

ci-joint le "super code" en cause

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
' Déclaration des types
Public Structure TypeVariable
    Friend Mnemo As String
    Friend Libelle As String
    Friend Activee As Boolean
    Friend Utilisee As Boolean
    Friend Activation As ArrayList
    Friend Reset As ArrayList
End Structure
 
Public Structure MapingVariables
    Friend E() As TypeVariable
    Friend A() As TypeVariable
    Friend B() As TypeVariable
    Friend R() As TypeVariable
    Friend M() As TypeVariable
    Friend V() As TypeVariable
    Friend EA() As TypeVariable
    Friend SA() As TypeVariable
    Friend EN() As TypeVariable
    Friend SN() As TypeVariable
    Friend T() As TypeVariable
    Friend C() As TypeVariable
    Friend P() As TypeVariable
    Public Sub Initalise()
        ' Redimensionnement de la structure Var
        ReDim E(0 To 3000)
        ReDim A(0 To 3000)
        ReDim B(0 To 1023)
        ReDim R(0 To 1023)
        ReDim M(0 To 13823)
        ReDim EA(0 To 3000)
        ReDim SA(0 To 3000)
        ReDim EN(0 To 3000)
        ReDim SN(0 To 3000)
        ReDim V(0 To 1000)
        ReDim T(0 To 100)
        ReDim C(0 To 100)
        ReDim P(0 To 100)
        End Structure
 
Public Class EcranPrincipal
 
    ' Déclaration des variables
 
    Dim Var As MapingVariables
 
    Private Sub ExtractionVariables(ByVal NomFichier As String)
 
        ' Extrait les données de NomFichier et les classes dans les tableaux associés
 
        Dim MonStreamReader As New StreamReader(NomFichier)
        Dim TypeDonnee As String
        Dim AdresseDonnee As Integer
 
        ' Redimensionnement de la structure Var
        Var.Initalise()
 
        ' Parcourir le fichier MNEMO.SAV jusqu'à la fin par série de 3 lignes
        ' - Adresse
        ' - Mnémonique
        ' - Libellé
        Do While MonStreamReader.Peek() >= 0
            ' Lecture de la ligne qui contient l'adresse
            TypeDonnee = MonStreamReader.ReadLine
 
            ' Recherche si le type de variable et sur 1 ou 2 caractères
            If Mid(TypeDonnee, 2, 1) Like "#" Then
                AdresseDonnee = CInt(Microsoft.VisualBasic.Right(TypeDonnee, Len(TypeDonnee) - 1))
                TypeDonnee = Microsoft.VisualBasic.Left(TypeDonnee, 1)
            Else
                AdresseDonnee = CInt(Microsoft.VisualBasic.Right(TypeDonnee, Len(TypeDonnee) - 2))
                TypeDonnee = Microsoft.VisualBasic.Left(TypeDonnee, 2)
            End If
 
            ' Classement des mnémo et libellé dans les index des types
            Select Case TypeDonnee
                Case "E"
                    ' Sauvegarde du mnémonique
                    Var.E(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    Var.E(AdresseDonnee).Libelle = MonStreamReader.ReadLine
                Case "A"
                    ' Sauvegarde du mnémonique
                    Var.A(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    Var.A(AdresseDonnee).Libelle = MonStreamReader.ReadLine
                Case "B"
                    ' Sauvegarde du mnémonique
                    Var.B(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    Var.B(AdresseDonnee).Libelle = MonStreamReader.ReadLine
                Case "R"
                    ' Sauvegarde du mnémonique
                    Var.R(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    Var.R(AdresseDonnee).Libelle = MonStreamReader.ReadLine
                Case "M"
                    ' Sauvegarde du mnémonique
                    Var.M(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    Var.M(AdresseDonnee).Libelle = MonStreamReader.ReadLine
                Case "V"
                    ' Sauvegarde du mnémonique
                    Var.V(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    Var.V(AdresseDonnee).Libelle = MonStreamReader.ReadLine
                Case "EA"
                    ' Sauvegarde du mnémonique
                    Var.EA(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    Var.EA(AdresseDonnee).Libelle = MonStreamReader.ReadLine
                Case "SA"
                    ' Sauvegarde du mnémonique
                    Var.SA(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    Var.SA(AdresseDonnee).Libelle = MonStreamReader.ReadLine
                Case "EN"
                    ' Sauvegarde du mnémonique
                    Var.EN(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    Var.EN(AdresseDonnee).Libelle = MonStreamReader.ReadLine
                Case "SN"
                    ' Sauvegarde du mnémonique
                    Var.SN(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    Var.SN(AdresseDonnee).Libelle = MonStreamReader.ReadLine
                Case "T"
                    ' Sauvegarde du mnémonique
                    Var.T(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    Var.T(AdresseDonnee).Libelle = MonStreamReader.ReadLine
                Case "C"
                    ' Sauvegarde du mnémonique
                    Var.C(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    Var.C(AdresseDonnee).Libelle = MonStreamReader.ReadLine
                Case "P"
                    ' Sauvegarde du mnémonique
                    Var.P(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    Var.P(AdresseDonnee).Libelle = MonStreamReader.ReadLine
            End Select
        Loop
        MonStreamReader.Close()
        MonStreamReader = Nothing
 
    End Sub

Ce que tu veux faire (accéder à une variable en fonction de son nom) s'appelle la réflexion (Reflection en anglais). Tu peux chercher dans cette voie, mais si tu es débutant ça va peut-être te sembler un peu compliqué...

Sinon, la méthode que tu as utilisé est correcte, mais il y a moyen de "factoriser" une partie du code de la façon suivante:

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
 
...
 
Dim tab() As TypeVariable
Select Case TypeDonnee
                Case "E"
                    tab = Var.E
                Case "A"
                    tab = Var.A
                Case "B"
                    tab = Var.B
                Case "R"
                    tab = Var.R
                Case "M"
                    tab = Var.M
                Case "V"
                    tab = Var.V
                Case "EA"
                    tab = Var.EA
                Case "SA"
                    tab = Var.SA
                Case "EN"
                    tab = Var.EN
                Case "SN"
                    tab = Var.SN
                Case "T"
                    tab = Var.T
                Case "C"
                    tab = Var.C
                Case "P"
                    tab = Var.P
            End Select
             If tab IsNot Nothing Then
                    ' Sauvegarde du mnémonique
                    tab(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
                    ' Sauvegarde du libellé
                    tab(AdresseDonnee).Libelle = MonStreamReader.ReadLine
             End If
 
...

Ou encore, tu peux utiliser un Dictionary :

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
Public Structure MapingVariables
    Friend tabs As Dictionary(Of String, TypeVariable())
 
    Public Sub Initalise()
        tabs = new Dictionary(Of String, TypeVariable())
        tabs.Add("E", New TypeVariable(3001))
        tabs.Add("A", New TypeVariable(3001))
        tabs.Add("B", New TypeVariable(1024))
        tabs.Add("R", New TypeVariable(1024))
        tabs.Add("M", New TypeVariable(13824))
        tabs.Add("EA", New TypeVariable(3001))
        tabs.Add("SA", New TypeVariable(3001))
        tabs.Add("EN", New TypeVariable(3001))
        tabs.Add("SN", New TypeVariable(3001))
        tabs.Add("V", New TypeVariable(1001))
        tabs.Add("T", New TypeVariable(101))
        tabs.Add("C", New TypeVariable(101))
        tabs.Add("P", New TypeVariable(101))
        End Sub
    End Structure
 
 
...
Dim tab() As TypeVariable
If tab.ContainsKey(TypeDonnee) Then
    tab = Var.tabs(TypeDonnee)
    ' Sauvegarde du mnémonique
    tab(AdresseDonnee).Mnemo = MonStreamReader.ReadLine
    ' Sauvegarde du libellé
    tab(AdresseDonnee).Libelle = MonStreamReader.ReadLine
End If

12/08/2008, 01h28
sibama

Merci pour ta réponse TOMLEV, et pour le temps que tu as bien voulu consacrer à un débutant (pas pus te répondre plus tôt, et je n'aurais le temps de rebosser dessus que demain soir) .
Je vais essayer de regarder cette histoire de "reflection", in english in the text.
Si ça dépasse mes compétences, je me rabas sur une de tes 2 solutions (je rage :evilred: car ta solution "factorisée" me semble vachement plus élégante que mon gros code lourd mais pas forcement inaccessible avec mes connaissances, par contre y a un truc que je comprends pas bien sur comment tab se retrouve dans Var à la fin, mais j'essayerai demain, euh non ce soir).

Ce n'est pas parce que l'on allume la bougie de quelqu'un avec sa lanterne que l'on se prive de lumière.
12/08/2008, 02h37
tomlev

Citation:

Envoyé par sibama

y a un truc que je comprends pas bien sur comment tab se retrouve dans Var à la fin

Ben ta structure MapingVariables contient des champs de type "tableau de TypeVariable". Je déclare une variable du même type, et je la fais "pointer" sur un de ces tableaux. Ensuite, j'accède au tableau via la variable. Ca pointe bien sur le même objet en mémoire car les tableaux sont des types référence, et non des types valeur. Ce qui fait que quand je fais tab = Var.A, je ne fais pas une copie de Var.A, mais je crée simplement une nouvelle référence vers le même tableau.
Si ça te parait encore flou, jette un oeil sur le cours VB.NET
12/08/2008, 14h33
sibama

Ok, c'est la différence du langage "objet" par rapport aux langages "classiques" (non de d'là, que mon stage de .NET est parti loin).

Merci pour les infos.

Ce n'est pas parce que l'on allume la bougie de quelqu'un avec sa lanterne que l'on se prive de lumière.
13/08/2008, 19h14
sibama

Bon, après avoir regardé la méthode "reflection", on va rester dans le classique et utiliser la méthode dictionary qui reste plus facilement compréhensible. Par contre j'ai encore un petit souci.
Lorsque je déclare le "tabs.add("_", new typevariable(____))" j'ai un joli message "Le type typevariable n'a aucun constructeur".

Je suppose donc qu'il faut que je déclare un constructeur New dans typevariable, ce que je fais. Je me retrouve alors un message dans le nouveau New qui me dit que New ne peut être utilisé sans paramètre que si la variable est "partagée".
N'écoutant que mon courage, je rajoute alors un "shared", puisque cela semble être la solution. Il me semble qu'il y a alors un message qui parle que les structures ne peuvent pas être shared...
La galèèèèèèèèèèèèèèèère.....
Est-ce bien le contructeur New qu'il faut que je déclare dans typevariable?

Ce n'est pas parce que l'on allume la bougie de quelqu'un avec sa lanterne que l'on se prive de lumière.
14/08/2008, 00h47
tomlev

En fait j'ai écrit une connerie... je code plutôt en C# d'habitude, et je connais pas bien la syntaxe VB.NET. Ce que je voulais faire, c'était créer un tableau de N TypeVariable, mais en fait tel que je l'ai écrit c'est comme si j'appelais le constructeur en passant N en paramètre...
Je sais plus trop comment on crée un tableau de N éléments en VB.NET, peut-être quelque chose comme ça :

Code:

New TypeVariable(N) {}

Sinon tu peux le déclarer avec Dim, mais ça fait plus de lignes à écrire...
Ah oui, et aussi j'avais oublié qu'en VB on indique la borne supérieure et non le nombre d'éléments (ce que je trouve un peu idiot d'ailleurs...), c'est pour ça que j'avais ajouté 1 à toutes les dimensions dans le code que j'ai posté...

Bref, tu n'as pas besoin de déclarer un constructeur, il faut juste corriger pour créer des tableaux de N éléments et les ajouter dans le Dictionary
15/08/2008, 23h58
sibama

Ok, merci Tomlev, ça marche nickel, je crois même avoir compris pourquoi, ce qui n'est pas mal.

Juste une petite erreur dans le code que tu m'as donné, au lieu de

Code:

If tab.ContainsKey(TypeDonnee) Then

il faut mettre

Code:

If Var.ContainsKey(TypeDonnee) Then

Je me permet cette petite remarque non pas pour "critiquer" ton code, mais pour que si un jour quelqu'un qui en connait encore moins que moi se penche sur cette discussion, il n'ait pas de problème.

Encore merci, je trouve sympa que certains donne de leur temps pour faire avancer le commun des mortels.

Maintenant, je vais m'attaquer au remplissage d'un DATAGRID avec Var (je me demande si ça ne sent pas déjà un nouveau sujet sous peu) et aux filtres sur ce Datagrid une fois rempli.

Je passe le sujet en "résolu", je laisse la super note parce que je suis super content du résultat (je ne remets pas tous le code, mais je pense avoir pas mal optimisé le tout) et je recopie ma citation en bas (même si je me demande s'il n'y a pas plus simple que copié/collé pour la faire apparaitre).

Ce n'est pas parce que l'on allume la bougie de quelqu'un avec sa lanterne que l'on se prive de lumière.
18/08/2008, 01h03
tomlev

ah oui tiens, petite faute d'étourderie...
mais il me semble que le code correct serait plutot :

Code:

If Var.tabs.ContainsKey(TypeDonnee) Then

Citation:

Envoyé par sibama

Ce n'est pas parce que l'on allume la bougie de quelqu'un avec sa lanterne que l'on se prive de lumière.

jolie citation ;)
si tu veux ajouter ça à la fin de tous tes messages, tu peux le mettre comme signature (en cliquant sur "Modifier votre signature" dans ton tableau de bord)