Résolu ... avec iTextSharp (PdfBox marche aussi)
Pour ceux que ca intéresse, voici le petit bout de code qui isole chaque "groupe de mots" par un saut de ligne :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Function ExtractionTextePdf(ByVal CheminFichier As String) As String
Dim Lecteur As New iTextSharp.text.pdf.PdfReader(CheminFichier)
Dim Donnees() As Byte = Nothing
Dim Infos As iTextSharp.text.pdf.PRTokeniser = Nothing
Dim Resultat As String = String.Empty
For Page As Integer = 1 To Lecteur.NumberOfPages
Donnees = Lecteur.GetPageContent(Page)
If Not IsNothing(Donnees) Then
Infos = New iTextSharp.text.pdf.PRTokeniser(Donnees)
While Infos.NextToken
Select Case Infos.TokenType
Case iTextSharp.text.pdf.PRTokeniser.TokType.STRING : Resultat &= Infos.StringValue
Case iTextSharp.text.pdf.PRTokeniser.TokType.NAME : Resultat &= vbCrLf
End Select
End While
End If
Next
Return Resultat.Trim
End Function |