Differenze tra le versioni di "Cercare una parola in una pagina di un file PDF con le risorse del Componente gb.poppler"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "E' possibile cercare una parola in una pagina di un file PDF mediante le risorse del Componente gb.poppler . Mostriamo un semplice esempio: '''Public''' Sub Main() Dim...") |
|||
| Riga 2: | Riga 2: | ||
Mostriamo un semplice esempio: | Mostriamo un semplice esempio: | ||
| − | + | Public Sub Main() | |
| − | Dim | + | Dim pdf As New PdfDocument |
Dim s As String | Dim s As String | ||
Dim c As Short | Dim c As Short | ||
| − | + | pdf = New PdfDocument("<FONT Color=darkgreen>''/percorso/del/file.pdf''</font>") | |
s = "<FONT Color=gray>''parola_da_cercare''</font>" | s = "<FONT Color=gray>''parola_da_cercare''</font>" | ||
<FONT Color=gray>' ''Verifica se nella prima pagina (indice zero) del file PDF esiste la parola prescelta:''</font> | <FONT Color=gray>' ''Verifica se nella prima pagina (indice zero) del file PDF esiste la parola prescelta:''</font> | ||
| − | c = | + | c = pdf[0].FindText(s).Count |
If c > 0 then Print "Esistono "; c; " occorrenze della parola cercata: "; Quote(s) | If c > 0 then Print "Esistono "; c; " occorrenze della parola cercata: "; Quote(s) | ||
| − | + | End | |
Versione delle 13:56, 19 gen 2024
E' possibile cercare una parola in una pagina di un file PDF mediante le risorse del Componente gb.poppler .
Mostriamo un semplice esempio:
Public Sub Main()
Dim pdf As New PdfDocument
Dim s As String
Dim c As Short
pdf = New PdfDocument("/percorso/del/file.pdf")
s = "parola_da_cercare"
' Verifica se nella prima pagina (indice zero) del file PDF esiste la parola prescelta:
c = pdf[0].FindText(s).Count
If c > 0 then Print "Esistono "; c; " occorrenze della parola cercata: "; Quote(s)
End
Note
- Vedere anche questa pagina della Wiki: Convertire in immagine una parte di una pagina PDF con le risorse del Componente gb.poppler
