Se podrá leer el texto de un PDF y guardar algunos datos ?

[AIDA]

Hola

No se si se pueda leer ciertos datos del texto de un PDF para guardarlos en una base de datos

Saluditos

[anserkk]

Try this. I found it in this forum.
The code expects OpenOffice to be installed on the PC

Code: Select all  Expand view

**============================================================================**
** Author....: José Maria da Silva                                             **
** Purpose : Read a PDF, extract text and display on browse, save as TXT.      **
** Pre-Requirement: Must have OpenOffice/Broffice installed on the PC          **
**=============================================================================**

#INCLUDE "FIVEWIN.CH"
#include "xbrowse.ch"


//------------------------//
FUNCTION MAIN()

    LOCAL oService,oDesktop,oDoc,oShape,oCursor,oDrawPage,aProp:={},i
    LOCAL cFile,cText,aVetStr:={}
   
    cFile := cGetFile("Files (pdf,odg)|*.odg;*.pdf|",;
                      "Select file (pdf/odg)", 4 )
   
    IF EMPTY(cFILE) ; RETURN .F. ; ENDIF
    cFile := "file:///"+StrTran(cFile,"\","/")
   
    oService := TOleAuto():New("com.sun.star.ServiceManager")
    oDesktop := oService:createInstance("com.sun.star.frame.Desktop")
    AAdd(aProp,MakePropertyValue(oService,"Hidden",.T.)) //oculta
    oDoc := oDesktop:loadComponentFromURL(cFile, "_blank", 0, aProp)
   
    oDrawPage := oDoc:getDrawPages():getByIndex(0)
   
    MsgInfo(oDrawPage:getCount())
    //You may add oMeter
    FOR i:=0 TO oDrawPage:getCount()-1
        oShape := oDrawPage:getByIndex(i)
       
        oCursor := oShape:createTextCursor()
       
        cText := oCursor:getText():getString()
        AADD(aVetStr,cText)
    NEXT
   
    oDoc:Close(.T.)
   
    xbrowse(aVetStr)

RETURN NIL

//--------------------------------------------------------//
STATIC FUNCTION MakePropertyValue(oService,cName,nValue)

    LOCAL oStruct := oService:Bridge_GetStruct("com.sun.star.beans.PropertyValue")
    oStruct:Name := cName
    oStruct:Value := nValue
RETURN(oStruct)

Regards
Anser

[AIDA]

Muchas gracias anserkk

haré unas pruebas y te comento

Gracias

Saluditos

[AIDA]

no funciona sale este error


Time from start: 0 hours 0 mins 5 secs
Error occurred at: 05-06-13, 22:49:24
Error description: Error com.sun.star.ServiceManager:CREATEINSTANCE:LOADCOMPONENTFROMURL/6 DISP_E_UNKNOWNNAME: GETDRAWPAGES
Args:

Stack Calls
===========
Called from: => TOLEAUTO:GETDRAWPAGES( 0 )
Called from: C:\fwh\PEGASO\PRG\test.prg => PDFTXT( 5891 )
Called from: C:\fwh\PEGASO\PRG\test.prg => (b)MAIN( 630 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 465 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 656 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1714 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1408 )
Called from: C:\FWH\SOURCE\CLASSES\window.prg => _FWH( 3177 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 270 )
Called from: C:\fwh\PEGASO\PRG\test.prg => MAIN( 667 )

[AIDA]

a un no logro nada

[anserkk]

It is working fine here on a PDF that contains text. I tested with LibreOffice ver 4.0.0
If u can send me the PDF file, I shall test it here

Regards
Anser

[Antonio Linares]

Aida,

Estoy probando un código que podriamos usar sin necesidad de LibreOffice, ni nada más

viewtopic.php?f=6&t=26511

[leandro]

Antonio buenas tardes

Ya es posible esto desde fw?

Saludos

[sysctrl2]

Aide , pudiste?
contáctame y lo resolvemos ,
saludos.

SysCtrlSoftware ARROBA Gmail.com