hello,
I have the following script executer for vfox6, the only rare things are

{DO} and {ENDDO}
expression to be evaluated here in the 2nd row

{IF} and {ENDIF}
expression to be evaluated here in the 2nd row


I store those code blocks in memo fields and then execute them. I need one just one nesting level.
Any idea will be greatly appreciated.

Best regards,
Pablo Velazco
**************************
the code is stored in memo bin fields


*******snippet:

lnMaxLineas = memlines(valdincode.codegen)

For nCnt = 1 to lnMaxLineas
lcComando = alltrim(UPPER(mline(valdincode.codegen,nCnt)))

Do Case
Case inlist(ALLT(lcComando),"{DO WHILE}","{IF}")
nCnt = nCnt +1
lcExpr =alltrim(UPPER(mline(valdincode.codegen,nCnt)))
nCnt = nCnt +1
nCnt2 = nCnt
Do WHILE (&lcExpr)
lcComando= alltrim(UPPER(mline(valdincode.codegen,nCnt)))
&lcComando
nCnt = nCnt+1
IF inlist(alltrim(UPPER(mline(valdincode.codegen,nCnt))),"ENDIF",ENDDO")
nCnt=nCnt2
ENDIF
Enddo
endcase
enddo
endfor