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