Comandos en fox pro
Me encargaron hacer una tabla, en la cual un campo debe llamarse Testfile y el otro numonly y cada una debe tener 40 caracteres, el testfile se debe escribir letras y números(ejem: ASDSF13145SAD) y en la de Numonly otra nada, y me dijeron que hiciera un comando que separara los números de la campo Testfile y que esos números las agregue al campo de Numonly (ejem: Testfile ASDFSAD y en Numonly 13145) pero no como hacerlo
me direron el código pero me sale usuarios error
campo=.f.
for nCnt=1 to fcount ()
if field (nCnt) =upder ("textfield")
if type("textfiel")="c"
campo=.t.
endif
endif
endfor
if campo
scan
ctest=textfield
cNumonly=""
for nCnt=1 to len (test)
nCaracter =substr(cTest,nCnt,1)
if isdigt (cCaracter)
cNumonly=nNumonly + cCaracter
endif
endfor
?ctest
?cNumonly
Replace numonly with Cnumonly
end scan
Endif
Eso me pasaron y me marca error me puede detectar el error
me direron el código pero me sale usuarios error
campo=.f.
for nCnt=1 to fcount ()
if field (nCnt) =upder ("textfield")
if type("textfiel")="c"
campo=.t.
endif
endif
endfor
if campo
scan
ctest=textfield
cNumonly=""
for nCnt=1 to len (test)
nCaracter =substr(cTest,nCnt,1)
if isdigt (cCaracter)
cNumonly=nNumonly + cCaracter
endif
endfor
?ctest
?cNumonly
Replace numonly with Cnumonly
end scan
Endif
Eso me pasaron y me marca error me puede detectar el error
1 Respuesta
Respuesta de Alonso Jarrín Solís
1
Bueno ya lo encontré uno pero aun me sale una ventana que me dice "la instrucción no esta permitido en el modo interactivo"
Y eso me marca al empezar el código en la ventana de Comandos
campo=.t.
for nCnt=1 to fcount() es aqui donde me aparece este mensaje, despues de escribir lo demas codigos
if field (ncnt)=upper ("textfield") y despues doy un enter me manda el mismo mensaje " la instruccion no esta permitido en el modo interactivo" y asi hasta abajo
no se a que se debe
Y eso me marca al empezar el código en la ventana de Comandos
campo=.t.
for nCnt=1 to fcount() es aqui donde me aparece este mensaje, despues de escribir lo demas codigos
if field (ncnt)=upper ("textfield") y despues doy un enter me manda el mismo mensaje " la instruccion no esta permitido en el modo interactivo" y asi hasta abajo
no se a que se debe
Las cláusulas For-Endfor, Do While-Enddo, Scan-Endscan, If-Endif y otras más no se pueden ejecutar desde la ventana de comandos, ese código debes ejecutarlo en un archivo de programa (*. Prg).
