Разбор формул, нужен совет. - VB

Узнай цену своей работы

Формулировка задачи:

Есть формулы типа ($a + $b) * $c
у каждого параметра ($a $b $c) есть сво-ва, такие как его код, значение и тд.
Мне надо делать быстрый разбор этой формулы и подставлять в нее значения параметров, получая например так: (3 + 4) * 8, где $a=3, $b=4, $c=8
Потом я выражение (3 + 4) * 8 вычисляю методом eval компонента скрипт контрол.

Решение задачи: «Разбор формул, нужен совет.»

textual
Листинг программы
<font color="blue">Set</font> sc = CreateObject(<font color="teal">"MSScriptControl.ScriptControl"</font>)
sc.Language =<font color="teal">"vbscript"</font>
fn = replace(<font color="teal">"($a + $b) * $c"</font>, <font color="teal">"$"</font>, <font color="teal">""</font>)
sc.AddCode <font color="teal">"a = 3"</font> & vbcrlf & <font color="teal">"b = 4"</font> & vbcrlf  & <font color="teal">"с = 8"</font> 
debug.<font color="blue">print</font> sc.Eval(fn)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы