Evaluer une chaine de String en commende avec vb.net

Résolu

cs_souma86 Messages postés 15 Date d'inscription dimanche 12 octobre 2008 Statut Membre Dernière intervention 28 novembre 2011 - 20 mars 2009 à 18:39
cs_souma86 Messages postés 15 Date d'inscription dimanche 12 octobre 2008 Statut Membre Dernière intervention 28 novembre 2011 - 21 mars 2009 à 21:19

J'ai un projet à travailler avec le vb.net.
Dans mon code, l'utilisateur doit avoir la possibiliter d'entrer une expression dans un textbox (chaine) exemple "2*x+5". le programme doit evaluer cette expression en une commande à exécuté.
je doit convertir cette chaine afin de la calculer.
Mon probleme est l'evaluation de cette expression.
j'ai essayer d'utiliser la fonction eval() mais vb.net ne l'accepte pas!!

j'ai cherché une solution et j'ai trouvé ce site: http://www.devx.com/vb2themax/Tip/18773

il explique comment utiliser eval() en vb.net ,mais j'ai pas compris quel référence doit ajouter à la bibliothèque Microsoft Script de contrôle.

est ce que vous pouvez m'aider?
merci d'avance

A voir également:

Evaluer une chaine de String en commende avec vb.net
Convertir string en int c# ✓ - Forum C# / .NET
Vba longueur chaine ✓ - Forum Visual Basic
Longueur d une chaine de caractere ✓ - Forum VB.NET
Longueur maximale string ✓ - Forum Visual Basic 6
Vb.net sleep ✓ - Forum Visual Basic

4 réponses

Réponse 1 / 4

The Meteorologist Messages postés 232 Date d'inscription jeudi 18 janvier 2007 Statut Membre Dernière intervention 3 novembre 2011 1
20 mars 2009 à 23:29

Jette un oeil sur cette source :
http://www.vbfrance.com/codes/EVALUER-EXECUTER-CHAINE-TANT-CODE_45206.aspx

Une petite recherche au préalable t'aurais sûrement aidé ;)

Simon

Réponse 2 / 4

cs_souma86 Messages postés 15 Date d'inscription dimanche 12 octobre 2008 Statut Membre Dernière intervention 28 novembre 2011
21 mars 2009 à 12:23

je vais voir.
merci

Réponse 3 / 4

cs_souma86 Messages postés 15 Date d'inscription dimanche 12 octobre 2008 Statut Membre Dernière intervention 28 novembre 2011
21 mars 2009 à 19:16

Bonjour,

Malheureusement<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><meta name="ProgId" content="Word.Document" /><meta name="Generator" content="Microsoft Word 12" /><meta name="Originator" content="Microsoft Word 12" /><link rel="File-List" href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" /><link rel="themeData" href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" /><link rel="colorSchemeMapping" href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" /><style></style> ca ne marche pas.

j'utilise ce code:
**************************************************************************
Public Function ExecuteCommand(ByVal cmd As String) As String
        Dim vbCodeProv As VBCodeProvider = New VBCodeProvider
        Dim cParam As CodeDom.Compiler.CompilerParameters = New CodeDom.Compiler.CompilerParameters
        ' Ajout des références
        cParam.ReferencedAssemblies.Add("System.dll")
        ' Options du compilateur
        cParam.CompilerOptions = "/t:library" 'L'assembly est une bibliothèque de classe,
        cParam.GenerateInMemory = True         'générée uniquement en mémoire.
        ' Génération du code source
        Dim sCode As System.Text.StringBuilder = New System.Text.StringBuilder("")
        sCode.AppendLine(cmd)
        'Résultat de la compilation
        Dim cResult As CodeDom.Compiler.CompilerResults = vbCodeProv.CompileAssemblyFromSource(cParam, sCode.ToString())
        If cResult.Errors.Count > 0 Then
            Dim Errors As String = "Erreur(s) : "
            For Each ce As CodeDom.Compiler.CompilerError In cResult.Errors
                Errors &= vbCrLf & ce.ErrorText
            Next ce
            MsgBox(Errors)
            Return Nothing
       Else
            ' Récupération de l'assembly généré
            Dim myAssembly As System.Reflection.Assembly = cResult.CompiledAssembly
            ' Instanciation de EvalVbCode
            Dim oEvalVbCode As Object = myAssembly.CreateInstance("Divad.EvalVbCode")
            ' Récupération du type de EvalVbCode
            Dim tEvalVbCode As Type = oEvalVbCode.GetType()
            ' Récupération de la méthode EvalTransformation
            Dim methodEvalTrans As Reflection.MethodInfo = tEvalVbCode.GetMethod("EvalTransformation")
            ' Invocation de la méthode EvalTransformation
            cmd = methodEvalTrans.Invoke(oEvalVbCode, New Object() {cmd})
            Return cmd
        End If
    End Function
**************************************************************************
A l'exécution il m'affiche cette erreur :Labels are not valid outside methodes.
j'ai supprimé l'objet Image car je n'ai pas besoin de l'utilisé.

Mon but est : si cmd="2+2" j'obtiens 4

S'il vous plait<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><meta name="ProgId" content="Word.Document" /><meta name="Generator" content="Microsoft Word 12" /><meta name="Originator" content="Microsoft Word 12" /><link rel="File-List" href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" /><link rel="themeData" href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" /><link rel="colorSchemeMapping" href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" /><style></style> aidez-moi.

merci d'avance

Réponse 4 / 4

cs_souma86 Messages postés 15 Date d'inscription dimanche 12 octobre 2008 Statut Membre Dernière intervention 28 novembre 2011
21 mars 2009 à 21:19

Bonjour,

Merci beaucoup Simon, c'est une bonne solution, elle ca marche bien.

Merci beaucoup.

Discussions similaires

parcourir une chaîne de caractère lettre par lettre

extraction d'une partie d'une chaine dans une chaine

chaine de caractère

Trouver toutes les positions d'une lettre dans une chaine

Chaîne de caractère

Votre réponse

Discussions similaires