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