FoxPro/Visual FoxPro - Nombres de Archivos

 
Vista:

Nombres de Archivos

Publicado por Zamora (25 intervenciones) el 06/03/2006 19:07:56
Estoy haciendo un programa para filtrar los reportes que me manda el conmutador estos estan con una ext "SCV"
Ya los pase a bases de datos, pero para decirle al programa cual es el archivo que tiene que pasar a la DBF estoy utilizando un "List" y funciona, pero como podira leer los nombres de los archivos para ponerlos en un “gris” o en un “cursosr” y seleccionar con un “check” los que necesito por que en este momento estoy haciendo de uno en uno y son desde el 2k4 y de uno en uno esta cansado :).

De antemano gracias.
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

RE:Nombres de Archivos

Publicado por Antonio (207 intervenciones) el 07/03/2006 13:59:57
Saludos,

Zamora,
Tu tienes definido el nobre de cada archivo? o sea sabes como se llaman.

Por ej:

c:\archivo1.csv
c:\archivo2.csv
c:\archivo3.csv

Etc.

Si es asi creo que esta algo facil, digo si es asi.

Solo tienes que crear una pequña tabla temporal.

Create table c:\rutaarchivos.dbf free(sta L, ruta c(20))

Esta es la tabla que tendras en el grid

el campo sta = a donde tendras el check.
ruta = donde con una funcion o programa previamente llenaras este campo con la ruta en donde estan los archivos.

ej:
c:\archivo1.scv
c:\archivo2.csv
c:\archivo3.csv
etc.

Ej:
IF !USED('rutaarchivos')
USE C:\rutaarchivos.dbf
ENDIF
select rutaarchivos
N =1
Do While .T.
append blank
Repla ruta with 'archivo'+str(N)+'.csv'
IF N = 20 &&= cantidad de archivos, ojo esta variable tambien la
puedes enviar desde el parametro de entrada.
EXIT
ENDIF
N = N + 1
Enddo

Lo otro seria leer desde esta tabla lo siguiente, si el campo sta esta marcado como .T. o sea los que ya seleccionaste desde el GRID:

select ruta ;
from rutaarchivos;
where sta = .T.;
into cursor tempruta

select tempruta
go top
Do while !eof()

store tempruta.ruta to ruta1
select tablaDBF && = a la tabla DBF en donde guardaras los datos *.CSV
append from &ruta1

select tempruta
skip
if eof()
exit
endif
enddo

Bueno espero que esto sea lo que quieres, de lo contrario explicame mejor

Att.
Antonio R. Moquete Mejia
Santo Domingo Rep. Dom.
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

RE:Nombres de Archivos

Publicado por Zamora (25 intervenciones) el 07/03/2006 18:48:20
El nombre de los archivos es este y es el que manda el conmutador

SMDR(backup10-10-2004).csv
SMDR(backup1-1-2005).csv
SMDR(backup1-1-2006).csv
SMDR(backup1-10-2005).csv
SMDR(backup1-10-2006).csv

Lo que me gustaria hacer es solo agregarlos los archivos (copy/paste) y cuando habrieran la apps lo cargara automaticamente.
en una DBF guardaria los ya cargador y los precentaria ya checados

Gacias por el apoyo.
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