|
| 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 Boller, dez., 10 2014 3:52 PM - 2 respostas |
| |
| | | |
|
| |
Membro registado
4.520 mensagems |
|
| Publicado em dezembro, 10 2014 - 3:52 PM |
#########################################################################################
tmpArq is string
tmpArq = fImageSelect(EdtArqPdf,"","Selecione PDF...","PDFs"+TAB+"*.PDF")
IF tmpArq<>"" THEN
EdtArqPdf = tmpArq
ImgPDF = tmpArq
StaTextoDoPDF = PDFToText(tmpArq,"1")
END
#########################################################################################
|
| |
| |
| | | |
|
| | |
| |
Membro registado
4.520 mensagems |
|
| 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/ |
| |
| |
| | | |
|
| | |
| |
Membro registado
4.520 mensagems |
|
| 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)
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/ |
| |
| |
| | | |
|
| | | | |
| | |
|