B4X Requires Chilkat v11.7.0+

Extract PDF Text to a StringBuilder and Save to a File

See more PDF Text Extraction Examples

Demonstrates ExtractTextSb, which writes the extracted text to a StringBuilder instead of returning it as a JSON string. Use it for large documents. The JSON output still receives the quality report. B4X

Dim success As Boolean = False

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

'  The PDF used in this example is available at long_report.pdf

Dim pdf As ChilkatPdf
pdf.Initialize("pdf")
success = pdf.LoadFile("qa_data/pdf/long_report.pdf")
If success = False Then
    Log(pdf.LastErrorText)
    Return
End If


Log("Number of pages: " & pdf.NumPages)

'  ExtractTextSb takes the same operation and options as ExtractText, but the text
'  goes to a StringBuilder.  This avoids building a very large JSON string for
'  documents with many pages.
Dim json As ChilkatJsonObject
json.Initialize
Dim sbText As ChilkatStringBuilder
sbText.Initialize
Dim jsonOut As ChilkatJsonObject
jsonOut.Initialize

success = pdf.ExtractTextSb("text", json, sbText, jsonOut)
If success = False Then
    Log(pdf.LastErrorText)
    Return
End If


Log("Extracted " & sbText.Length & " characters.")

'  Save the text to a file.
success = sbText.WriteFile("qa_output/long_report.txt", "utf-8", False)
If success = False Then
    Log(sbText.LastErrorText)
    Return
End If


'  The JSON output does not contain the text, but it still has the quality report.
Log("Quality: " & jsonOut.StringOf("quality.rating"))
Log("Pages with no text (need OCR): [" & jsonOut.StringOf("quality.pagesNeedingOcr") & "]")

'  Sample output:

'  Number of pages: 3
'  Extracted 4522 characters.
'  Quality: good
'  Pages with no text (need OCR): []