Visual Basic 6.0 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. Visual Basic 6.0

Dim success As Long
success = 0

'  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 New ChilkatPdf
success = pdf.LoadFile("qa_data/pdf/long_report.pdf")
If (success = 0) Then
    Debug.Print pdf.LastErrorText
    Exit Sub
End If

Debug.Print "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 New ChilkatJsonObject
Dim sbText As New ChilkatStringBuilder
Dim jsonOut As New ChilkatJsonObject

success = pdf.ExtractTextSb("text",json,sbText,jsonOut)
If (success = 0) Then
    Debug.Print pdf.LastErrorText
    Exit Sub
End If

Debug.Print "Extracted " & sbText.Length & " characters."

'  Save the text to a file.
success = sbText.WriteFile("qa_output/long_report.txt","utf-8",0)
If (success = 0) Then
    Debug.Print sbText.LastErrorText
    Exit Sub
End If

'  The JSON output does not contain the text, but it still has the quality report.
Debug.Print "Quality: " & jsonOut.StringOf("quality.rating")
Debug.Print "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): []