Discussion :

[Chris67550]

Bonjour, je voudrai effectuer un IF CONDITION THEN..... sachant que CONDITION est prédéfinie comme un STRING alors qu on devrait avoir un BOOLEAN, comment activer cette modification ?
Voici un code simplifié afin de mieux comprendre mon problème

Code :

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

1
2
3
4
 Dim condition As String = "a=1"
 Dim a As Integer = 1
 
 If condition Then MsgBox("vrai")

Je vous remercie

[Pol63]

quelle est la forme possible pour cette condition ?
est-ce que c'est toujours a ?
est-ce que c'est toujours = ?
et toujours ensuite une valeur ?

[Chris67550]

En fait j ai une liste de conditions enregistrées dans un tableau que j aimerais pouvoir chercher et utiliser à ma guise
condi[0] = "a=1"
condi[1] = "b>c"
condi[2] = "c mod 2 = 0"...

puis faire un test en fonction des valeurs a, b, c :

if condi[k] then ...

[Pol63]

soit tu parses et tu créés un func en fonction
soit il faut que ca soit du code vb et tu le compiles à la volée (string => fonction utilisable) via vbcodeprovider (il faudra passer a b et c en paramètre pour être sur de couvrir toutes les variables possibles)

[Chris67550]

Merci pour ta réponse, je pensais qu il y aurait un moyen plus rapide d y arriver... je vais devoir m y mettre sérieusement !

[Pol63]

de mémoire il y a d'autres moyens détournés, si tu as une base sql pas loin tu peux tenter de rajouter select devant, de modifier deux ou trois trucs et de faire exécuter la requête, le parseur est inclus ^^
sans base, je crois qu'on peut aussi faire ca sur l'objet datatable ou dataset, mais je ne sais plus comment

[Thumb down]

Bonsoir,
et un truc comme ça?

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
 Sub test()
        Dim prm() As OleDbParameter = {New OleDbParameter}
        With prm(0)
            .Value = 1 : .Size = 8 : .DbType = DbType.Int16
        End With
        MessageBox.Show($"a=1 : {If(OpenFtxt("?=1", prm)(0)(0), "Vrai", "Faux")}") '"a=1"
        prm = {New OleDbParameter, New OleDbParameter}
        With prm(0)
            .Value = 3 : .Size = 8 : .DbType = DbType.Int16
        End With
        With prm(1)
            .Value = 3 : .Size = 8 : .DbType = DbType.Int16
        End With
        MessageBox.Show($"b>c : {If(OpenFtxt("?>?", prm)(0)(0), "Vrai", "Faux")}")  ' "b>c"
        prm = {New OleDbParameter}
        With prm(0)
            .Value = 6 : .Size = 8 : .DbType = DbType.Int16
        End With
        MessageBox.Show($"c mod 2 = 0 : {If(OpenFtxt("? mod 2 = 0", prm)(0)(0), "Vrai", "Faux")}") '"c mod 2 = 0"
    End Sub
    Private Function OpenFtxt(ByVal SQL As String, PRM() As OleDbParameter) As DataTable '
        If SQL.ToUpper.IndexOf("SELECT ") = True Then SQL = "Select " + SQL
 
 
        Dim dt As New DataTable 'on déclare le datatable qui va contenire le résulta de la requête
        Using cn As New OleDbConnection
            cn.ConnectionString = $"Provider=Microsoft.Jet.OLEDB.4.0;Data Source={Application.StartupPath};Extended Properties='text;HDR=No;FMT=Delimited';"
            cn.Open()
            Using cm As New OleDbCommand
                cm.Connection = cn
                cm.CommandText = SQL
                For Each P As OleDbParameter In PRM
                    cm.Parameters.Add(P)
                Next
                dt.Load(cm.ExecuteReader)
                Return dt
            End Using
        End Using
    End Function

[Chris67550]

Hum, je dois avouer que je ne comprends absolument rien à ton code, c est bien au delà de mes capacités, mais merci d'avoir répondu... Je pensais qu il y avait une manière simple de transformer une expression texte en condition.
Sinon j ai trouvé une solution avec des modulo, ça me permet d'activer les tests les un après les autres, ça fait un paquet de lignes mais ça reste compréhensible à mon niveau

Code :

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

1
2
3
4
 t4 = (k - t1 - 3 * t2 - 9 * t3) / 27 Mod 3
 If t4 = 0 And b < c Then ...
 If t4 = 1 And b = c Then ...
 If t4 = 2 And b > c Then ...

[Mario Rousson]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Cond() As String = {"A=1", "B>C", "c mod 2 = 0"}
 
        For yCond As Integer = 0 To Cond.Count - 1
 
            If Cond(yCond).Contains("="c) Then
                'Recherche les valeurs numériques dans cette condition
            ElseIf Cond(yCond).Contains(">"c) Then
                'Recherche les valeurs numériques dans cette condition
            ElseIf Cond(yCond).Contains("mod") Then
                'Recherche les valeurs numériques dans cette condition
            End If
 
        Next

ensuite il y a un merveilleux tuto https://plasserre.developpez.com/cours/vb-net/

pour t'aider à rechercher les valeurs numériques dans un string

[m4k-Hurrican]

Bonjour,

Le mieux je pense est d'utiliser un outil pour parser l'expression. Il existe Mx Parser qui devrait te convenir : https://mathparser.org/
Çà oblige à installer le package Nuget, mais une fois fait ce sera simple d'utilisation.
Sinon j'avais déjà vu une ruse à base de DataTable, mais elle est assez gourmande en CPU si tu as de nombreuses expression à évaluer. Voici la page où je l'avais vue : https://stackoverflow.com/questions/...tring-using-vb
Sur cette page tu trouveras aussi l'exemple avec Mx Parser, c'est là que je l'avais trouvé pour mon usage perso.