选择其中包含多个格式标记的文本字符串

Question

上下文：

使用 htmlagility pack 处理 html 文档的 VB.NET 应用程序。

问题：

在 html 文档中，我想为所有以 # 开头并以空格结尾的字符串添加 URL 前缀，无论其中使用什么格式标记。 所以#sth会变成http://www.anything.tld/sth

例如：

之前：

<p>#string1</p> blablabla
<p><strong>#stri</strong>ng2</p> bliblibli

之后：

<p><a href="http://www.anything.tld/string1">#string1</a> blablabla</p>
<p><a href="http://www.anything.tld/string2"><strong>#stri</strong>ng2</a> bliblibli</p>

我想我可以使用 html 敏捷包来实现这一点，但是如何选择不带格式的整个文本字符串？

或者我应该使用一个简单的正则表达式替换例程？

Answer 1

这是我的解决方案。我确信这会让一些经验丰富的开发人员流血不止，但它确实有效。
htmlcode 位于 strCorpusHtmlContent

Dim matchsHashtag As MatchCollection
Dim matchHashtag As Match
Dim captureHashtag As Capture
Dim strHashtagFormatted As String
Dim strRegexPatternHashtag As String = "#([\s]*)(\w*)"
matchsHashtag = Regex.Matches(strCorpusHtmlContent, strRegexPatternHashtag)
For Each matchHashtag In matchsHashtag
     For Each captureHashtag In matchHashtag.Captures
         Dim strHashtagToFormat As String
         Dim strHashtagValueToFormat As String
         ' Test if the hashtag is followed by a tag
         If Mid(strCorpusHtmlContent, captureHashtag.Index + captureHashtag.Length + 1, 1) = "<" Then
            strHashtagValueToFormat = captureHashtag.Value                    
            Dim intStartPosition As Integer = captureHashtag.Index + captureHashtag.Length + 1
            Dim intSpaceCharPostion As Integer = intStartPosition
            Dim nextChar As Char
            Dim blnInATag As Boolean = True
            Do Until (nextChar = " " Or nextChar = vbCr Or nextChar = vbLf Or nextChar = vbCrLf) And blnInATag = False
                  nextChar = CChar(Mid(strCorpusHtmlContent, intSpaceCharPostion + 1, 1))
                  If nextChar = "<" Then
                     blnInATag = True
                  ElseIf nextChar = ">" Then
                     blnInATag = False
                  End If
                  If blnInATag = False And nextChar <> ">" And nextChar <> " " Then
                     strHashtagValueToFormat &= nextChar
                  End If
                  intSpaceCharPostion += 1
              Loop
              strHashtagToFormat = Mid(strCorpusHtmlContent, captureHashtag.Index + 1, intSpaceCharPostion - captureHashtag.Length)
         Else
              strHashtagToFormat = captureHashtag.Value
         End If

             strHashtagFormatted = "<a href=" & Chr(34) & strUrnPrefixHashtag & strHashtagValueToFormat & Chr(34) & ">" & strHashtagToFormat & "</a>"

             strCorpusHtmlContent = Regex.Replace(strCorpusHtmlContent, strHashtagToFormat, strHashtagFormatted)
     Next
Next

之前：

<p>#has<strong>hta</strong><em>g_m</em>u<span style="text-decoration: underline;">ltifortmat</span> to convert</p>

之后：

<p><a href="web:keyword:#hashtag_multi ">#has<strong>hta</strong><em>g_m</em>u<span style="text-decoration: underline;">ltiformat</span></a> to convert</p>