
Ejecutar código sin compilar desde un campo Memo
FoxPro/Visual FoxPro
Publicado el 4 de Junio del 2015 por Héctor Orlando
4.391 visualizaciones desde el 4 de Junio del 2015
Con este código podrás escribir código en el campo MEMO de una tabla en ejecución y hacer que un ejecutable ya complilado lo ejecute.
No se si existe otro lenguaje que pueda hacer esto sin compilar.
Ejemplo de un campo Memo:
CAMPO MEMO CLIENTES.VALIDAR
m.Variable00 = 5
1DO WHILE !EMPTY( m.Variable00)
WAIT WINDOW m.Variable00 TIMEOUT .4
m.Variable01= 'ABCD'
2DO WHILE !EMPTY( m.Variable01)
m.Variable02 = LEFT( m.Variable01, 1)
m.Variable01= SUBSTR( m.Variable01, 2)
WAIT WINDOW m.Variable02 TIMEOUT 1
1IF m.Variable02 == 'C'
WAIT WIND 'Se terminó' time 1
LOOP
1ENDIF
WAIT WIND 'Sigo' time 1
2ENDDO
m.Variable00 = m.Variable00 - 1
1ENDDO
2IF 4#4
Wait wind 'Entró 1' time 2
2ELSE
Wait wind 'No debe entrar acá'
2ENDIF
WAIT WINDOW "Proceso Terminado"
Consideraciones importantes.
Delante de las sentensias IF ELSE y ENDIF deberá colocarse un solo número para su adecuada identificación
Delante de las sentensias DO WHILE y ENDDO también.
No se si existe otro lenguaje que pueda hacer esto sin compilar.
Ejemplo de un campo Memo:
CAMPO MEMO CLIENTES.VALIDAR
m.Variable00 = 5
1DO WHILE !EMPTY( m.Variable00)
WAIT WINDOW m.Variable00 TIMEOUT .4
m.Variable01= 'ABCD'
2DO WHILE !EMPTY( m.Variable01)
m.Variable02 = LEFT( m.Variable01, 1)
m.Variable01= SUBSTR( m.Variable01, 2)
WAIT WINDOW m.Variable02 TIMEOUT 1
1IF m.Variable02 == 'C'
WAIT WIND 'Se terminó' time 1
LOOP
1ENDIF
WAIT WIND 'Sigo' time 1
2ENDDO
m.Variable00 = m.Variable00 - 1
1ENDDO
2IF 4#4
Wait wind 'Entró 1' time 2
2ELSE
Wait wind 'No debe entrar acá'
2ENDIF
WAIT WINDOW "Proceso Terminado"
Consideraciones importantes.
Delante de las sentensias IF ELSE y ENDIF deberá colocarse un solo número para su adecuada identificación
Delante de las sentensias DO WHILE y ENDDO también.
70 visualizaciones durante los últimos 90 días