VBScript

Markdown to HTML - Full Document, ChatGPT Theme with Code Syntax Highlighting

See more Markdown Examples

Demonstrates how to convert a complete Markdown document to HTML using the pre-defined "ChatGPT" theme but also with Cloudfare Prism's code syntax highlighting. 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

success = 0

' Select the pre-defined "ChatGPT" style.
set options = CreateObject("Chilkat.JsonObject")
success = options.UpdateString("theme","ChatGPT")

' We can also set an option for the max-width, which by default is "72ch".
success = options.UpdateString("ChatGPT.max-width","120ch")

' We can add extra content to the bottom of the HTML head and body sections like this:
' Here we are using the "tomorrow" theme.
success = options.UpdateString("extraHead","<link rel=""stylesheet"" href=""https://cdnjs.cloudflare.com/ajax/libs/prism/1.29.0/themes/prism-tomorrow.min.css"" />")
success = options.UpdateString("extraBody","<script src=""https://cdnjs.cloudflare.com/ajax/libs/prism/1.29.0/prism.min.js""></script><script src =""https://cdnjs.cloudflare.com/ajax/libs/prism/1.29.0/plugins/autoloader/prism-autoloader.min.js""></script>")

set sbMarkdown = CreateObject("Chilkat.StringBuilder")
set sbHtml = CreateObject("Chilkat.StringBuilder")

success = sbMarkdown.LoadFile("qa_data/markdown/test1.md","utf-8")
If (success = 0) Then
    outFile.WriteLine(sbMarkdown.LastErrorText)
    WScript.Quit
End If

success = sbMarkdown.MarkdownToHtml(options,sbHtml)
success = sbHtml.ToCRLF()

outFile.WriteLine(sbHtml.GetAsString())

' The sample markdown input for this example is identical to the one at Markdown to HTML - Full Document, Raw, where you can view it.

' Sample HTML output as viewed in a browser:

' 

outFile.Close