(Tcl) Drop/Undrop Text Formatting Tags

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

Chilkat Tcl Extension Downloads

Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

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

# Convert the above to XML
set h2x [new_CkHtmlToXml]

# 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
CkHtmlToXml_put_Html $h2x $html
puts [CkHtmlToXml_toXml $h2x]

# 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:
CkHtmlToXml_UndropTextFormattingTags $h2x

# Convert again to see the difference:
puts [CkHtmlToXml_toXml $h2x]

# 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.
CkHtmlToXml_DropTextFormattingTags $h2x

# Convert again to see the difference:
puts [CkHtmlToXml_toXml $h2x]

# 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>

delete_CkHtmlToXml $h2x