[Парсер] Эвалютатор мат. выражений. (VB .NET реализация)

[Viper]

[Хакер] Ввиду того, что кирпич доведён до ума, помещаю его обратно в данный раздел.

Вношу свой вклад в дело создания парсеров... Сие было писано очень давно на VB, потом переведено на VB.NET... оригинал впоследствии где-то пропал без вести, а вот Net-версия вот она... Кстати работает и с функциями тоже.

Обновленная версия, с описанием.

[NicSoft]

Обнаружил ошибку при работе с отрицательными числами. Для устранения заменил строку:

Код: Выделить всё

If Mid(s, pos, 1).ToLower <> "e"c Then

на:

Код: Выделить всё

If InStr("1234567890).,e", Mid(s, pos, 1).ToLower) > 0 Then

[Viper]

Спасибо за инфу, посмотрю внимательнее

[AnarCky]

Слушайте. Я пытался копнуться в коде, но для меня явно темновато.
Надо, чтоб он считал числа Decimal и выдавал соответственно тоже самое. Скажите пожалуйста что и где надо поменять.

[Viper]

Что значит "считал числа Decimal"?

[AnarCky]

Как я понял в функцию передают строку. Но у меня в строке числа с точностью до 10-и знаков после запятой. Но при всех этих условиях ответ мне функция выдает целым числом, что меня есстественно не устраивает. Надо чтобы выдавала Decimal.

[NicSoft]

Вообще-то выдает он не целым типом, а Double.
У меня в CompactFramework возникла проблема с последним оператором Val(s), я его заменил на CDbl(s) и все заработало без проблем. Тебе судя по всему нужен CDec(s)

[AnarCky]

Все нашел разобрался...
Спасибо!

[star666ton]

пытался запустить выполнение проги которую написал (подключил парсер) но появляется ошибкак что мне сделать?

[alibek]

Тебе строчка "VB.NET реализация" в названии темы ни о чем не говорит?

[star666ton]

Тебе строчка "VB.NET реализация" в названии темы ни о чем не говорит?

нет обьясните если не трудно

[alibek]

Ты программируешь на VB6.
А данный "кирпич" для VB.NET.
Используй этот или этот.

[DreamShark]

отличный парсер! Спасибо, Viper!

Но лаги есть ещё.
Во первых отрицательное число в четной степени выдает отрицательный результат.
примерно так: (-2)^2=-4 - параболу начертить не получится

Во вторых. Я использую парсер для построения графика. Нужно чтобы деление на ноль избегалось, а тут гипербола, когда 1/0 - ошибочку выдает:(

Как это можно поправить? И будет идеальный эвалютатор!

[Viper]

отличный парсер! Спасибо, Viper!

Но лаги есть ещё.
Во первых отрицательное число в четной степени выдает отрицательный результат.
примерно так: (-2)^2=-4 - параболу начертить не получится

Во вторых. Я использую парсер для построения графика. Нужно чтобы деление на ноль избегалось, а тут гипербола, когда 1/0 - ошибочку выдает:(

Как это можно поправить? И будет идеальный эвалютатор!

Имеешь полное право поправить мой код в сторону улучшения.
З.Ы. У меня сейчас есть более совершенный вариант парсера, но его надо доводить еще до уровня "кирпича", а времени нет.

[Lokar]

Подскажите, что надо добавить в этот парсер, что бы кроме числовых значений он мог присвоить переменной значение другой переменной.

[Viper]

Для этого стоит его переделать на основе конечных автоматов и с разбором в дерево.

[Qwertiy]

Подскажите, что надо добавить в этот парсер, что бы кроме числовых значений он мог присвоить переменной значение другой переменной.

Если речь идёт о вычислении значения выражения с переменными, то надо простио завести Dictionary, который по имени переменной позволяет получить её значение. Хотя код не смотрел. Мне проще весь парсер написать.