Einfache mathematische Ausdrücke mithilfe von RegEx berechnen

    • VB.NET

      Einfache mathematische Ausdrücke mithilfe von RegEx berechnen

      Hallo!

      Da öfters im Forum nach mathematischen Parser gefragt wurde, habe ich mir mal die Mühe gemacht und einen Parser mithilfe von RegEx geschrieben.

      Erstellt eine neue Klasse namens "Parser" und schreibt wie folgt:

      VB.NET-Quellcode

      1. Public Class Parser
      3. ''' <summary>
      4. ''' Berechnet eine Rechnung, die als String vorliegt. (Funktioniert nicht mit Kommazahlen)
      5. ''' </summary>
      6. ''' <param name="value">Die Rechnung, die berechnet werden soll.</param>
      7. ''' <returns>Gibt die Lösung zurück.</returns>
      8. ''' <remarks></remarks>
      9. Public Shared Function Parse(ByVal value As String) As Integer
      10. Dim result As String = value
      11. ' Potenz vor Punkt vor Strich
      12. Do While Regex.Matches(result, "(\^)").Count > 0 ' Solange ausführen, bis keine Potenzen mehr vorhanden sind
      13. result = Regex.Replace(result,
      14. "(?<zahl1>[0-9]+)(\^)(?<zahl2>[0-9]+)", Function(match As Match)
      15. Return Int32.Parse(match.Groups("zahl1").Value) ^ Int32.Parse(match.Groups("zahl2").Value)
      16. End Function)
      17. Loop
      18. Do While Regex.Matches(result, "(\*|\/)").Count > 0 ' Solange ausführen, bis keine Punktrechnung mehr vorhanden ist
      19. result = Regex.Replace(result,
      20. "(?<zahl1>[0-9]+)(?<operant>(\*|\/))(?<zahl2>[0-9]+)", Function(match As Match)
      21. Select Case match.Groups("operant").Value
      22. Case "*" ' Wenn Operant das Multiplikationszeichen ist
      23. Return Int32.Parse(match.Groups("zahl1").Value) * Int32.Parse(match.Groups("zahl2").Value)
      24. Case "/" ' Wenn Operant das Divisionsszeichen ist
      25. Return Int32.Parse(match.Groups("zahl1").Value) / Int32.Parse(match.Groups("zahl2").Value)
      26. Case Else
      27. Return 0
      28. End Select
      29. End Function)
      30. Loop
      31. Do While Regex.Matches(result, "(\+|\-)").Count > 0 ' Solange ausführen, bis keine Strichrechnung mehr vorhanden ist
      32. result = Regex.Replace(result,
      33. "(?<zahl1>[0-9]+)(?<operant>(\+|\-))(?<zahl2>[0-9]+)", Function(match As Match)
      34. Select Case match.Groups("operant").Value
      35. Case "+" ' Wenn Operant das Additionszeichen ist
      36. Return Int32.Parse(match.Groups("zahl1").Value) + Int32.Parse(match.Groups("zahl2").Value)
      37. Case "-" ' Wenn Operant das Subtraktionsszeichen ist
      38. Return Int32.Parse(match.Groups("zahl1").Value) - Int32.Parse(match.Groups("zahl2").Value)
      39. Case Else
      40. Return 0
      41. End Select
      42. End Function)
      43. Loop
      44. Return Int32.Parse(result)
      45. End Function
      46. End Class


      Jetzt könnt ihr die Funktion via "Parser.Parse(blah)" aufrufen. Die Funktion gibt euch die Lösung zurück.

      lg. RegEx

      PS: Der Code wird hier irgendwie schlecht dargestellt. ^^

    Facebook
    Telefonspende