Classic ASP Requires Chilkat v11.7.0+

Get the Text Block Below a PDF Caption

See more PDF Text Extraction Examples

Demonstrates the "label" option with labelValue "below", which captures the block of text directly under a caption such as "Ship To", ending at the next gap or heading. Combined with layout "lines", the lines of an address block are kept separate. Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

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

'  The packing slip used in this example is available at packing_slip.pdf

set pdf = Server.CreateObject("Chilkat.Pdf")
success = pdf.LoadFile("qa_data/pdf/packing_slip.pdf")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdf.LastErrorText) & "</pre>"
    Response.End
End If

set json = Server.CreateObject("Chilkat.JsonObject")
set jsonOut = Server.CreateObject("Chilkat.JsonObject")

'  The packing slip has the captions "Bill To" and "Ship To" side by side,
'  each with an address block below it.
success = json.UpdateString("label","Ship To")

'  "below" means the value is the block of text directly under the label.
success = json.UpdateString("labelValue","below")

'  With the default "flow" layout the lines of the block would be joined into one paragraph.
'  "lines" keeps each line of the address on its own line.
success = json.UpdateString("layout","lines")

success = pdf.ExtractText("text",json,jsonOut)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdf.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Ship To:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( jsonOut.StringOf("text")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "") & "</pre>"

success = json.UpdateString("label","Bill To")
success = pdf.ExtractText("text",json,jsonOut)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdf.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Bill To:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( jsonOut.StringOf("text")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "") & "</pre>"

'  A caption over a short paragraph works the same way.  Here the flow layout is better,
'  because the two lines are one piece of text.
success = json.UpdateString("label","Special Instructions")
success = json.UpdateString("layout","flow")
success = pdf.ExtractText("text",json,jsonOut)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdf.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Special Instructions:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( jsonOut.StringOf("text")) & "</pre>"

'  Sample output:

'  Ship To:
'  Frank Delgado
'  c/o Harbor Pet Boarding
'  9 Ferry Lane
'  Portside, WA 98001
'  
'  Bill To:
'  Frank Delgado
'  Apartment 3B
'  41 Mill Street
'  Portside, WA 98000
'  
'  Special Instructions:
'  Leave the carton with the boarding office if no one answers. Do not leave it outside; the cat tree is not packed for rain.

%>
</body>
</html>