FoxPro/Visual FoxPro - Apertura de Tablas usando comodines

 
Vista:

Apertura de Tablas usando comodines

Publicado por Martin (13 intervenciones) el 19/08/2011 16:04:57
Buenas....

A ver si me pueden ayudar.

Tengo que desarrollar un bucle que me vaya abriendo un conjunto de tablas las cuales tienen la siguiente estructura.

clientes (copia suc 1)
clientes (copia suc 2)
clientes (copia suc 3)

Este bucle miraría un directorio x e iría abriendo en todas las tablas que se llamen clientes (copia suc x)

Puede haber 1,2, n o ninguna tabla con este nombre.

Alguna idea?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Aclaración: Apertura de Tablas usando comodines

Publicado por Martin (13 intervenciones) el 19/08/2011 16:11:08
Hago una aclaración....

Las tablas pueden nombrarse....

clientes (suc 1) altos
clientes (suc 2) aswwe
clientes (suc 3) ereer

yo necesito abrir todas las tablas que se llaman "clientes (suc"

alguna idea?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 309
Bronce
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Apertura de Tablas usando comodines

Publicado por santiago (551 intervenciones) el 19/08/2011 19:04:17
Hola:
lo siguiente guarda todos los *.dbf en el file ARCHIVOS.DBF

*********************************************
DIMENSION ARR(ADIR(ARR,"*.DBF"))
N=ADIR(ARR,"*.DBF")
x=1
sele 1
use archivos
fTmpVo1=sys(3)
copy stru to &fTmpVo1
Sele 1
use &fTmpVo1 alias tempvo1 EXCLUSIVE
go top
do while .t.
append blank
repl nombre with ARR(x)
x=x+5
if x>(n*5)-4
exit
endif
enddo
*********************************************

** estructura de ARCHIVOS.DBF
** nombre c 40

Luego creas un bucle (DO WHILE - ENDDO), donde preguntas desde el primer registro hasta el ultimo si cumple con la condicion, algo asi:

if substr(nombre,1,13)="Clientes (suc"
** ejecutar comando
endif

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar