Variables personnalisées en 3 versions (Original, Current, Modified)

Version imprimable

Bonjour à tous,
Dans une procédure bien spécifique j'ai besoin de travailler avec des variables qui peuvent posséder 3 versions de valeurs un peu à la manière des lignes ADO.NET qui permettent de lire les valeurs Original, Current et Modified.
Je ne suis pas loin d'y parvenir mais je but sur un problème lorsqu'il s'agit de spécifier le type de données à passer à ma procédure puisque je ne le connait pas à l'avance.
A noter que dans l'argument 'Value' je passe une valeur issue de la lecture d'une table ADO.NET qui peut prendre la valeur DBNull, dans ce cas la version Original prendra la valeur Nothing.

Voici le code que j'ai essayé :
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Structure TypeString Dim Original As String Dim Current As String Dim Modified As String End Structure Public Structure TypeBoolean Dim Original As Boolean Dim Current As Boolean Dim Modified As Boolean End Structure
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim MyString As TypeString = SetVariable(Row("Col1"), "") Dim MyBoolean as TypeBoolean = SetVariable(Row("Col2"), False) Private Function SetVariable(ByVal Value As Object, ByVal Defaut As Object) As Object Dim variable As ???????? = Nothing ' Ici je doit spécifier le type de variable. If Values Is DBNull.Value Then variable.Original = Nothing variable.Current = Defaut Else variable.Original = Values variable.Current = Values End If Return variable End Function
je n'ai encore rien figé à ce niveau là et tout est encore possible j'espère que vous pourrait m'aider.

Et avec unse structure générique, par exemple.

En C# (désolé, je ne connais pas VB, mais je pense que c'est facile à comprendre)
Code:

1 2 3 4 5 6 7 8 9 public struct Versioning<T> { public T Original { get; set; } public T Current { get; set; } public T Modified { get; set; } }
Tu peux l'instancier comme ça par exemple:
Code:

1 2 var test = new Versioning<int> { Current = variable, Original = variable == DBNull.Value ? default(int) : variable };
Evidemment, tu peux aussi faire une version générique de ta méthode SetVariable.

Bonjour et merci pour la réponse,
Quelqu'un peut confirmer que je ne me suis pas trompé dans la traduction en VB.NET ?
je trouve mon code très long par rapport à C# 8O

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
    Public Structure Versioning(Of T)
        Dim _Original As T
        Dim _Current As T
        Dim _Modified As T
        Public Property Original As T
            Get
                Return _Original
            End Get
            Set(value As T)
                _Original = value
            End Set
        End Property
        Public Property Current As T
            Get
                Return _Current
            End Get
            Set(value As T)
                _Current = value
            End Set
        End Property
        Public Property Modified As T
            Get
                Return _Modified
            End Get
            Set(value As T)
                _Modified = value
            End Set
        End Property
    End Structure

Edit
Je suis perdu en C#, j'ai aussi du mal à traduire la ligne pour instancier :?
Si quelqu'un peux m'aider ça serait super.

Salut,
J'utiliserais peut être plus une classe au lieu d'une structure qui est obsolète en .net:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Class MyVar(Of T)
        Public Property Original As T
        Public Property Current As T
        Public Property Modified As T
    End Class
 
    Class Test
 
        Sub Main()
            Dim var As New MyVar(Of Boolean) With
                {
                    .Original = True,
                    .Current = False,
                    .Modified = False
                }
 
            Dim var2 As New MyVar(Of String)
            var2.Original = "plup"
            var2.Current = "plop"
            var2.Modified = "plap"
        End Sub
 
    End Class

01/06/2012, 20h56
meziantou

Citation:

Envoyé par -N4w4k-

au lieu d'une structure qui est obsolète en .net

D'où tu sort ça. Les structures ont leurs utilisations, rares certes mais ça peut servir.
01/06/2012, 20h58
-N4w4k-
Arf, j'étais persuadé à force de l'entendre, ou de mal écouter..
Désolé pour la fausse info :oops:

Je vais relire le cours :roll:

Edit
En effet, d'après msdn:
Citation:
When you are defining a container type, consider the following criteria.

A structure can be preferable when:

You have a small amount of data and simply want the equivalent of the UDT (user-defined type) of previous versions of Visual Basic
You perform a large number of operations on each instance and would incur performance degradation with heap management
You have no need to inherit the structure or to specialize functionality among its instances
You do not box and unbox the structure
You are passing blittable data across a managed/unmanaged boundary

A class is preferable when:

You need to use inheritance and polymorphism
You need to initialize one or more members at creation time
You need to supply an unparameterized constructor
You need unlimited event handling support

If your container type does not fit clearly into either of these categories, define a Class. Classes are more flexible than structures, and the storage and performance differences are often negligible. Structures are intended primarily for types that behave like built-in types, not necessarily for general-purpose use.
Je referme la parenthèse. Merci d'avoir rectifié le tir meziantou :roll:

Merci de vouloir m'aider mais je suis dans l'impasse.
En effet avec les génériques il n'est pas possible d'utiliser les opérateurs =, <>....etc
Par exemple si je veux comparer en faisant ca : If MyVariable.Original <> MyVariable.Current then....l'éditeur de VS n'accepte pas cette synthaxe avec des types génériques.
Donc ce que je veux faire perd tout sont intérêt.
Si quelqu'un à une autre idée je suis preneur mais je crois que ce n'est pas possible. A l'origine je voulais faire des procédures génériques pour manipuler des variables qui peuvent être des types différents comme ceux la :
Code:

1 2 3 4 5 6 Dim MaVariable1Original as String Dim MaVariable1Current as String Dim MaVariable1Modified as String Dim MaVariable2Original as Boolean Dim MaVariable2Current as Boolean Dim MaVariable2Modified as Boolean
EDIT : Bien sûre, je compare des string avec des string et des Boolean avec des Boolean.....

Citation:

Envoyé par BasicZX81

Par exemple si je veux comparer en faisant ca : If MyVariable.Original <> MyVariable.Current then....l'éditeur de VS n'accepte pas cette synthaxe avec des types génériques.

Chez moi ça marche:

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
Module Module1
    Class MyVar(Of T)
        Public Property Original As T
        Public Property Current As T
        Public Property Modified As T
    End Class
 
    Sub Main()
        Dim var As New MyVar(Of Boolean) With
    {
        .Original = True,
        .Current = False,
        .Modified = False
    }
 
        Dim var2 As New MyVar(Of String)
        var2.Original = "plop"
        var2.Current = "plop"
        var2.Modified = "plap"
 
        If var2.Current <> var2.Original Then
            MsgBox("different")
        Else
            MsgBox("pareil")
        End If
    End Sub
 
End Module

01/06/2012, 21h34
BasicZX81

Merci beaucoup -N4w4k-, en effet je n'avais pas encore essayé les classes, avec structures ça ne fonctionnent pas mais avec les classes ça à l'air de fonctionner.
Le temps de faire quelques tests plus approfondies et je passerais en résolue (j'espère :roll::)).
Un grand merci.
01/06/2012, 21h35
-N4w4k-

Avec les structures ça marche aussi :mrgreen:
01/06/2012, 21h47
BasicZX81

Zut alors j'ai du raté quelques choses.....:?:)
C'est pas bien grave de toutes façon je crois que je vais utiliser les classes et j'économise ainsi la procédure SetVariable dans le code que je peux intégrer directement dans le constructeur de ma nouvelle variable.
C'est cool ça.... ça devrait marcher, enfin j'espère.

Rebonsoir, bon finalement j'ai bien un problème avec l'opérateur <> mais ca se produit uniquement dans ma procédure (l'éditeur VB2010 ne l'accepte pas) :
Code:

1 2 3 4 5 6 7 Private Sub WriteValue(Of T)(ByVal Row As DataRow, ByVal ColName As String, ByVal Variable As clsVarVersioning(Of T)) If Variable.Modified Is Nothing Then If Not IsDBNull(Row(ColName)) Then Row(ColName) = DBNull.Value ' On ecrit que si c'est necessaire pour ne pas détecter de modifications dans le DataSet Else If Variable.Original <> Variable.Modified Then Row(ColName) = Variable.Modified ' On ecrit que si c'est necessaire pour ne pas détecter de modifications dans le DataSet End If End Sub
C'est une procédure destinée à faire un test sur les valeurs afin de décider si oui ou non on doit écrire dans la base et quelle version on doit écrire. (Je passe commme argument ma ligne DataRow à écrire, le nom de la colonne et ma variable personnalisée (en plusieurs versions).

Vous avez une idée ?

01/06/2012, 22h45
-N4w4k-

Peut être que tu peux comparer de cette façon:

Code:

Variable.Original.Equals(Variable.Modified)

Bon finalement j'ai fait ça en déclarant (MyVariable comme Object) et je retrouve mes valeurs Original, Current....etc .
Normalement celle-ci sont typé en String ou en Boolean dans ma procédure donc les opérateurs courant devrait fonctionner correctement. j'espère que je ne dit pas de bétises...:roll:

Code:

1
2
3
4
5
6
7
8
9
Call WriteValue(MyRow, MyColName, MyVariable)
 
    Private Sub WriteValue(ByVal Row As DataRow, ByVal ColName As String, ByVal Variable As Object)
        If Variable.Modified Is Nothing Then
            If Not IsDBNull(Row(ColName)) Then Row(ColName) = DBNull.Value ' On ecrit que si c'est necessaire pour ne pas détecter de modifications dans le DataSet
        Else
            If Variable.Original <> Variable.Modified Then Row(ColName) = Variable.Modified ' On ecrit que si c'est necessaire pour ne pas détecter de modifications dans le DataSet
        End If
    End Sub