Evaluation d'une chaîne de caractère

**_ChToM_** · 27/09/2006, 11h25

Slt,

après avoir effectué des recherches sur internet et sur ce forum, je n'ai pas trouvé la réponse à ma question et me tourne vers vous pour m'aider.

Voilà, j'ai une chaîne de caractère qui ressemble à ça : "CODE = 2", je voudrais savoir comment faire interpréter cette chaîne en VB6???

Merci d'avance pour votre aide.

**sovo** · 27/09/2006, 11h44

Envoyé par _ChToM_

je voudrais savoir comment faire interpréter cette chaîne en VB6???

C'est a dire ??

**_ChToM_** · 27/09/2006, 12h04

Et bien qu'il me réalise la comparaison "CODE = 2"

En fait, les informations sont issues d'une base de données. Ca me permet de paramétrer mon test.

**Le Pharaon** · 27/09/2006, 12h31

Est ce que tu peux expliquer de manière détaillée ton objectif, le but de cette manipulation ?

[Edit] : Regarde la fonction Eval()

**Delbeke** · 27/09/2006, 12h46

J'ai écrit un composant qui évalue les expressions algébriques contenues dans une chaîne de caractères
http://www.developpez.net/forums/sho...d.php?t=185576

Je ne sais pas si ca va resoudre ton probléme, mais c'est sur qu'il ne va pas resoudre "Code = 2". Pare que Code n'est pas connu, par contre avant de soumettre ta chaine au composant, tu peux certainement substituer Code pas sa valeur : auquel cas on aurait quuelque chose comme "2 =2" ou "5 = 2", mon composant retourne dans ce cas Vrai ou Faux.

Il a surtout été créé pour resouldre des chaîne comme "(5+(2*3)/3) /2"

**Delbeke** · 27/09/2006, 12h49

Heu, Bujuman. Je ne pense pas que Vb offre de fonction eval(), peux tu m'en dire plus ?

**_ChToM_** · 27/09/2006, 13h54

Slt tous,

Voici le but de la manoeuvre :
J'ai 3 champs dans une table:
- LIB_CHAMP : mon champ à comparer (ici, CODE)
- LIB_OPER_COMP : mon opérateur de comparaison (< > = <=...)
- LIB_VALUE : La valeur que je dois trouver pour rendre ma condition vraie.

Dans mon traitement VB, j'ai une information CODE (c'est le même nom que celui stocké dans ma base de données).
Au cours du traitement, je dois vérifier si une condition est vraie. J'utilise mes trois champs pour connaître les valeurs à comparer.

J'arrive donc dans mon traitement avec ma valeur dans CODE, je regarde ma base de données et je vois que je dois comparer CODE à 2 en vérifiant l'égalité.

Voilà pourquoi je veux que VB m'évalue la chaîne (formée des 3 champs).

Si j'ai fait ca, c'est que le champ à comparer n'est toujours le même. Je voudrai rendre mon traitement générique et ainsi modifier la comparaison en touchant à mon champ dans la base de données et non pas dans mon code VB. Et surtout ne pas faire un énorme SELECT - CASE pour traiter mes différents cas!

J'espère que c'est plus clair maintenant.

Merci Delbeke pour le lien, je regarde ca tout de suite.

**Le Pharaon** · 27/09/2006, 14h00

Envoyé par Delbeke

Heu, Bujuman. Je ne pense pas que Vb offre de fonction eval(), peux tu m'en dire plus ?

Je ne l'ai jamais utilisée et ce n'est pas documenté dans la version de mon MSDN. Une petite recherche sur Google serait util.

**Delbeke** · 27/09/2006, 14h12

Bon, j'ai effectué une recherche sur le net

Vb n'ofre pas de fonction eval, par contre Eval() est inclus dans Miscrosoft Script Control
Il suffit de l'ajouter à sa boite à outil, en deposer un sur la feuille
et voila

Code :

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

1
2
3
Private Sub Command1_Click()
  MsgBox ScriptControl1.Eval("(12.25*2)/3.14")
End Sub

**_ChToM_** · 27/09/2006, 14h43

Ca surgere tout ca.

Pour ceux qui ont le même problème que moi, voilà comment j'ai fait :

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
 
Dim maVariable As String
Dim monChamp As String
Dim monOperateur As String
Dim maValeur As String
 
maVariable = ""
monChamp = "CODE"
monOperateur = "="
maValeur = "2"
 
maVariable = ScriptControl1.Eval(monChamp & monOperateur & maValeur)
if maVariable = "Faux" Then
  MsgBox "FAUX"
Else
  MsgBox "VRAI"
End if
 
...

Merci pour le coup de main. Bonne prog' à tous!

**_ChToM_** · 27/09/2006, 15h21

Bon en fait, imaginons maintenant que le nom de la variable qu'il doit interpréter soit stocké dans la base de données.

Par exemple,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim tmp1 As String
    Dim tmp2 As String
    Dim tmp3 As String
    Dim tmp4 As String
    Dim resultat As String
 
    tmp4 = rs_tmp("LIB_CHAMP") 'Ceci va m'indiquer quelle variable stoke la valeur
    tmp1 = EcrMain.ScriptControl1.Eval(tmp4)  'Ceci est censé me donner la valeur contenue dans la variable, MAIS CA NE MARCHE PAS
    tmp2 = rs_tmp("LIB_COMPARAISON")  'Ceci est mon opérateur de comparaison
    tmp3 = rs_tmp("LIB_VALUE")   'Ceci est la valeur que je dois trouver pour rendre la condition vraie
    resultat = EcrMain.ScriptControl1.Eval(tmp1 & tmp2 & tmp3)
    If resultat = "Vrai" Then
        MsgBox "VRAI"
    End If

Mon nouveau problème ici, c'est de réussir à évaluer tmp4 pour qu'il me donne la valeur du champ que je dois stocker dans tmp1 pour que je puisse la comparer ensuite.

Mais mon premier Eval ne marche pas... "Type incompatible"

Une idée?

**Delbeke** · 27/09/2006, 15h31

Ou se trouve la valeur de Code ? Dans la base de donnée ou c'est une variable interne du programme ?

**Le Pharaon** · 27/09/2006, 15h36

Envoyé par _ChToM_

Bon en fait, imaginons maintenant que le nom de la variable qu'il doit interpréter soit stocké dans la base de données.

J'allais te poser la même question, mais je me disais que tu maitrisais la situation mieux que moi.

Peux-tu donner un exemple de valeur pour LIB_Champs ?

**_ChToM_** · 27/09/2006, 15h50

La valeur de CODE est stockée dans le programme.

Moi je stocke juste le NOM de la variable dans la base de données.

Par exemple, pour LIB_CHAMP, ca pourrait être : "maVariable" ou "CODE" (pour reprendre mon exemple du début)

et dans le programme VB6, maVariable = "coucou"

Moi je recupère le nom dans la base de données, je voudrais récupérer sa valeur dans le programme VB6, et l'interpréter ensuite.

**Le Pharaon** · 27/09/2006, 16h16

Envoyé par _ChToM_

Mais mon premier Eval ne marche pas... "Type incompatible"
tmp4 = rs_tmp("LIB_CHAMP")
tmp1 = EcrMain.ScriptControl1.Eval(tmp4)

Pour LIB_CHAPMS = "CODE" on aurra :

Code :

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

tmp1 = EcrMain.ScriptControl1.Eval("CODE")

Ce qui est normalement incompatible

**_ChToM_** · 27/09/2006, 16h51

C'est justement ce que je cherche à éviter en essayant de lui faire interpréter CODE!

Qu'il ne le considére pas comme valeur mais comme nom de variable.

**Delbeke** · 27/09/2006, 16h56

Il te reste a faire une petite routine qui renvoie la valeur de Code
Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Function Traduit(Valeur as string) as variant
   Select Case Valeur
   Case "Code"
           Traduit= Code
   Case "Machin"
           Traduit = MaVariable
   Case else
           Traduit=""
  end select
End function

Il te faudra prévoir un select pour toutes les valeurs que peut prendre temp1

Note : une fois compilé, un exe ne connait plus les noms de variable, donc eval ne pouras jamais convertir "Code" en quoi que ce soit

**Le Pharaon** · 27/09/2006, 17h00

Je ne vois vraiment pas ce qui peut justifier la présence de cette ligne

Code :

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

tmp1 = EcrMain.ScriptControl1.Eval(tmp4)

Sinon pourquoi ne pas mettre directement ?

Code :

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

resultat = EcrMain.ScriptControl1.Eval(tmp4 & tmp2 & tmp3)

**Delbeke** · 27/09/2006, 17h05

Appliqué a ta problématique ca donnerais quelque chose comme

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
 
    Dim tmp1 As String
    Dim tmp2 As String
    Dim tmp3 As String
 
    Dim resultat As String
 
    tmp1 = traduit(rs_tmp("LIB_CHAMP"))
    tmp2 = rs_tmp("LIB_COMPARAISON")  'Ceci est mon opérateur de comparaison
    tmp3 = rs_tmp("LIB_VALUE")   'Ceci est la valeur que je dois trouver pour rendre la condition vraie
    resultat = EcrMain.ScriptControl1.Eval(tmp1 & tmp2 & tmp3)
   'sur les lignes ci-dessous je ne suis pas sur que la fonction eval renvoie un string 
  'à verifier donc si resultat ne devrais pas etre défini en variant
   ' pour pouvoir faire un If Resultat = True then ...
    If resultat = "Vrai" Then
        MsgBox "VRAI"
    End If

**_ChToM_** · 27/09/2006, 19h18

Arf, ca m'arrange pas du tout ce que Delbeke m'a dit sur l'exe.

Ben si ma seule solution est de faire un big Case, tant pis pour le programme générique.

Merci à tous pour le coup de main.

Mais si quelqu'un a une autre solution, elle est bienvenue!

Evaluation d'une chaîne de caractère

VB 6 et antérieur

Discussions similaires

Partager

Partager