fonction en VB.net

**khayate** · 07/05/2007, 10h40

bonjour,
je commence en VB.net,j'ai une question qui peut paraitre un peu bete:
esque cette fonction est ecri en .net:

Public Class Evaluator

Dim scriptControl As New MSScriptControl.ScriptControlClass
Private _Formula As String
Private _VariablesPreffix As String
Private _Operators As ArrayList
Private _CorrectedFormula As String
Private _FormulaVariables As ArrayList
Private _ParseCondition As ParseCondition = ParseCondition.RaiseErroForUndefinedVariable

Public ReadOnly Property Formula() As String
Get
Return Me._Formula
End Get
End Property

Public ReadOnly Property VariablesPreffix() As String
Get
Return Me._VariablesPreffix
End Get
End Property

Private Sub PreEvaluate(ByVal keyCode As String, ByVal keyValue As String)
Me._Formula = Me._Formula.Replace(keyCode.ToUpper, keyValue)
End Sub

Private Sub PreEvaluate(ByVal keyValuesDictionary As Hashtable)
For Each keyCode As String In keyValuesDictionary.Keys
Me.PreEvaluate(keyCode, keyValuesDictionary(keyCode))
Next
End Sub

Public Function Evaluate(ByVal values As Hashtable) As Double
Dim tmpFormula As String = Me._Formula
For Each var As String In Me._FormulaVariables
Select Case var.ToLower
Case "abs", "round", "fix", "sin", "exp", "cos", "int", "atn","tan","sqr", "sgn", "log"
Case Else
Dim index As Integer = CInt(var.Replace(Me._VariablesPreffix, ""))
If Not values(index) Is Nothing Then
tmpFormula = tmpFormula.Replace(var, values(index))
Else
If Me._ParseCondition = ParseCondition.RaiseErroForUndefinedVariable Then
Throw New Exception("Undefined variable!" & vbCrLf & "Base formula: " & Me._Formula & vbCrLf & "Corrected formula: " & Me._CorrectedFormula & vbCrLf & "On variable: " & var)
Else
tmpFormula = tmpFormula.Replace(var, 0)
End If
End If
End Select
Next
Try
Return CDbl(scriptControl.Eval(tmpFormula))
Catch ex As Exception
scriptControl.Error.Clear()
Return -1
'Throw New Exception(tmpFormula, ex)
End Try
End Function

Public Sub New(ByVal formula As String, ByVal variablePreffix As String, ByVal parseCondition As ParseCondition, Optional ByVal preEvaluateKeyValuesDictionary As Hashtable = Nothing)
scriptControl.Language = "vbscript"
Me._Formula = formula
Me._VariablesPreffix = variablePreffix
Me._ParseCondition = parseCondition
InitializeOperators()
If Not preEvaluateKeyValuesDictionary Is Nothing Then
Me.PreEvaluate(preEvaluateKeyValuesDictionary)
End If
InitializeFormula()
End Sub

Private Sub InitializeOperators()
Me._Operators = New ArrayList
Me._Operators.Add(CChar("+"))
Me._Operators.Add(CChar("-"))
Me._Operators.Add(CChar("/"))
Me._Operators.Add(CChar("*"))
Me._Operators.Add(CChar("^"))
Me._Operators.Add(CChar("("))
Me._Operators.Add(CChar(")"))
'Me._Operators.Add(CChar(","))
End Sub

Private Sub InitializeFormula()
Me._CorrectedFormula = Me._Formula.Replace(" ", "")
Me._FormulaVariables = New ArrayList
Dim arrOperators() As Char
Dim variables() As String = Me._CorrectedFormula.Split(CType(Me._Operators.ToArray(GetType(Char)), Char()))
For Each var As String In variables
var = var.Trim
If var.Length > 0 AndAlso Not IsNumeric(var) Then
Me._FormulaVariables.Add(var)
If Not IsNumeric(var.Replace(Me._VariablesPreffix, "")) Then
Select Case var.ToLower
Case "abs", "round", "fix", "sin", "exp", "cos", "int", "atn","tan", "sqr", "sgn", "log"
Case Else
Throw New Exception("Wrong formula!" & vbCrLf & "Base formula: " & Me._Formula & vbCrLf & "Corrected formula: " & Me._CorrectedFormula & vbCrLf & "On variable: " & var)
End Select
End If
End If
Next
End Sub

Public ReadOnly Property Operators() As ArrayList
Get
Return Me._Operators
End Get
End Property

Public ReadOnly Property ParseCondition() As ParseCondition
Get
Return Me._ParseCondition
End Get
End Property

End Class

Public Enum ParseCondition
RaiseErroForUndefinedVariable
DoNotRaiseErroForUndefinedVariable
End Enumte

**khayate** · 07/05/2007, 10h43

j'ai une autre question aussi:
si c'est du .net c'est une classe eval,ca normalement c'est bon,mais il n'existe pas une classe plus simple??

merci de votre aide

**SaumonAgile** · 07/05/2007, 10h46

Pour le code, il y a la balise [ CODE]...[/CODE ], sinon c'est illisible.
Et a priori, oui c'est du dotNet...

**khayate** · 07/05/2007, 11h37

comment ca la balise

Code :

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

...

?????

**khayate** · 07/05/2007, 11h38

non c bon ,c encore une question bete.

**khayate** · 07/05/2007, 12h02

j'ai une autre question:
esqu'il n'existe pas d'equvalent de la fonction "eval" pour migere un projet de VBa en VB.net.

**khayate** · 07/05/2007, 13h24

j'ai encore une question:

esque pour cette classe eval:

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
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
Public Class Evaluator
 
    Dim scriptControl As New MSScriptControl.ScriptControlClass
    Private _Formula As String
    Private _VariablesPreffix As String
    Private _Operators As ArrayList
    Private _CorrectedFormula As String
    Private _FormulaVariables As ArrayList
    Private _ParseCondition As ParseCondition = ParseCondition.RaiseErroForUndefinedVariable
 
    Public ReadOnly Property Formula() As String
    Get
        Return Me._Formula
    End Get
    End Property
 
    Public ReadOnly Property VariablesPreffix() As String
    Get
        Return Me._VariablesPreffix
    End Get
    End Property
 
    Private Sub PreEvaluate(ByVal keyCode As String, ByVal keyValue As String)
        Me._Formula = Me._Formula.Replace(keyCode.ToUpper, keyValue)
    End Sub
 
    Private Sub PreEvaluate(ByVal keyValuesDictionary As Hashtable)
        For Each keyCode As String In keyValuesDictionary.Keys
            Me.PreEvaluate(keyCode, keyValuesDictionary(keyCode))
        Next
    End Sub
 
    Public Function Evaluate(ByVal values As Hashtable) As Double
        Dim tmpFormula As String = Me._Formula
        For Each var As String In Me._FormulaVariables
            Select Case var.ToLower
            Case "abs", "round", "fix", "sin", "exp", "cos", "int", "atn","tan","sqr", "sgn", "log"
            Case Else
                Dim index As Integer = CInt(var.Replace(Me._VariablesPreffix, ""))
                If Not values(index) Is Nothing Then
                    tmpFormula = tmpFormula.Replace(var, values(index))
                Else
                    If Me._ParseCondition = ParseCondition.RaiseErroForUndefinedVariable Then
                        Throw New Exception("Undefined variable!" & vbCrLf & "Base formula: " & Me._Formula & vbCrLf & "Corrected formula: " & Me._CorrectedFormula & vbCrLf & "On variable: " & var)
                    Else
                        tmpFormula = tmpFormula.Replace(var, 0)
                    End If
                End If
            End Select
        Next
        Try
            Return CDbl(scriptControl.Eval(tmpFormula))
        Catch ex As Exception
            scriptControl.Error.Clear()
            Return -1
        'Throw New Exception(tmpFormula, ex)
        End Try
    End Function
 
    Public Sub New(ByVal formula As String, ByVal variablePreffix As String, ByVal parseCondition As ParseCondition, Optional ByVal preEvaluateKeyValuesDictionary As Hashtable = Nothing)
        scriptControl.Language = "vbscript"
        Me._Formula = formula
        Me._VariablesPreffix = variablePreffix
        Me._ParseCondition = parseCondition
        InitializeOperators()
        If Not preEvaluateKeyValuesDictionary Is Nothing Then
            Me.PreEvaluate(preEvaluateKeyValuesDictionary)
        End If
        InitializeFormula()
    End Sub
 
    Private Sub InitializeOperators()
        Me._Operators = New ArrayList
        Me._Operators.Add(CChar("+"))
        Me._Operators.Add(CChar("-"))
        Me._Operators.Add(CChar("/"))
        Me._Operators.Add(CChar("*"))
        Me._Operators.Add(CChar("^"))
        Me._Operators.Add(CChar("("))
        Me._Operators.Add(CChar(")"))
        'Me._Operators.Add(CChar(","))
    End Sub
 
    Private Sub InitializeFormula()
        Me._CorrectedFormula = Me._Formula.Replace(" ", "")
        Me._FormulaVariables = New ArrayList
        Dim arrOperators() As Char
        Dim variables() As String = Me._CorrectedFormula.Split(CType(Me._Operators.ToArray(GetType(Char)), Char()))
        For Each var As String In variables
            var = var.Trim
            If var.Length > 0 AndAlso Not IsNumeric(var) Then
                Me._FormulaVariables.Add(var)
                If Not IsNumeric(var.Replace(Me._VariablesPreffix, "")) Then
                    Select Case var.ToLower
                     Case "abs", "round", "fix", "sin", "exp", "cos", "int", "atn","tan", "sqr", "sgn", "log"
                    Case Else
                        Throw New Exception("Wrong formula!" & vbCrLf & "Base formula: " & Me._Formula & vbCrLf & "Corrected formula: " & Me._CorrectedFormula & vbCrLf & "On variable: " & var)
                    End Select
                End If
            End If
        Next
    End Sub
 
    Public ReadOnly Property Operators() As ArrayList
    Get
        Return Me._Operators
    End Get
    End Property
 
    Public ReadOnly Property ParseCondition() As ParseCondition
    Get
        Return Me._ParseCondition
    End Get
    End Property
 
End Class
 
Public Enum ParseCondition
    RaiseErroForUndefinedVariable
    DoNotRaiseErroForUndefinedVariable
End Enum

on peut pas ajouter d'autre fonction pour faire d'autres operations?????

fonction en VB.net

VB.NET

Vue hybride

Discussions similaires

Partager

Partager