помогите с MSscriptControl

[vrodo]

Доброе время суток
неполучается добавить Code в ScriptControl

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

MyStr = "Function Ftl(num As Double) As String " & vbCrLf & _
        "Dim I As Double  " & vbCrLf & _
        "Ftl = """"  " & vbCrLf & _
        "Select Case num  " & vbCrLf & _
        "Case Is > 0  " & vbCrLf & _
        "For I = 1 To num  " & vbCrLf & _
        "If Len(fln) > 0 Then fln = fln + "" * ""  " & vbCrLf & _
        "Ftl = Ftl + I " & vbCrLf & _
        "Next I " & vbCrLf & _
        "Case Else " & vbCrLf & _
        "Ftl = str(0) " & vbCrLf & _
        "End Select " & vbCrLf & _
        "End Function"
Debug.Print MyStr
ScriptControl1.AddCode MyStr

debuger печатает

Function Ftl(num As Double) As String
Dim I As Double
Ftl = ""
Select Case num
Case Is > 0
For I = 1 To num
If Len(fln) > 0 Then fln = fln + " * "
Ftl = Ftl + I
Next I
Case Else
Ftl = str(0)
End Select
End Function

но при добавлении вадает ошибку
run-time error '1006'

expected ')'

Но ГДЕ!

[RayShade]

Насколько я помню, в VBS функции описываются без возвращаемого типа значения. То есть просто Function MyFunc (param).

Также вызывает сомнения вот эта часть кода Case Is > 0

[vrodo]

Сама функция рабочая, проверил.
а по поводу не возвращаемых значений

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

m.AddCode ("function MyFunc (v as double ) as double " & vbCrLf & " myfunc = v*2" & vbCrLf & " end function")

нашел в этом же форуме RedShade писал кажется

[RayShade]

Ну уж мог бы и не коверкать никнейм-то

А с кодом что то вооще мистическое У меня тот же еррор вылазит. А если вставляю в тело модуля формы код, то все окей

[vrodo]

Извини не хотел обидеть

Так что делать то ?

[RayShade]

Да я не обиделся

А фиг знает если честно что делать.

Наверное кого третьего позвать Потому что у меня устойчивое впечатление того, что мы просто не видим какую то ошибку, знаешь как бывает когда очки на лбу ищут

[Vi]

VBScript немного ограниченней VB, поэтому нужно писать проще. Проверяется записью в файл *.vbs и его запуском.

1. VBScript нетипизирован, поэтому там все переменные Variant-ы, а потому либо не объявляются, либо Dim x

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

function MyFunc (v)
   Dim a
   a = 2
   myfunc = v*a
end function


2. И т.п.

Вот работающий в vbs код, если не наврал в семантике.

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

Function Ftl(num)
   Dim I
   Ftl = ""
   if num > 0 then
      For I = 1 To num
         If Len(Ftl) > 0 Then Ftl = Ftl & " * "
         Ftl = Ftl & I
      Next
   Else
      Ftl = cstr(0)
   End If
End Function


[vrodo]

Спасибо большое вроде помогло

да не очень
я ведь по наивности своей думал что таким образом добавлю новую функцию наравне с COS, Sin, Exp и так далее
Может продолжим тему ? А.....