Sacar datos de un documento de un archivo PDF desde visual foxpro

1,212 views
Skip to first unread message

Carlos Molina

unread,
Jun 15, 2017, 11:29:38 AM6/15/17
to Comunidad de Visual Foxpro en Español
Hola amigos, necesitaria saber si es posible sacar datos (ejemplo DNI, CUIL, ext) de un documento (recibo de sueldo) de un archivo PDF desde visual foxpro.
Desde ya muchas gracias

Jean Pierre Adonis De La Cruz Garcia

unread,
Jun 15, 2017, 11:58:35 AM6/15/17
to Comunidad de Visual Foxpro en Español
Todo lo puedes hacer con automatizacion.
Te dejo unos ejemplos para que te puedas guiar y lograr tu objetivo, lo hice hace años para un cliente, pero no tengo a la mano el codigo fuente, pero si recuerdo de donde tome parte del proceso para realizarlo.

Si lo logras sube y comparte tus conocimientos

Carlos Molina

unread,
Jun 15, 2017, 12:08:05 PM6/15/17
to Comunidad de Visual Foxpro en Español
Gracias amigo por responder tan rápido, pero como no soy muy ducho en el ingles, por lo que entiendo no creo que esto me sirva, yo solo quiero saber como accedo a determinados datos de un pdf como si estuviera accediendo desde una excel, si yo puedo acceder por ejemplo al legajo del empleado, por medio de una tabla de equivalencias creada con anticipación, podría sacar el mail y enviarle a cada empleado su recibo por mail....
El link me manda a una pagina donde creo dice borrar paginas de un pdf desde acrobat automation.

Gracias de todos modos!!!!

Jean Pierre Adonis De La Cruz Garcia

unread,
Jun 15, 2017, 12:30:01 PM6/15/17
to Comunidad de Visual Foxpro en Español
Te soy sincero, debes de tomar la logica de la programacion y hacer un poco de investigacion par que puedas especializare en el tema, la idea no es que te de uno todo el proceso gratuito, al menos eso pude hceer el seguieminto en ese momento y lograr lo que queria a partir de ahi.
Bueno, la otra opcion y casi mas simple para mi, es hacerlo con el Tesseract, pasarlo a TXT y de ahi jalar solo la parte que deseas.
Espero que no me digas ahora que quieres que te lo haga por que ya seria el colmo.
Te dejare unas url para que cominces
si googleas un poco quizas des con lo que buscas mas masticado.
Suerte.

Carlos Molina

unread,
Jun 15, 2017, 12:35:18 PM6/15/17
to Comunidad de Visual Foxpro en Español
Amigo, en ningún momento pedí que alguien hiciera algo, solo pedí información, y realmente yo particularmente no contestaría así a gente que ni conozco y que solo esta pidiendo ayuda dado que no conoce mucho del ingles y que creo que ese no es ningún pecado. Muchas gracias por tus datos y por sobre todo, por tu amabilidad.....

Antonio Meza

unread,
Jun 15, 2017, 12:54:59 PM6/15/17
to Comunidad de Visual Foxpro en Español
Jean mañana es viernes no te desquites con el compañero que solo pidió información, no que le hicieran el trabajo!!! jajajajaja

saludos
Antonio Meza

Jean Pierre Adonis De La Cruz Garcia

unread,
Jun 15, 2017, 1:06:13 PM6/15/17
to Comunidad de Visual Foxpro en Español
Ya estoy respirando un poco, lo que pasa es que comi, Pan con dinamita, y y Agua con Polvora, por eso sera.

Carlos Miguel FARIAS

unread,
Jun 15, 2017, 2:04:37 PM6/15/17
to Grupo Fox
Comerse un pan de dinamita y agua con pólvora no es nada, el problema lo tienes cuando vas al baño, y la extinción de los dinosaurios un poroto

Miguel A.

unread,
Jun 16, 2017, 6:39:05 AM6/16/17
to Comunidad de Visual Foxpro en Español
Hola,
Yo empleo un programilla que se llama PTCMD http://www.a-pdf.com/text/index.htm, que creo que es freeware, para convertir un pdf a texto, de la siguiente forma.
Espero que te sirva.
Saludos,
Miguel 


PROCEDURE leer_
architxt='c:\FOXPRO\tasas.txt'

if .not. file("&a_pdf")
= MESSAGEBOX('  No se encuentra el archivo PDF '+CHR(13)+CHR(10)+ARCHIPDF, 0, ' FALTA ARCHIVO ')
* return
else
* PTCMD.EXE es una utilidad que crea un fichero de texto a partir del PDF 
cCOMANDO='PTCMD.EXE '+a_pdf+' '+architxt
#define SW_SHOW_HIDDEN 0 
oShell = CreateObject("WScript.Shell") 
oShell.Run(cComando, SW_SHOW_HIDDEN, .T.) 
TEMP=INKEY(1)
endif

APPEN MEMO TEXTO_MEM FROM &architxt
* Quitar tabulaciones
REPLACE l_tasas.TEXTO_MEM WITH STRTRAN(TEXTO_MEM,CHR(9),'')
set memowidth to 5000

Carlos Molina

unread,
Jun 16, 2017, 11:42:39 AM6/16/17
to Comunidad de Visual Foxpro en Español
Muchas gracias Miguel por tu ayuda, todavía no lo probé pero me parece que va a funcionar.

Gracias a todos!!!!

Carlos Molina

unread,
Jun 16, 2017, 12:15:58 PM6/16/17
to Comunidad de Visual Foxpro en Español
Miguel, hay alguna forma de obtener este exe gratis (sale u$s 35) y en el sitio solo te dan gratis el GUI para hacerlo manualmente. Sera mucho pedir que me envíes por mail el PTCMD zipeado?

Desde ya muchas gracias


El viernes, 16 de junio de 2017, 7:39:05 (UTC-3), Miguel A. escribió:
Reply all
Reply to author
Forward
0 new messages