VBScript 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. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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 = CreateObject("Chilkat.Pdf")
success = pdf.LoadFile("qa_data/pdf/hyphenated.pdf")
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

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

'  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".
success = pdf.ExtractText("text",json,jsonOut)
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("---- default (dehyphenate: true) ----")
outFile.WriteLine(jsonOut.StringOf("text"))

success = json.UpdateBool("dehyphenate",0)
success = pdf.ExtractText("text",json,jsonOut)
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("---- dehyphenate: false ----")
outFile.WriteLine(jsonOut.StringOf("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.

outFile.Close