La nueva función ExecScript() en VFP 7.0 permite que usted ejecute una secuencia de código "al vuelo".
El ejemplo de abajo también hace uso de la nueva sintaxis TEXT TO para crear la cadena de comandos.
Simule esto es su código PRG o método:
* * código normal del PRG o método aquí ... * * * cree una cadena de comandos "al vuelo" * TEXT TO lcCode NOSHOW LOCAL lcOutput,xx lcOutput = SPACE(0) FOR xx = 1 to 10 lcOutput = lcOutput + ; "Line " + TRANSFORM(xx) + ; CHR(13) + CHR(10) ENDFOR RETURN lcOutput ENDTEXT * * ejecute los comandos aquí * LOCAL lcRetVal lcRetVal = EXECSCRIPT(lcCode) * * continúe ejecutando el PRG o método... *
Solamente tenga cuidado que ExecScript() es relativamente lento.
VFP Tips & Tricks - Drew Speedie