Conversion d'argument d'une fonction en hashtable

Version imprimable

Bonjour à tous,
Je cherche à convertir les paramètres d'une fonction pour les convertir en un hastable contenant le nom de la variable en key et sa valeur en value.
J'ai trouvé comment récupérer le nom des paramètres avec la class parameterinfo, mais je n'ai pas de trouver une méthode pour récupérer la valeur de cette variable.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Function test(ByVal param1 As String, ByVal param2 As String) As Hashtable Dim hash As Hashtable = New Hashtable Dim stFrame As New StackFrame Dim currentMethod As System.Reflection.MethodBase = stFrame.GetMethod() Dim currentParameters() As System.Reflection.ParameterInfo = currentMethod.GetParameters() For Each param As System.Reflection.ParameterInfo In currentParameters hash.Add(param.Name, "valeur of param ?") 'Comment spécifier la valeur résultante ?) Next Return hash End Function Sub Main() Dim myhash As Hashtable = New Hashtable myhash = test("value1", "value2") End sub
Je souhaiterais donc avoir dans myhash
key / value
param1 / value1
param2 / value2

Cela semble pourtant être tout bête...
Ce qu'il me manque, ce serait comme pour faire en powershell un get-variable:
Code:

1 2 3 4 5 6 7 8 $var1="value1" $var2="value2" $nomvar="var1" Get-Variable $nomvar Name Value ---- ----- var1 value1
Merci

22/07/2010, 12h02
supersnail

Bonjour,

Essaie peut-être

Code:

hash.Add(param.Name, param.DefaultValue)

, ce qui récupérera les valeurs par défaut des paramètres

Sinon,je ne pense pas que tu puisses faire ce que tu veux, car il faudrait pouboir arrêter le programme à l'intérieur de la fonction,pour examiner les paramètres passés par l'utilisateur...

merci pour ta réponse.
malheureusement, ce n'est pas la valeur par défaut que je veux récupérer, mais la valeur actuelle.
En fait, je voudrais l'équivalent à cela:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Function test(ByVal param1 As String, ByVal param2 As String) As Hashtable
        Dim hash As Hashtable = New Hashtable
        Dim stFrame As New StackFrame
        Dim currentMethod As System.Reflection.MethodBase = stFrame.GetMethod()
        Dim currentParameters() As System.Reflection.ParameterInfo = currentMethod.GetParameters()
        hash.Add(currentParameters(0).Name, param1)
        hash.Add(currentParameters(1).Name, param2)
        'hash.Add(param.Name, param1)
        'For Each param As System.Reflection.ParameterInfo In currentParameters
        '    hash.Add(param.Name, "valeur of param ?") 'Comment spécifier la valeur résultante ?)
        'Next
        Return hash
    End Function

mais faire une fonction plus générique sans spécifier param1 et param2 dans "hash.Add(currentParameters(0).Name, param1)". Avec polymorphisme de la fonction, cela éviterait de toucher le code pour chaque fonction.

22/07/2010, 14h32
Bluedeep

Déjà pourquoi utiliser une Hashtable ? (à moins que tu sois en framework 1.1 mais j'en doute fortement) plutôt qi'une List ou Collection ?
22/07/2010, 15h51
gremlinsy

une list ou une collection, pourquoi pas. J'ai choisi une hashtable car cela me permettait d'avoir une paire cle/valeur.
Mais mon problème resterait cependant le même.
22/07/2010, 17h04
Bluedeep

De toute manière, ton problème n'est pas soluble avec cette voie : en effet, la seule chose que tu peux obtenir c'est des informations sur les méthodes, pas sur leur exécution dans une instance donnée.

Vois plutôt du coté de l'injection de code, ou de l'AOP; éventuellement en utilisant un tisseur Aspect du type PostSharp. (ou autre, mais PostSharp est gratuit).
22/07/2010, 18h07
gremlinsy
ok
il n'existe pas une methode pour résoudre ça ?
Code:

1 2 Dim str1 = "valeur1" Dim res As String = Fonction("str1")
En fait je souhaiterais avoir comme valeur dans res: valeur1
22/07/2010, 18h09
Bluedeep
Citation:
Envoyé par gremlinsy

ok
il n'existe pas une methode pour résoudre ça ?

Code:

1 2 Dim str1 = "valeur1" Dim res As String = Fonction("str1")

En fait je souhaiterais avoir comme valeur dans res: valeur1
Tu peux peut être le faire en l'appelant depuis la fonction même, et en examinant la stack avec les objects StackTrace et StackFrame.

Mais je ne comprends pas du tout l'objectif fonctionnel ici.

oui, c'est bien ce que j'ai essayé. Je récupère bien le nom des différents paramètres de la fonction. Si c'est un paramètre optionnel, je peux récupérer la valeur par défaut de ce paramètre si spécifié avec defaultvalue comme le spécifier supersnail. Mais malheureusement pas la valeur courante de celui ci.

Le but est de créer une function "générique" qui puisse être copier en modifiant seulement sa signature.Ces fonctions appellent ensuite une fonction qui lance un runspace pour lancer des cmdlet Powershell(ça, c'est ok). Toutes ces fonctions ont donc la même structure du code.

Par ex, ci dessous, je copie la 1ere function1, je la renomme et/ou je change juste le nombre des param (le nom du parametre correspond au paramètre passé dans la cmdlet powershell plus tard).Je ne modifie pas du tout le code des functions.

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
Module Module1
    Function function1(ByVal param1 As String, ByVal param2 As String) As Boolean
        Dim hash As Hashtable = New Hashtable
        Dim stFrame As New StackFrame
        Dim currentMethod As System.Reflection.MethodBase = stFrame.GetMethod()
        Dim currentParameters() As System.Reflection.ParameterInfo = currentMethod.GetParameters()
        For Each param As System.Reflection.ParameterInfo In currentParameters
            hash.Add(param.Name, "valeur of param ?") 'Comment spécifier la valeur résultante ?)
        Next
        display(currentMethod.Name, hash)
        Return True
    End Function
 
    Function function1(ByVal param1 As String, ByVal param2 As String, ByVal param3 As String) As Boolean
        Dim hash As Hashtable = New Hashtable
        Dim stFrame As New StackFrame
        Dim currentMethod As System.Reflection.MethodBase = stFrame.GetMethod()
        Dim currentParameters() As System.Reflection.ParameterInfo = currentMethod.GetParameters()
        For Each param As System.Reflection.ParameterInfo In currentParameters
            hash.Add(param.Name, "valeur of param ?") 'Comment spécifier la valeur résultante ?)
        Next
        display(currentMethod.Name, hash)
        Return True
    End Function
 
    Function function2(ByVal param1 As String, ByVal param2 As String) As Boolean
        Dim hash As Hashtable = New Hashtable
        Dim stFrame As New StackFrame
        Dim currentMethod As System.Reflection.MethodBase = stFrame.GetMethod()
        Dim currentParameters() As System.Reflection.ParameterInfo = currentMethod.GetParameters()
        For Each param As System.Reflection.ParameterInfo In currentParameters
            hash.Add(param.Name, "valeur of param ?") 'Comment spécifier la valeur résultante ?)
        Next
        display(currentMethod.Name, hash)
        Return True
    End Function
 
    Sub display(ByVal nomfunction As String, ByVal hashtable As Hashtable)
        Console.WriteLine(String.Format("Nom de la fonction:" & nomfunction))
        For Each AttributeName As String In hashtable.Keys
            Console.WriteLine(String.Format("     Nom du param:{0} , valeur:{1}", AttributeName, hashtable(AttributeName)))
        Next
    End Sub
 
    Sub Main()
        Dim res As Boolean
        res = function1("Param1WithFn1", "Param2WithFn1")
        res = function1("Param1WithFn1", "Param2WithFn1", "Param3WithFn1")
        res = function2("Param1WithFn2", "Param2WithFn2")
 
    End Sub
 
End Module

Résultat:

Code:

1
2
3
4
5
6
7
8
9
10
Nom de la fonction:function1
     Nom du param:param1 , valeur:valeur of param ?
     Nom du param:param2 , valeur:valeur of param ?
Nom de la fonction:function1
     Nom du param:param1 , valeur:valeur of param ?
     Nom du param:param3 , valeur:valeur of param ?
     Nom du param:param2 , valeur:valeur of param ?
Nom de la fonction:function2
     Nom du param:param1 , valeur:valeur of param ?
     Nom du param:param2 , valeur:valeur of param ?

Je souhaiterais donc avoir:

Code:

1
2
3
4
Nom de la fonction:function1
     Nom du param:param1 , valeur:Param1WithFn1
     Nom du param:param2 , valeur:Param2WithFn1
...

Voilà, je ne sais pas si tu vois ce que je souhaite faire.

23/07/2010, 10h30
Bluedeep

Citation:

Envoyé par gremlinsy

Voilà, je ne sais pas si tu vois ce que je souhaite faire.

Assez vaguement, car je ne vois pas bien l'objectif fonctionnel, mais bon.

Sinon, je maintiens que le plus propre serait de procéder via injection code en utilisant un tisseur aspect. (PostSharp déjà mentionné).