VBScript Requires Chilkat v11.7.0+

Code Blocks and Code Spans in PDF to Markdown

See more PDF Text Extraction Examples

Demonstrates how monospaced text is converted by the "markdown" operation: a monospaced block becomes a fenced code block and a monospaced run inside a sentence becomes a code span. Set "code" to false to treat it as ordinary text. 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 code_block.pdf

set pdf = CreateObject("Chilkat.Pdf")
success = pdf.LoadFile("qa_data/pdf/code_block.pdf")
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

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

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

outFile.WriteLine("---- default (code: true) ----")
outFile.WriteLine(jsonOut.StringOf("markdown"))

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

outFile.WriteLine("---- code: false ----")
outFile.WriteLine(jsonOut.StringOf("markdown"))

'  Sample output:

'  ---- default (code: true) ----
'  <!-- page 1 -->
'  
'  # Extracting Text
'  
'  Load the PDF and call `ExtractText` with the operation and an options object. The result is returned as JSON:
'  
'  ```
'  new Pdf pdf;
'  success = pdf.LoadFile("report.pdf");
'  new JsonObject json;
'  new JsonObject jsonOut;
'  success = pdf.ExtractText("text",json,jsonOut);
'  println jsonOut.StringOf("text");
'  ```
'  
'  An empty options object extracts every page with the default clean-up. Set `pages` to limit the extraction.
'  ---- code: false ----
'  <!-- page 1 -->
'  
'  # Extracting Text
'  
'  Load the PDF and call ExtractText with the operation and an options object. The result is returned as JSON:
'  
'  new Pdf pdf; success = pdf.LoadFile("report.pdf"); new JsonObject json; new JsonObject jsonOut; success = pdf.ExtractText("text",json,jsonOut); println jsonOut.StringOf("text");
'  
'  An empty options object extracts every page with the default clean-up. Set pages to limit the extraction.

outFile.Close