PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV Mobile 2024 → Procedure to Extract text from PDF files with Windev (Procedimento para Extrair texto de arquivos PDF com Windev)
Procedure to Extract text from PDF files with Windev (Procedimento para Extrair texto de arquivos PDF com Windev)
Iniciado por adrianoboller, 10,dic. 2014 15:52 - 2 respuestas
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 10,diciembre 2014 - 15:52
//Procedure to Extract text from PDF files with Windev
//Procedimento para Extrair texto de arquivos PDF com Windev
#########################################################################################

tmpArq is string

tmpArq = fImageSelect(EdtArqPdf,"","Selecione PDF...","PDFs"+TAB+"*.PDF")



IF tmpArq<>"" THEN

EdtArqPdf = tmpArq // mostra o nome do arquivo na tela

ImgPDF = tmpArq // mostra o PDF na tela

StaTextoDoPDF = PDFToText(tmpArq,"1") // extrai texto pg 1

END

#########################################################################################
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 05,marzo 2020 - 21:50
Procedure Pdf_Extrair_Txt()

IF YesNo("Total de Número de págs no PDF é de: " + EDT_Pag_Final + ", deseja prosseguir?") THEN

x is int

sTexto is string

LOOP (EDT_Pag_Final)
x++
IF x <= EDT_Pag_Final
sTexto += PDFToText(EDT_Path,""+x+"") + CR
ELSE
BREAK
END
END

fSaveText("c:\temp\extraido.txt",sTexto)

ShellExecute("c:\temp\extraido.txt")

END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 06,abril 2021 - 13:17
sFichier is string = fSelect("", "", "Selecione uma imagem ou um pdf ...", fGraphicFilter(), ExtractString(ExtractString(fGraphicFilter(), 2, TAB), 1, CR))

IF sFichier <> ""
SetFocus(EDT_Text)
ExtraitTexte(sFichier)
IF StringCount(sFichier,"pdf",IgnoreCase) > 0

x is int = 0

LOOP(10) // 10 páginas
x++
EDT_Text1 += PDFToText(sFichier,""+x+"")
END

END

IF EDT_Text1 = "<RC>" THEN

END

END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/