Bonjour à tous,

Voici mon problème. Je travaile sous VS2005 et je tente d'évaluer une
condition booléenne contenue dans une variable de type string.

La variable est simplement déclarée par : dim str as string
A l'issu d'un traitement, le contenu de la variable est du type
"((<valeur_booléenne>)AND(<valeur_booléenne>))" et je cherche à évaluer cette
expression pour obtenir la valeur booléenne de l'ensemble de l'expression.


J'ai pensé résoudre le problème par l'appel de Cbool : cBool(str) mais
j'obtiens le message "La conversion de la chaîne "((True)AND(True))" en type
'Boolean' n'est pas valide."

La fonction Cbool n'accepte pas en paramètre de variable de type string.
L'anomalie est la même  avec l'appel directe sous la forme
cbool("((True)AND(True))"). Par contre, l'exécution de cbool((True)AND(True))
retourne bien la valeur True.

La fonction Cbool n'est visiblement pas le bon moyen pour évaluer une chaîne
de caractère contenant une expression booléenne. Mais je ne connais pas
d'autre moyen de résoudre ce problème.



Merci par avance de votre aide.

salut,
est ce que ta chaine contient systématique 2 booléens ? et le mot clé And ?
le mieux, à mon avis est de faire une recherche grace aux parenthèses.
en parcourant la chaine de manière séquentiel tu pourras détecter les valeurs des booléens et l'opérateur

sinon, tu peux essayer en faisant des recherches des valeurs "TRUE" et "FALSE" avec instr 
      
@+

Pat

 Don't Worry , Be Happy

---

lorsque le problème est résolu, pensez Réponse Acceptée

salut (re) regarde ce code, cela devrait t'aider http://www.vbfrance.com/codes/FONCTIONS-INTERESSANTES-EXTRACTION-TEXTE-DANS-EXPRESSION_38798.aspx Pat

L'expression citée est un exemple simplifié.

Elle est du type : [ ( ]  [(<valeur_booléenne>)] [And,Or]  [ (<valeur_booléenne>) ]  [ ) ] ce qui peut donner par exemple :
((((true) and (false)) or (true)) and (false)).

Le parenthésage est toujours complet, sans omission basée sur la priorité des opérateurs logique.


Mon problème n'est pas de détecter les valeurs booléennes mais d'évaluer l'expression complète pour obtenir une valeur booléenne.

Je cherche donc une fonction dont la déclaration pourrait ressembler à :

Function ExvalueExpressionBooleenne(ByVal Expression As String) As Boolean


@+

C'est bien ce que je craignais, il va falloir que je code un parseur d'expressions booléennes.

J'espérais trouver un bout de code qui ferait le boulot, histoire de ne pas réinventer la roue...


Mais quand il faut y aller !!! Du coup, lorsqu'il sera au point je le posterai

A+

c'est pas très complexe, tu as l'avantage d'avoir les parentheses bien placées....
l'histoire de 45 minutes de coding, pour avoir un truc fonctionnel...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Chose promise, chose due, voici une fonction qui évalue les expressions booléennes au format suivant :  [ ( ]  [(<valeur_booléenne>)] [And,Or]  [ (<valeur_booléenne>) ]  [ ) ] ce qui peut donner par exemple : ((((1) and (0)) or (1)) and (0)).

Au cours des tests, je suis tombé sur un cas particulier que je ne traite pas encore correctement, mais que je ne devrais pas rencontrer dans l'appli sur laquelle je travaille  : une expression du type ((1)AND((0)or(1))), càd une expression dont le niveau de parenthésage le plus profond n'est pas le premier exprimé. Dans ce type de cas, ma fonction se plante. Je pense qu'il faudrait non plus parser en recherchant les parenthèses mais plutôt les opérateurs logiques.

N'hésitez pas à me faire part de vos remarques.

    Public Function ParseBoolExp(ByVal ExpressionBool As String) As Boolean
        Dim posO, posF, i As Integer
        Dim FinTrt As Boolean
        'Longueur d'un élément booléen, 3 pour (0) ou (1) et 6 pour (true) ou (fals)
        Const LenElemBool = 3

        FinTrt = False
        i = 0
        While ExpressionBool(i) = "("
            i = i + 1
        End While
        posO = i
        posF = InStr(Mid(ExpressionBool, posO + LenElemBool), ")") + posO + 2
        Select Case Mid(ExpressionBool, posO, posF - posO + 1).ToUpper
            Case "(1)AND(1)", "(0)AND(0)", "(1)OR(1)", "(0)OR(1)", "(1)OR(0)"
                ExpressionBool = Left(ExpressionBool, posO - 1) & "1" & Mid(ExpressionBool, posF + 1)
                If ExpressionBool = "1" Then
                    FinTrt = True
                    ParseBoolExp = True
                End If
            Case "(0)AND(1)", "(1)AND(0)", "(0)OR(0)"
                ExpressionBool = Left(ExpressionBool, posO - 1) & "0" & Mid(ExpressionBool, posF + 1)
                If ExpressionBool = "0" Then
                    FinTrt = True
                    ParseBoolExp = False
                End If
            Case "1", "(1)"
                ParseBoolExp = True
                FinTrt = True
            Case "0", "(0)"
                ParseBoolExp = False
                FinTrt = True
        End Select
        If Not (FinTrt) Then
            ParseBoolExp = ParseBoolExp(ExpressionBool)
        End If


A+

pas mal... reste a supprimer les parenthèses qui entourent toute la chaine ; ton cas non prévu. vu que tu t'amuses a gérer toutes les combinaisons, suffirait de faire des Replace... remplacer (0)And(1) par (0) etc