Visual Basic 6.0 Requires Chilkat v11.7.0+

Exclude Rotated Margin Text from PDF Extraction

See more PDF Text Extraction Examples

Demonstrates the "rotatedText" filter. Text that is not aligned with the page, such as a vertical "CONFIDENTIAL" label in the margin, is included by default (after the upright text) and flagged in the quality report; "exclude" leaves it out. 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 rotated_margin.pdf

Dim pdf As New ChilkatPdf
success = pdf.LoadFile("qa_data/pdf/rotated_margin.pdf")
If (success = 0) Then
    Debug.Print pdf.LastErrorText
    Exit Sub
End If

Dim json As New ChilkatJsonObject
Dim jsonOut As New ChilkatJsonObject

'  The page has a paragraph and, rotated 90 degrees along the left margin, "CONFIDENTIAL - DRAFT - NOT FOR DISTRIBUTION".
success = pdf.ExtractText("text",json,jsonOut)
If (success = 0) Then
    Debug.Print pdf.LastErrorText
    Exit Sub
End If

Debug.Print "---- default (rotated text included) ----"
Debug.Print jsonOut.StringOf("text")
Debug.Print "issue: " & jsonOut.StringOf("quality.pages[0].issues[0].code")

success = json.UpdateString("rotatedText","exclude")
success = pdf.ExtractText("text",json,jsonOut)
If (success = 0) Then
    Debug.Print pdf.LastErrorText
    Exit Sub
End If

Debug.Print "---- rotatedText: exclude ----"
Debug.Print jsonOut.StringOf("text")

'  Sample output:

'  ---- default (rotated text included) ----
'  Restoration Budget Summary
'  
'  Spending for the season came in slightly under the approved budget, largely because the parapet work took less time than expected. The lens loan carries no fee, but the society is responsible for insurance and for the specialist cleaning.
'  
'  CONFIDENTIAL - DRAFT - NOT FOR DISTRIBUTION
'  issue: rotatedText
'  ---- rotatedText: exclude ----
'  Restoration Budget Summary
'  
'  Spending for the season came in slightly under the approved budget, largely because the parapet work took less time than expected. The lens loan carries no fee, but the society is responsible for insurance and for the specialist cleaning.