(VBScript) Drop/Undrop Text Formatting Tags

Demonstrates how the DropTextFormattingTags and UndropTextFormattingTags methods work in the Html-to-Xml API.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

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

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

html = "<html><body><p><b>Hello</b> World!<p>This is a test</body></html>"

' Convert the above to XML
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HtmlToXml")
set h2x = CreateObject("Chilkat.HtmlToXml")

' By default, text formatting tags are dropped. Text formatting HTML tags are: b, font, i, u, br, center, em, strong, big, tt, s, small, strike, sub, and sup
h2x.Html = html
outFile.WriteLine(h2x.ToXml())

' The resulting XML is:

' <?xml version="1.0" encoding="utf-8"?>
' <root>
'     <html>
'         <body>
'             <p>
'                 <text>Hello World!</text>
'             </p>
'             <p>
'                 <text>This is a test</text>
'             </p>
'         </body>
'     </html>
' </root>

' To preserve text formatting tags, put the h2x instance into the mode where text formatting tags are not dropped:
h2x.UndropTextFormattingTags 

' Convert again to see the difference:
outFile.WriteLine(h2x.ToXml())

' The resulting XML is:

' <?xml version="1.0" encoding="utf-8"?>
' <root>
'     <html>
'         <body>
'             <p>
'                 <b>
'                     <text>Hello</text>
'                 </b>
'                 <text> World!</text>
'             </p>
'             <p>
'                 <text>This is a test</text>
'             </p>
'         </body>
'     </html>
' </root>

' Call DropTextFormattingTags to put the h2x instance back in "drop" mode.
h2x.DropTextFormattingTags 

' Convert again to see the difference:
outFile.WriteLine(h2x.ToXml())

' The resulting XML is:

' <?xml version="1.0" encoding="utf-8"?>
' <root>
'     <html>
'         <body>
'             <p>
'                 <text>Hello World!</text>
'             </p>
'             <p>
'                 <text>This is a test</text>
'             </p>
'         </body>
'     </html>
' </root>

outFile.Close