Tcl Requires Chilkat v11.7.0+

Rejoin Words Hyphenated at Line Ends

See more PDF Text Extraction Examples

Demonstrates the "dehyphenate" clean-up option (true by default). A word broken at the end of a line ("docu-" / "ment") is rejoined, while a hyphen that belongs to the word ("self-service") is kept. Set the option to false to keep the lines exactly as printed. Tcl

load ./chilkat.dll

set 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 hyphenated.pdf

set pdf [new_CkPdf]

set success [CkPdf_LoadFile $pdf "qa_data/pdf/hyphenated.pdf"]
if {$success == 0} then {
    puts [CkPdf_lastErrorText $pdf]
    delete_CkPdf $pdf
    exit
}

set json [new_CkJsonObject]

set jsonOut [new_CkJsonObject]

#  The paragraph breaks "document", "self-service", "underlying" and "re-issued" at line ends.
#  The default rejoins them.  "self-service" keeps its hyphen because the word appears with it,
#  unbroken, elsewhere on the page; "re-issued" appears nowhere else, so it becomes "reissued".
set success [CkPdf_ExtractText $pdf "text" $json $jsonOut]
if {$success == 0} then {
    puts [CkPdf_lastErrorText $pdf]
    delete_CkPdf $pdf
    delete_CkJsonObject $json
    delete_CkJsonObject $jsonOut
    exit
}

puts "---- default (dehyphenate: true) ----"
puts [CkJsonObject_stringOf $jsonOut text]

CkJsonObject_UpdateBool $json "dehyphenate" 0
set success [CkPdf_ExtractText $pdf "text" $json $jsonOut]
if {$success == 0} then {
    puts [CkPdf_lastErrorText $pdf]
    delete_CkPdf $pdf
    delete_CkJsonObject $json
    delete_CkJsonObject $jsonOut
    exit
}

puts "---- dehyphenate: false ----"
puts [CkJsonObject_stringOf $jsonOut text]

#  Sample output:

#  ---- default (dehyphenate: true) ----
#  Self-Service Kiosk Notes
#  
#  The new self-service kiosk in the lobby prints a visitor badge from the document number on the reservation. Staff should direct first-time visitors to the self-service kiosk rather than the desk, and should keep the paper tray topped up. The underlying software restarts itself overnight; a badge that fails to print is reissued at the desk on request.
#  ---- dehyphenate: false ----
#  Self-Service Kiosk Notes
#  
#  The new self-service kiosk in the lobby prints a visitor badge from the docu- ment number on the reservation. Staff should direct first-time visitors to the self- service kiosk rather than the desk, and should keep the paper tray topped up. The under- lying software restarts itself overnight; a badge that fails to print is re- issued at the desk on request.

delete_CkPdf $pdf
delete_CkJsonObject $json
delete_CkJsonObject $jsonOut