Всем привет, Крутые перцы!

Помогите. Нужно взять строку из поля для ввода и выполнить её...
например, y=a+b*c - есть переменные a,b,c и при вводе функции - нужно чтобы она выполнялась.... Как это сделать? Я слышал на VBScript есть такай ф-я, как Execute - но здесь что-то не работает.

Пишите или стучите в аську 334547677

| Сообщение посчитали полезным:

Не знаю про штатные средства языка, я когда-то давно это врукопашную реализовывал посмотри в поисковиках по запросу "польская инверсная запись", там должны быть и подробное описание, и наверняка исходники, хотя и с нуля реализовать имхо несложно.

| Сообщение посчитали полезным:

Я так в серьёз задумался - получается что-то типа интерпретатора 2 уровня (если сам ВБ считать 1 уровнем).

Есть ещё вариант на С++ говорят, что можно сделать очень просто - но я не знаю С++.

Mordred, плиз, стукни мне в аську 334547677

| Сообщение посчитали полезным:

Sanya
Я аськой не пользуюсь... Если что - пиши в личку или на мыло: mordred[пудель]sibmail.com
Sanya пишет:
Я так в серьёз задумался - получается что-то типа интерпретатора 2 уровня (если сам ВБ считать 1 уровнем).
Вообще-то типа того, но для основных арифметических операций там реально примитивный интерпретатор получается Если надо, могу поискать свою прогу, тока я её делал чуть ли не в 10 классе еще, когда тока за комп сел, так что код там, мягко говоря, неоптимизированный

| Сообщение посчитали полезным:

На С ничуть не легче
Ну а на ВБ:
'в модуль
' переменные из модуля если их буквы написать в исполняемом тексте заменяются на значение их в программе
' буквы не из модуля так и пишутся буквами
Option Explicit
Public X
Public Y
Public Mul As Integer
Public Shirina As Long
Public Visota As Long
Public SeredinaV As Long
Public SeredinaS As Long
Public Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

' For VB5 IDE
'Declare Function EbExecuteLine Lib "vba5.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

' FOR Access 97/VBE.dll clients like Word 97 and Excel 97
'Declare Function EbExecuteLine Lib "vba332.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

Public Function FExecuteCode(stCode As String, Optional fCheckOnly As Boolean) As Boolean
FExecuteCode = EbExecuteLine(StrPtr(stCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

-----
Недостаточно только получить знания:надо найти им приложение

| Сообщение посчитали полезным:

Это можно сделать и без АПИ -
разбиваешь строку y=a+b*c
на скобки, знаки действия и т.д и пишешь код который попутно это все расчитывает

| Сообщение посчитали полезным:

t3stament01 пишет:
Это можно сделать и без АПИ
В идеале, конечно, лучше самому написать. Только вот не всем под силу. А если это функция - не основная в программе, то тратить на нее много времени не стоит. Хотя здесь речь идет о VB - API в нем программировать не просто. Файл объявлений WIN32API.TXT - галимый.

| Сообщение посчитали полезным:

Sanya пишет:
Нужно взять строку из поля для ввода и выполнить её...
Функция называется Evaluate. Пока добрался до Офиса с хелпом по Бейсику.
А по памяти не рискнул ответить

| Сообщение посчитали полезным: