Как просчитать????

[sl-shem]

Есть строкавая переменная "2+(2*2)" т.е. она может принимать любое выражение. Как можно в бейсике просчитать эту строку??? В php знаю есть EVAL может и в бейсике есть что подобное???

[Antonariy]

Script Control.

[sl-shem]

Что то не очень понятно. Нельзя по подробней????

[tyomitch]

"по подробней" -- в поиске.

[Dex]

Project->Components->Microsoft Script Control 1.0

[sl-shem]

СПАСИБО!!!! Все заработало. А то я в excel подкладывал!!!!

[sl-shem]

а как с помщью него просчитать например iif(2=>3;(10);(100))

[Viper]

А просто через IIf никак?

[sl-shem]

конечно можно и просто через iff, но лучше что бы сразу!!!

[alibek]

Ну так пиши сразу, кто тебе не дает. Только разделитель элементов -- запятая, а не точка с запятой.

[sl-shem]

Вот пишу так "IIF(2>2,(2),(3))" и вываливается с ошибкой "Type mismatch: 'IIF'"

[Konst_One]

открой msdn и поищи справку по этому контролу, очень много полезного узнаешь AddCode, AddObject и тд и тп

[Konst_One]

"Exploring the Microsoft Script Control" статья в MSDN

[Роман-вб]

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

Option Explicit

Public a As Integer

Private Sub cmd_Click()
  SC.Reset
  SC.AddObject "MainForm", Me, True
  On Error GoTo ErrorHandler
  SC.AddCode "sub M" & vbNewLine & "dim nA" & vbNewLine & _
  "nA=" & "2+(2*2)" & vbNewLine & "MainForm.a=nA" & vbNewLine & "end sub"
  SC.Run "M"
  Print Me.a
  Exit Sub
ErrorHandler:
  MsgBox Err.Number & vbNewLine + Err.Description, vbCritical, "Ошибка"
End Sub

[Nicky]

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

Function myEval(s As String, Optional bError As Boolean, Optional sErr As String) As Double
  Dim sc As New ScriptControl
  On Error GoTo er
 
  bError = True
  sc.Language = "VBScript"
  myEval = sc.Eval(Replace(s, ",", "."))
  bError = False
 
er:
  sErr = Err.Description
End Function


[sl-shem]

Все замечательно работате, но я так и не могу просичтать строку типа:
dim S as string
s= "IIF(2>1,1,2)"
sc.eval s

[Nicky]

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

Function myRunScript(sFormula, Optional bError As Boolean, Optional sErr As String) As Variant
  Dim sc As New ScriptControl
  On Error GoTo er
 
  bError = True
  sc.Language = "VBScript"
  sc.AddCode "Function myScript" & vbLf & "myScript = " & Replace(sFormula, ",", ".") & "End Function"
  myRunScript = sc.Run("myScript")
  bError = False
  GoTo ok
 
er:
  If sc.Error.Number <> 0 Then
    If sc.Error.Number = 6 Then
      bError = False
    Else
      sErr = sc.Error.Description & " в строке:" & vbLf & sc.Error.Text
    End If
  Else
    sErr = Err.Description
  End If

ok:
  Err.Clear
End Function


[sl-shem]

вот передаю я строку "IFF(2>1,1,2)" и все равно вылетает ошибка!!!!

[Antonariy]

vbscript не знает что такое iif, в нет такой функции.

[sl-shem]

и ни чем заменить его нельзя???

[RayShade]

Поставь ему значение .language="JavaScript" и замени IIF на

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

function a()
{
var b=(2>3)?100:10;
return b;
}

[Antonariy]

Написать свой IIF и добавить через AddCode.

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

Function IIF(Condition, TrueValue, FalseValue)
    If Condition Then
        IIF = TrueValue
    Else
        IIF = FalseValue
    End IF
End Function

Но это имеет смысл только если у тебя километры кода, который надо перевести с VB на VBScript и активно юзается IIF. Лучше пиши вместо него развернутое условие.