VB.NET如何将XSL转换XML的结果直接保存为本地HTML文件

你之前通过在XML中添加<?xml-stylesheet?>处理指令的方式，本质是将转换逻辑交给打开XML的外部程序（浏览器）执行，所以会自动唤起浏览器展示结果。要实现程序内静默转换、直接输出HTML文件到磁盘，使用.NET内置的XslCompiledTransform类即可完成，全程不会触发浏览器弹窗。

前置准备 #

首先在代码文件顶部导入所需命名空间：

Imports System.Xml
Imports System.Xml.Xsl
Imports System.IO

基础转换代码 #

最简实现，直接传入三个路径即可完成转换保存：

''' <summary>
''' 执行XSLT转换并保存为本地HTML文件
''' </summary>
''' <param name="sourceXmlPath">源XML文件的绝对/相对路径</param>
''' <param name="xslFilePath">XSL样式表文件的绝对/相对路径</param>
''' <param name="targetHtmlPath">输出HTML文件的保存路径</param>
Public Sub TransformXmlToHtml(sourceXmlPath As String, xslFilePath As String, targetHtmlPath As String)
    ' 初始化XSLT转换实例
    Dim xsltTransformer As New XslCompiledTransform()
    ' 加载指定的XSL样式文件
    xsltTransformer.Load(xslFilePath)
    ' 执行转换，结果直接写入目标HTML文件，不会唤起外部程序
    xsltTransformer.Transform(sourceXmlPath, targetHtmlPath)
End Sub

带自定义配置的进阶版本 #

如果需要控制输出编码、缩进格式、去掉多余的XML声明等，可以使用XmlWriterSettings自定义输出规则，避免中文乱码等问题：

Public Sub TransformXmlToHtmlWithCustomSettings(sourceXmlPath As String, xslFilePath As String, targetHtmlPath As String)
    Dim xsltTransformer As New XslCompiledTransform()
    xsltTransformer.Load(xslFilePath)

    ' 配置输出规则
    Dim outputSettings As New XmlWriterSettings()
    outputSettings.Encoding = System.Text.Encoding.UTF8 ' 强制使用UTF-8编码
    outputSettings.Indent = True ' 输出格式化缩进的HTML代码，方便调试
    outputSettings.OmitXmlDeclaration = True ' 移除HTML文件顶部不必要的<?xml version="1.0"?>声明

    ' 执行转换写入文件
    Using writer As XmlWriter = XmlWriter.Create(targetHtmlPath, outputSettings)
        xsltTransformer.Transform(sourceXmlPath, Nothing, writer)
    End Using
End Sub

注意事项 #

• XML文件中已存在的<?xml-stylesheet?>处理指令不会影响上述代码的执行，转换过程会直接忽略该指令，以代码中加载的XSL文件为准。
• 转换过程完全在程序内部完成，只有你主动调用Process.Start(targetHtmlPath)时才会用默认程序打开生成的HTML文件，不会出现自动弹窗的问题。
• 如果需要给XSLT传递参数，可以创建XsltArgumentList实例传入Transform方法的第二个参数位置即可。

内容的提问来源于stack exchange，提问作者kapopoulos john