Discussion :

[ConteZero]

Bonjour,

je me heurte encore aujourd'hui a un leger probleme dans la manipulation de mes variables, et je suis sur que vous devriez pouvoir m'aiguiller .
Voici mon probleme : j'aimerai pouvoir utiliser une valeur String contenu dans un tableau, comme etant le nom d'un tableau dans la fonction Ubound. Ex:

Soit 4 tableaux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim T1(,) As String
Dim T2(,) As String
Dim T3(,) As String
Dim T4(,) As String = {{"T1","1"}, _
{"T2","2"}, _
{"T3","3"}}

Voici ce qui ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 0 to Ubound(T4(i,0))
... ...
Next

Forcement, j'aimerai que VB interprete le code comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 0 to Ubound(T1)
... ...
Next

Connaissez vous donc une methode simple pour y parvenir?

Vous remerciant par avance du temps que vous pourrez m'accorder.

Cz

[Pol63]

oui, mais vu le code il y a surement encore mieux, m'enfin il faudrait savoir ce que tu fais avec tes tableaux
car il y a beaucoup mieux que les tableaux de nos jours !

m'enfin pour retrouver tes tableaux par leur nom :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
dim tbls as new dictionary(of string, string(,))
Dim T1(,) As String
Dim T2(,) As String
Dim T3(,) As String
tbls.add("T1",T1)
tbls.add("T2",T2)
tbls.add("T3",T3)
 
For i = 0 to Ubound(tbls("T1"))
... ...
Next

tbls("T1") va retourner l'instance T1

[ConteZero]

Hello,

nickel, merci Pol!

En fait j'utilise des tableaux pour stocker des noms d'éléments, ainsi que des informations associées (Ex : nom de fichier, chemin du fichier, etc...). N'ayant pas de base en programmation, mon raisonnement n'est pas souvent en adéquation avec le fonctionnement réelle du logiciel... du coup j'avance à taton, mais pour ce que j'en fais, çà va parfaitement .

Du coup je viens de penser que je pourrais utiliser une autre dimension dans le T4 afin d'y insérer les T1, T2 et T3, mais bon je viens de modifier mon code pour ta solution, donc encore merci

Tchao Tchao.

Cz

[Pol63]

dans ce cas je peux te conseiller les bases de la POO dont voici du code en vrac

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
public class infoFichier
  public nomfichier as string
  public cheminfichier as string
end class
 
 
 
dim i as new infoFichier
i.nomfichier = ""
i.cheminfichier = ""
 
dim l  as new list(of infoFichier)
l.Add(i)
 
for each inf as infoFichier in l
  inf.nomfichier
next

[ConteZero]

Merci pour ces infos!