Convertir un STRING en BOOLEAN dans un test

Version imprimable

15/05/2023, 10h59
Chris67550

Convertir un STRING en BOOLEAN dans un test
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:

1 2 3 4 Dim condition As String = "a=1" Dim a As Integer = 1 If condition Then MsgBox("vrai")
Je vous remercie
15/05/2023, 11h24
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 ?
15/05/2023, 11h54
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 ...
15/05/2023, 15h38
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)
15/05/2023, 15h54
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 !
15/05/2023, 15h58
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

Bonsoir,
et un truc comme ça?

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

16/05/2023, 07h39
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:

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

ça pourrait débuter comme suit

Code:

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

22/05/2023, 10h20
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.