VFP equivalent to EVAL() ???

[mp9]

Is there a VFP equivalent to the EVAL() function in VBA?

For those unfamiliar with EVAL(), it can be used to evaluate an expression that results in a text string or a numeric value. Amongst other things, it can be used to evaluate/construct function names on the fly, e.g.

    Dim intI As Integer

    For intI = 1 To 50
        Eval("A" & intI & "()")
    Next intI

in VBA runs the functions A1, A2, A3, etc, sequentially.

I need to do something similar in VFP 5.0a but can't find a similar function. Anyone have any ideas?

 

[Olaf Doschke]

There is EVALUATE(), which can also be abbreviated to EVAL():

? Evaluate("myfunc()")

Function myfunc()
  Return "hello"
EndFunc

The function must be in scope (known by being in the same PRG or by SET PROCEDURE TO or being a native function call).

In your case perhaps:

set procedure to a_functions.prg additive && containing a1() to a50()
Local liCount 
For liCount = 1 To 50
   Eval("A" +transform(liCount)+ "()")
Next iCount

Then there is Execscript(), which could be called once with all the calls in one string:

set procedure to a_functions.prg additive && containing a1() to a50()
Local liCount , lcCode
lcCode = ""
For liCount = 1 To 50
   lcCode = lcCode+ "A" +transform(liCount)+ "()"+chr(13)+chr(10)
Next liCount
Execscript(lcCode)

Bye, Olaf.

 

[alvechurchdata]

You could also use the macro expansion operator &:

Local intI

For intI = 1 To 50
  lcFunc = "A" + transform(intI) + "()"
  &lcFunc
Next intI

Fox doesn't let us concatenate the string "A" and the integer intI so it looks a little more ungainly than VB.

Geoff Franklin

http://www.alvechurchdata.co.uk