Jump to content
Fivewin Brasil

Pdf para Txt ( Resolvido )

Scooby

By Scooby
in Programação

 Share

Recommended Posts

Scooby Newbie

Scooby

Posted
Posted

Olá Garimpeiros

Gostaria de saber se existe alguma classe nativa do xHarbour ou executável ( De preferencia que execute via linha de comando ) que converta Arquivos PDF em Txt.

Márcio Pinheiro Varjão

DECLA TECNOLOGIA

xHB build 1.2.1 (SimpLex) & BCC 5.82 & FW 11.12 / Pelles C 6.50.8

Editado por - scooby on 13/03/2012 15:10:05

Link to comment
Share on other sites
Scooby Newbie

Scooby

Posted
  • Author
Posted

Olá Garimpeiros

Gostaria de saber se existe alguma classe nativa do xHarbour ou executável ( De preferencia que execute via linha de comando ) que converta Arquivos PDF em Txt.

Márcio Pinheiro Varjão

DECLA TECNOLOGIA

xHB build 1.2.1 (SimpLex) & BCC 5.82 & FW 11.12 / Pelles C 6.50.8

Editado por - scooby on 13/03/2012 15:10:05

Link to comment
Share on other sites
evandro Newbie

evandro

Posted
Posted

Olá,

Que eu saiba não tem uma classe, mas tem um executável que faz isto muito bem ( Convert Doc ). Quem sabe bem sobre isto está muito longe de você. É o Alex2002. icon_smile.gif

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na Roça)

FWH 9.01+PellesC+MyMake+xHarbour.org 1.00+SqlLib

Link to comment
Share on other sites
Scooby Newbie

Scooby

Posted
  • Author
Posted

citação:

Olá,

Que eu saiba não tem uma classe, mas tem um executável que faz isto muito bem ( Convert Doc ). Quem sabe bem sobre isto está muito longe de você. É o Alex2002. icon_smile.gif

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na Roça)

FWH 9.01+PellesC+MyMake+xHarbour.org 1.00+SqlLib

id=quote>id=quote>

Olá...

Pois é Evandro, eu até conversei com o Alexandre, mas o problema é que o Convert Doc precisa ser instalado e estava precisando de algo nativo preferencialmente.

Márcio Pinheiro Varjão

DECLA TECNOLOGIA

xHB build 1.2.1 (SimpLex) & BCC 5.82 & FW 11.12 / Pelles C 6.50.8

Link to comment
Share on other sites
Jmsilva Apprentice

Jmsilva

Posted
Posted

Olá Pessoal, diante da falta de opção vou apresentar a minha solução, porém sei que não é o desejado pelo Márcio. Mas estou postando a rotina a baixo porque poderá ser útil para quem precisa ler um PDF e tratar o texto como desejar, salvando-o em txt, dbf, como achar melhor e não tem opção melhor.

O indesejado é a necessidade de ter instalado o pacote Office(seja Br ou Open) .

Mas acho bastante útil.



** Autor....: José Maria da Silva                                             **


** Objetivo: Ler um arquivo Draw ou PDF, extrair e exibir em browse,          **


** salvar em TXT.                                                             **


** Requesito: Precisa ter o Broffice instalado                                **                             **


**============================================================================**


#INCLUDE "FIVEWIN.CH"


**==============================================================================


FUNCTION MAIN()


**==============================================================================


LOCAL oService,oDesktop,oDoc,oShape,oCursor,oDrawPage,aProp:={},i


LOCAL cFile,cTEXTO,aVetStr:={}


cFile := cGetFile("Arquivo (pdf,odg)|*.odg;*.pdf|",;


                  "Selecione o Arquivo (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)


//AKI pode colocar um oMeter


FOR i:=0 TO oDrawPage:getCount()-1


  oShape := oDrawPage:getByIndex(i)


  oCursor := oShape:createTextCursor()


  cTEXTO := oCursor:getText():getString()


  AADD(aVetStr,cTEXTO)


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)


id=code>id=code>
JMSILVA-Caraguatatuba/SP



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Scooby
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Scooby
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Olá Jmsilva


Obrigado pelo exemplo de como tratar um arquivo pdf, irei fazer os teste para ver se deu tudo certinho... mas antecipadamente agradeço pela boa vontade..


Valew





citação:
Olá Pessoal, diante da falta de opção vou apresentar a minha solução, porém sei que não é o desejado pelo Márcio. Mas estou postando a rotina a baixo porque poderá ser útil para quem precisa ler um PDF e tratar o texto como desejar, salvando-o em txt, dbf, como achar melhor e não tem opção melhor.


O indesejado é a necessidade de ter instalado o pacote Office(seja Br ou Open) .


Mas acho bastante útil.


 




** Autor....: José Maria da Silva                                             **


** Objetivo: Ler um arquivo Draw ou PDF, extrair e exibir em browse,          **


** salvar em TXT.                                                             **


** Requesito: Precisa ter o Broffice instalado                                **                             **


**============================================================================**


#INCLUDE "FIVEWIN.CH"


**==============================================================================


FUNCTION MAIN()


**==============================================================================


LOCAL oService,oDesktop,oDoc,oShape,oCursor,oDrawPage,aProp:={},i


LOCAL cFile,cTEXTO,aVetStr:={}


cFile := cGetFile("Arquivo (pdf,odg)|*.odg;*.pdf|",;


                  "Selecione o Arquivo (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)


//AKI pode colocar um oMeter


FOR i:=0 TO oDrawPage:getCount()-1


  oShape := oDrawPage:getByIndex(i)


  oCursor := oShape:createTextCursor()


  cTEXTO := oCursor:getText():getString()


  AADD(aVetStr,cTEXTO)


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)


id=code>id=code>
JMSILVA-Caraguatatuba/SP




id=quote>id=quote>
Márcio Pinheiro Varjão


DECLA TECNOLOGIA


xHB build 1.2.1 (SimpLex) & BCC 5.82 & FW 11.12 / Pelles C 6.50.8



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Scooby
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Scooby
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Olá Kapiaba...


Irei olhar essa classe, talvez ela ajude a solucionar o meu problema...


Obrigado





citação:
http://www.baixaki.com.br/download/free-pdf-to-word-doc-converter.htm


João Santos - São Paulo.


joao@pleno.com.br


Fone: (11) 3106-2832


http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196


FWH 2.7 - xHARBOUR WorkShop.Exe




id=quote>id=quote>
Márcio Pinheiro Varjão


DECLA TECNOLOGIA


xHB build 1.2.1 (SimpLex) & BCC 5.82 & FW 11.12 / Pelles C 6.50.8



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Scooby
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Scooby
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Olá a Todos 


Só para constar o encerramento do tópico, conversei com o Luiz Kulik e ele me passou a seguinte ferramenta, caso alguém precise Xpdf: Download www.foolabs.com/xpdf/download.html 


Muito bom...


Abraço


Márcio Pinheiro Varjão


DECLA TECNOLOGIA


xHB build 1.2.1 (SimpLex) & BCC 5.82 & FW 11.12 / Pelles C 6.50.8



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				
			
			



		

	


	
	
	
	
	
		
	

			
				
				

	
		

			
Join the conversation

			

	
				
					You can post now and register later.
				
				If you have an account, sign in now to post with your account.
				
			

	
		

	




	
	
		
	
		
	
		
	
	
		
		
	
	

		

		


	
		Guest
	


		

			
				
					
				
					
						
    
							
  • 
								


	
	
	
	

								
							
    • 
						

					
				
					
				
			
			
				
					
						
							
						
						



    

		
		

			
		

		
			
 Reply to this topic...

		
		

			

				
					×
					  Pasted as rich text.   Paste as plain text instead
				
			

		

		

			

				  Only 75 emoji are allowed.
			

		

		

			

				×
				  Your link has been automatically embedded.   Display as a link instead
			

		

		

			

			

		

		

			

				×
				  Your previous content has been restored.   Clear editor
			

		

		

			

				×
				  You cannot paste images directly. Upload or insert images from URL.
			

		

		


	

		

			
			

				Loading...
			

		
		
	



	

	

		

			×
			
		

		

	



						
					
				
					
				
					
				
			
			
    
				
					
						
					
						
					
						
							
  • 
								

    
	

    
								
							
    • 
						
					
				
				
					
  • 

	

    • 
				
			

		

	



			
		

	

	
		

			

				
					


    
          Share
    

    

        
        
            

            
        
    


				
				
                

                




				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •