如何用按键精灵把一段文本中的回车符替换成html语言的<p>标签

作者:魔道寒武纪     信息来源:互联网     发布时间:2025-01-06     点击数:3    

如何用按键精灵把一段文本中的回车符替换成html语言的<p>标签,下面是一段可以参考的程序,思路就是把文本中间的回车替换成<p></p>,之后在整个文本前加上<p>,整个文本后加上</p>

===============================================

clbStr = Plugin.Sys.GetCLB()//GetCLB 获得剪切板内容

// 替换回车符为 HTML 段落符号

Dim modifiedText

modifiedText = Replace(clbStr, vbCrLf & vbCrLf & vbCrLf, vbCrLf)

modifiedText = Replace(modifiedText, vbCrLf & vbCrLf, vbCrLf)

modifiedText = Replace(modifiedText, vbCrLf, "</p><p>")

// 为了保证开头和结尾的完整性,添加起始和结束的 <p> 标签

modifiedText = "<p>" & modifiedText & "</p>"

Call Plugin.Sys.SetCLB(modifiedText)