FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
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)
Débuté par adrianoboller, 10 déc. 2014 15:52 - 2 réponses
Connectez-vous…
adrianoboller
#1
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 10 décembre 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
#########################################################################################
Signaler
0
0
BOLLER
#2
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 05 mars 2020 - 21:50
Procedure
Pdf_Extrair_Txt
(
)
IF
YesNo
(
"Total de Número de págs no PDF é de: "
+
E
DT_Pag_Final
+
", deseja prosseguir?"
)
THEN
x
is int
s
Texto
is string
LOOP
(
E
DT_Pag_Final
)
x
+
+
IF
x
<
=
E
DT_Pag_Final
s
Texto
+
=
PDFToText
(
E
DT_Path
,
""
+x+
""
) +
CR
ELSE
BREAK
END
END
fSaveText
(
"c:\temp\extraido.txt"
,
s
Texto
)
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/
Signaler
0
0
Boller
#3
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 06 avril 2021 - 13:17
s
Fichier
is string
=
fSelect
(
""
,
""
,
"Selecione uma imagem ou um pdf ..."
,
fGraphicFilter
(
)
,
ExtractString
(
ExtractString
(
fGraphicFilter
(
)
,
2
,
TAB
)
,
1
,
CR
)
)
IF
s
Fichier
<
>
""
SetFocus
(
E
DT_Text
)
ExtraitTexte
(
s
Fichier
)
IF
StringCount
(
s
Fichier
,
"pdf"
,
IgnoreCase
) >
0
x
is int
=
0
LOOP
(
10
)
// 10 páginas
x
+
+
E
DT_Text1
+
=
PDFToText
(
s
Fichier
,
""
+x+
""
)
END
END
IF
E
DT_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/
Signaler
0
0
→ Revenir à WINDEV Mobile 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (précédentes versions)
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte