Еще один эвалюатор

[Конь]

На днях написал за полчаса. Вроде работает. Поддерживает все мат. функции VB6, а также ^ * / + - и ()

[BV]

На выражение "128 + 28 - 26 + 4 - 6" он мне выдал результат 120.

[zan]

128 + 64 * 2 -128 + 64 * 2 = 0

На днях написал за полчаса

[Viper]

Нды... полчаса эт не дело... Ну например в процедуре Eval есть такое милое место:

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

For i = Len(Expression) To 1 Step -1
        If LCase(Mid(Expression, i, 4)) = "sqr(" Then
            For j = i + 4 To Len(Expression)
                ' а если в скобках выражение со скобками?
                If Mid(Expression, j, 1) = ")" Then
                    Tmp = GEval(Tmp)
                    Tmp = CStr(Sqr(Val(Tmp)))
                    Expression = Left(Expression, i - 1) & Tmp & Mid(Expression, j + 1)
                    Tmp = vbNullString
                    Exit For
                Else
                    Tmp = Tmp & Mid(Expression, j, 1)
                End If
            Next
        ElseIf LCase(Mid(Expression, i, 4)) = "atn(" Then
'и еще несколько ElseIf
Next i


спрашивается, а нельзя ли было вытащить через Mid нужный кусок выражения, а потом уже сравнивать? Зачем несколько раз повторять одно и то же действие. Тем более, что есть Select Case. Я уж не говорю, что первы 4 прохода по циклу ваще мимо кассы...
Далее, в цикле меняется длина Expression, а число проходов по циклу как раз таки и зависит от ее длины. В один хороший момент получим ошибку (причем скорее всего совершенно неожиданную)


Ну и так далее. Афтор, потрать еще время на код!

[Конь]

' а если в скобках выражение со скобками?

На этот случай вставлено Tmp = GEval(Tmp), которое я сейчас решил заменить на Eval(Tmp)
Ошибки из-за изменения длины не получим, т.к. цикл идет с конца строки в начало.
Ладно, еще немного помозгую

[pronto]

Конь, а ты смотрел мой "эвалютатор"?