[Парсер] Эвалютатор мат. выражений.

[Хакер]

По многочисленным просьбам, выкладываю свой недоделанный кирпич.

Итак, что же это такое. Буду краток, и скажу одним словом:
Это функция, принимающая в качестве аргумента какую-либо строку (например "((2 + 7) * 3 + 1)/7" ) и возвращающая просчитаный результат (для данного примера - 4 ).

Думаю, для того чтобы понять "what it is" информации хватит.

Подробности, использование, сам класс, пример - во вложении.

Теперь о плохом :
1) Изначально поддержка функция не предусматривалась. Была она добавлена за 15 минут до выкладывания кирпича. Так что сделана довольно тупо.
2) Числа с плавающей точкой тоже пока не работают. Так что скорее всего при попытки посчитать что-то большое, парсер попробует сделать следующее:
для числа 8e+6 он попытается сложить 8e и 6 , что вызовет ошибку.

Обещаю всё исправить и добавить возможность объявлять свои User-Defined функции и переменные.

Высказываеся...

[Хакер]

Обнаружены глюки:
1) Не понимает точку в качестве дробного разделителя.
2) Неотхэндленны ошибки отсутсвия одного из операндов для + и - .
3) Нет оператора степени.

Завтра выложу поправленную.

[pronto]

Хакер, привет!
Благодарен за предоставление материала на изучение. После поверхностного просмотра кода и некоторого тестирования мне показалось, что кирпичик еще будет сыроват...

Замеченные баги:
1. Выражение
(((((((((((((((((((((((((((((((((((1+1)))))))))))))))))))))))))))))))))))
оказалось неподъемным. Как показал эксперимент, одно вложение дает замедление в ~5 раз.

2. Не работает с отрицательными числами.
-2 + 3 = Type mismatch

3. Не преобразует выражение в постфикс, следовательно, алгоритм одноразовый и для пересчета с другим значением переменной нужно парсить все выражение заново.

4. Еще одно следствие из п. 3. Медленность и непригодность для построения графиков и, вообще, исследования функций.

5. Не предусмотрено деление на ноль.

Строка "1+2+3+4+5+...+5000" выполняется за ~4200 мс - это очень много (может на более мощной машине это займет меньше времени)

[star666ton]

не работает с отрицательными числами ((( а так хочется может есть поновее версия??

[Хакер]

Надо обращать внимание на первое предложение в первом сообщении.

[star666ton]

и кстати дробные числа считаются если поставить не точку а запятую

[Sirik]

чтобы работал с отрицательными числами можно добавить в Eval:

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

    If Left(sExpression, 1) = "-" Then sExpression = "0" & sExpression


и спасибо за кирпич

[Хакер]

и спасибо за кирпич

Насколько я помню, уже много лет назад кирпич стал меня раздражать своей кривостью. Так что ну его, лучше я напишу новый.

[Zenitchik]

А ещё лучше - напиши статью, про то, как писать эвалюаторы. Обычно бывает проще самому написать эвалюатор под задачу, чем допиливать чужой кирпич.
Я, лично, пишу их "на автопилоте" и подумываю об автоматизации этого процесса.

[FireFenix]

Я, лично, пишу их "на автопилоте"

Это пять

[Qwertiy]

Я, лично, пишу их "на автопилоте"

Я тоже. По крайней мере, если там возведения в степень нет