FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
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
Conéctese…
adrianoboller
#1
Miembro registrado
3.657 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
#########################################################################################
Informar
0
0
BOLLER
#2
Miembro registrado
3.657 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: "
+
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/
Informar
0
0
Boller
#3
Miembro registrado
3.657 mensajes
Popularité : +175 (223 votes)
Publicado el 06,abril 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/
Informar
0
0
→ Volver a WINDEV Mobile 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (versiones precedentes)
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto