Function MarkdownToHtml(markdownText) // 替换 Markdown 的标题 htmlText := Replace(markdownText, "# ", "<h1>") htmlText := Replace(htmlText, "## ", "<h2>") htmlText := Replace(htmlText, "### ", "<h3>") htmlText := Replace(htmlText, "#### ", "<h4>") htmlText := Replace(htmlText, "##### ", "<h5>") htmlText := Replace(htmlText, "###### ", "<h6>") htmlText := Replace(htmlText, "</h1>", "</h1>\n") htmlText := Replace(htmlText, "</h2>", "</h2>\n") htmlText := Replace(htmlText, "</h3>", "</h3>\n") htmlText := Replace(htmlText, "</h4>", "</h4>\n") htmlText := Replace(htmlText, "</h5>", "</h5>\n") htmlText := Replace(htmlText, "</h6>", "</h6>\n") // 替换 Markdown 的加粗 htmlText := Replace(htmlText, "**", "<b>") htmlText := Replace(htmlText, "</b>", "</b>\n") // 替换 Markdown 的斜体 htmlText := Replace(htmlText, "*", "<i>") htmlText := Replace(htmlText, "</i>", "</i>\n") // 替换 Markdown 的列表项 htmlText := Replace(htmlText, "- ", "<li>") htmlText := Replace(htmlText, "</li>", "</li>\n") htmlText := Replace(htmlText, "\n- ", "\n<ul>\n<li>") htmlText := Replace(htmlText, "</li>\n<ul>", "</ul>\n") // 替换 Markdown 的链接 htmlText := Replace(htmlText, "[", "<a href='") htmlText := Replace(htmlText, "]", "'>") htmlText := Replace(htmlText, ")", "</a>") Return htmlText End Function
// 示例调用
markdownString := "# 标题\n**加粗文本**\n*斜体文本*\n- 列表项 1\n- 列表项 2\n[链接](https://example.com)"
htmlString := MarkdownToHtml(markdownString)
MessageBox htmlString
