Discussion :

[gremlinsy]

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 :

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

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 :

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

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

Merci

[supersnail]

Bonjour,

Essaie peut-être

Code :

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

 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...

[gremlinsy]

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 :

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

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.

[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 ?

[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.

[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).