如何用按键精灵语言把markdown的标题行转换为html的h标签

下面是一段markdown格式文本

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

中型内容网站所需的文章数量并没有一个固定标准：

### 网站定位和主题范围

- **专注单一领域**：如果网站聚焦于某个细分领域，比如只做宠物狗饲养相关内容，相对来说文章数量可能不需要特别多就能形成中型规模，大概几百篇到上千篇不等。例如一个宠物狗饲养网站，有针对不同犬种饲养方法、常见疾病防治、幼犬护理等各类主题的文章，可能积累到500 - 1000篇左右，就能满足用户日常获取信息的基本需求，撑起一个中型站的内容框架。

### 运营时间和更新频率

- **运营时间较短**：刚起步不久的中型内容网站，即便更新频率正常，文章数量可能相对少一些。比如运营了半年到一年左右的网站，可能有几百篇高质量文章就算是不错的开端，后续随着持续运营不断积累数量。

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

可以用下面的按键精灵Q语言代码把###行用h标签包裹

Dim newBoardStr
clipboardText = Plugin.Sys.GetCLB()//GetCLB 获得剪切板内容
newBoardStr = Replace(clipboardText, "###"&chr(32), "<h2>")
TracePrint newBoardStr
Dim newText
newText = ""
//初始化起始位置
Dim startPos
startPos = 1
//查找下一个换行符位置
Dim endPos
endPos = InStr(startPos, newBoardStr, vbCrLf)
Do While endPos > 0
    Dim currentLine
    currentLine = Mid(newBoardStr, startPos, endPos - startPos)
    If InStr(currentLine, "<h2>") > 0 Then
        currentLine = currentLine & "</h2>"
    End If
    newText = newText & currentLine & vbCrLf
    startPos = endPos + 2
    //查找下一个换行符位置
    endPos = InStr(startPos, newBoardStr, vbCrLf)
Loop
//处理最后一行
Dim lastLine
lastLine = Mid(newBoardStr, startPos)
If InStr(lastLine, "<h2>") > 0 Then
    lastLine = lastLine & "</h2>"
End If
newText = newText & lastLine

Call Plugin.Sys.SetCLB(newText)

也可以把上面的代码打包成一个函数，函数的输入变量是要处理的字符串，返回值是处理后的字符串，程序如下：

Function hashSignToH2(charactersForProcessing)
Dim newBoardStr
newBoardStr = charactersForProcessing
newBoardStr = Replace(newBoardStr, "###"&chr(32), "<h2>")
Dim newText
newText = ""
Dim startPos//初始化起始位置
startPos = 1
Dim endPos//下一个换行符位置
endPos = InStr(startPos, newBoardStr, vbCrLf)
Do While endPos > 0
    Dim currentLine
    currentLine = Mid(newBoardStr, startPos, endPos - startPos)
    If InStr(currentLine, "<h2>") > 0 Then
        currentLine = currentLine & "</h2>"
    End If
    newText = newText & currentLine & vbCrLf
    startPos = endPos + 2
    //查找下一个换行符位置
    endPos = InStr(startPos, newBoardStr, vbCrLf)
Loop
//处理最后一行
Dim lastLine
lastLine = Mid(newBoardStr, startPos)
If InStr(lastLine, "<h2>") > 0 Then
    lastLine = lastLine & "</h2>"
End If
newText = newText & lastLine
hashSignToH2 = newText
End Function

//下面是主程序
Dim clbStr,htmlStr
clbStr = Plugin.Sys.GetCLB()//GetCLB 获得剪切板内容
htmlStr = hashSignToH2(clbStr)
Call Plugin.Sys.SetCLB(htmlStr)