Discussion :

[zlavock]

Bonjour,

Je cherche à faire une fonction générique qui en fonction de l'élément passé en paramètre, effectue un certain traitement avec certaine variable.

Je voudrai donc par exemple lire le contenu de la varialble MaVariable1 en passant le 12 en paramètre.

Code :

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

1
2
3
4
5
6
 
Dim MaVariable1 as String
MaVariable1 = "TOTO"
Dim i as Integer
i =1
MsgBox "MaVariable" & i

Je voudrai que ca affiche "TOTO"

[Vesta]

Solu 1:

Code :

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

1
2
3
4
5
6
Dim Variables() as Variant
 
Variables(1) = "TOTO"
Variables(2) = 21
 
Msgbox Variables(1) 'Affichera toto

Solu 2:

Code :

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

1
2
3
4
5
6
 
AfficheVariable("toto") 'Affichera toto
 
Sub AfficheVariable(Variable as variant)
Msgbox Variable 
End Sub

[zlavock]

Mhhh .. je me suis peut être mal expliqué. En fait je veux faire un traitement générique, passé un paramètre, qui composera le nom de ma variable, et je voudrais ensuite manipuler ma variable. Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim lib_Exemple1_toto = "toto"
Dim lib_Exemple1_titi = "titi"
Dim lib_Exemple2_toto = "toto2"
Dim lib_Exemple2_titi = "titi2"
 
public sub traitementGenerique(element as String)
 
   msgBox "lib_" & element & "_toto"
   msgBox "lib_" & element & "_titi"
 
end  sub
 
call traitementGenerique("Exemple1") ==> affiche "toto" puis "titi"
call traitementGenerique("Exemple2") ==> affiche "toto2" puis "titi2"

Je veux manipuler mes variables en passant leur nom en chaine de caractère et non passer par des tableaux.

[Vesta]

J'ai beaucoup cherché sur le net et je ne trouve rien... J'ai essayé en chipottant avec des fonction permettant de donner le type de variable pour voir si il n'y avait pas moyen de connaitre le 'type' d'une variable et faire une boucle qui les affiche toutes par exemple mais je n'y suis pas arrivé une démarche jmfmienne sans doutes lui comprendra lol mais rien a faire... Il aura peu etre une solution mais je n'y arrive pas...

j'ai trouvé ca : CallByName mais ca ne s'applique pas aux variables...

Si tu trouve ca m'interesse comme ca au moins je resterai pas idiot

[jmfmarques]

Attendons donc... attendons... (je connais la réponse depuis plus de 8 ans)...
Z'êtes curieux, hein ? (elle est la plus simple du monde, pourtant)

[ThierryAIM]

Z'êtes curieux, hein ? (elle est la plus simple du monde, pourtant)

Non, tu nous fait juste perdre notre temps

[Catbull]

Il s'agit du principe du dictionnaire. On accède à un élément à l'aide d'un clé et non d'un index. Mais ce principe utilise une 'sorte' de tableau comme une Collection :

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
18
19
20
21
Public CollectionDeVariables As New Collection
 
Public Sub main()
 
    While CollectionDeVariables.Count > 0
        CollectionDeVariables.Remove 1
    Wend
 
    CollectionDeVariables.Add "toto", "lib_Exemple1_toto"
    CollectionDeVariables.Add "titi", "lib_Exemple1_titi"
    CollectionDeVariables.Add "toto2", "lib_Exemple2_toto"
    CollectionDeVariables.Add "titi2", "lib_Exemple2_titi"
 
    traitementGenerique "Exemple1"
    traitementGenerique "Exemple2"
End Sub
 
Public Sub traitementGenerique(element As String)
   MsgBox CollectionDeVariables("lib_" & element & "_toto")
   MsgBox CollectionDeVariables("lib_" & element & "_titi")
End Sub

[zlavock]

ok ok merci.

Je pensais plutôt à quelque genre du genre {"MaVarialble"+i}, un peu comme en windev ou php.... mais ca tombe ce n'est pas aussi facile que ca en VB, et qu'on doit passé par le principe de dictionnaire comme l'a expliqué CatBull

Enfin, bon je vais faire avec ^^

Je laisse le post ouvert au cas ou d'autre connaisse la solution optimale