PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
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, dez., 10 2014 3:52 PM - 2 respostas
#1
Membro registado
3.655 mensagems
Popularité : +175 (223 votes)
Publicado em dezembro, 10 2014 - 3:52 PM
//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

#########################################################################################
#2
Membro registado
3.655 mensagems
Popularité : +175 (223 votes)
Publicado em março, 05 2020 - 9:50 PM
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/
#3
Membro registado
3.655 mensagems
Popularité : +175 (223 votes)
Publicado em abril, 06 2021 - 1:17 PM
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/
→ Voltar para WINDEV Mobile 2024