Вычисление текстовой строки

[Taqaey]

Как произвести вычисление текстовой строки и результат поместить в число
Например
dim iStr as string
dim iNum as Integer
iStr="(2+3)*3
iNum=Я идиот! Убейте меня, кто-нибудь!":roll:

[gaidar]

Посмотри такую библиотеку как Microsoft Script Control (msscript.ocx).

У контрола есть метод Eval, пример:

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

Private Sub Form_Load()
MsgBox ScriptControl1.Eval("1+1*3+4*2")
End Sub

[Amed]

Смотри сюда

[Taqaey]

спасибо - получилось
А без этого контрола что нельзя сделать?
Зачем еще нужен этот контрол?

[Cyrax]

спасибо - получилось
А без этого контрола что нельзя сделать?
Зачем еще нужен этот контрол?

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

[_NeoN_]

это пишется за... минут 25-30 (+ сутки на отладку ибо не бывает программ без глюков, бывают глюки без программ)... по крайней мере я такое на с++ писал... тута не наю как... там списки были, делаешь стек и на нем все вычисления производишь =) как реализовать это в басике не нзаю =) может быть просто массив переопределять