Validar tipos de Archivos

[integral]

Estimados Amigos :

Nuevamente recurriendo a ustedes con el fin de que me orienten sobre una validacion de tipos de archivos.

Resulta que en el proceso de la importacion del EXCEL a VFP en algunos casos nos envian archivos de diferentes formatos por ello la necesidad

de crear una rutina que logre realizar deicah validacion antes de realizar el proceso.

Archivos de extension :

Libro de MS Office Excel : *.xls
Plantilla: *.xlt
Complemento de MS Office Excel: *.xla
Libro de Excel 2007: *.xlsx
Libro Binario de Excel 2007: *.xlsb
Libro con macros habilitadas de Excel 2007: *.xlsm
Plantilla de Excel 2007: *.xltx
Plantilla con macros habilitadas de Excel 2007: *.xltm
Complemento de Excel 2007: *.xlam

Solamente el sistema importara archivos de extension XLS

Agradezco sus comentarios y sugerencias

Saludos,

INTEGRAL

[Ultraton500]

Creo que esto es lo que necesitas:

lcArchivo = GETFILE("xls", "Archivo:", "Aceptar",0, "Examinar")

lcExtension = SUBSTR(lcArchivo,RAT('.',ALLTRIM(lcArchivo)) + 1)

IF UPPER(lcExtension) <> "XLS"

MESSAGEBOX("Extensión equivocada")

ELSE

*Tu proceso aquí

ENDIF

Espero te sirva.

Saludos,

Javier.

[Ricardo Pina]

Hola Integral

tuarchivo="D:\siscarga\TOTTUS\SLI\GABRIEL REPORTE.xls"

? JUSTEXT(tuarchivo)

Saludos

--

            

                   Ricardo Pina

Desarrollo y Servicios Informáticos

                  Profesionales
               www.dsip.com.ar

 

 

[mapner]

Hola Integral,
Aparte de validar extensión podés hacer una conversión mediante automatización de Excel (abrir el file y luego "grabar como") de los formatos que no sean importables en forma directa a VFP.
Saludos

[HernanCano]

Lee sobre ADIR().

[integral]

Gracias Amigos por sus comentarios y sugerencias siempre son bien recibidas y puestos en practica.

Amigo MAPNER coincido contigo en la idea el tema es como hacerlo como bien dices de forma automatizada. Para no tener que pedirle al usuario final que tenga que convertirlo al formato definido...

Este punto lo estaba manejando de esa forma con los usuarios pero por mas que se les explica se equivocan de formato. Como bien sabes al momento de GUARDAR COMO existen varios formatos para escoger y por no buscar bien guardan en cualquier formato y eso ahora tengo que corregirlo para simplificarle el trabajo de buscar...

Algun colega conoce la forma de hacer este proceso de forma automatizada

atte.

INTEGRAL

El viernes, 30 de enero de 2015, 23:41:58 (UTC-5), integral escribió:

[integral]

Bueno amigos :

Solo para hacer una aclaracion de la funcion de cada comando.

cArchivo = GETFILE()

*  Solo muestra el nombre
? JUSTFNAME(cArchivo)

* Solo muestra la ruta
? JUSTPATH(cArchivo)

*-- Solo muestra la extensión
? JUSTEXT(lc)

atte.,

INTEGRAL

El viernes, 30 de enero de 2015, 23:41:58 (UTC-5), integral escribió:

[HernanCano]

Bueno, colega.

Me complace que hayas marcado mi respuesta como la que te ayudó.

Pero no dices cómo o por qué.

De todas formas me parece que debieras incluir dos extensiones XLS y XLSX, pero tu escenario es más definitivo que una recomendación desconociéndolo.

VFP rocks!!

VFP firme!!

El sábado, 31 de enero de 2015, 8:02:14 (UTC-5), HernanCano escribió:

Lee sobre ADIR().

 

[integral]

Amigo HERNAN :

Todas las ideas mostradas me sirvieron para resolver mi duda. Para redondear la nota quice mostrar las diferencias en cada caso.

Pero te puedo decir ademas que desde VFP 8.0 no se puede importar con el CreateObject un archivo EXCEL 2007 entonces en esos casos

solo queda 2 alternativas

1) El usuario deberá convertirlo a una versión anterior

2) Hacer que el sistema lo convierta de manera automatizada.

atte.,

INTEGRAL

El viernes, 30 de enero de 2015, 23:41:58 (UTC-5), integral escribió: