如何用 vb.net 替换此字符串的某些部分？

Question

我正在寻找创建正则表达式的帮助，以便我可以用锚标签替换文本。文本来自SQL字段（VarChar（max）），格式如下：

在上面的文本中，我需要将1994年以后的所有章节替换为锚标签。例如，98、553、568和300都将被替换。下面的代码查找1994年的整个文本，例如c.98，但是我不确定如何替换该文本中的“98”。

Public Shared Function ReplaceChapterTag1(lang As String) As String
    Dim l As String = lang
    Dim r As Regex = New Regex("199[4-9][/,][/ ][/c]*[/.][/ ][0-9]+(?:\.[0-9]*)?")

    Dim applyEvaluator As MatchEvaluator = New MatchEvaluator(AddressOf applyCodeLink)
    l = r.Replace(l, applyEvaluator)

    Return l

End Function

Private Shared Function applyCodeLink(ByVal m As Match) As String
    Dim r As Regex = New Regex("^[0-9]*[\-][0-9]*")
    Dim str As String = m.ToString
    Dim strReturn As String = ""

    Dim match As Match = r.Match(str)
    If match.Success Then
        strReturn = str
    Else
        strReturn = "<a href='link?id=" & m.Value & "'>" & m.Value & "</a>"
    End If

    Return strReturn
End Function

Answer 1

我不确定如何替换文本中的“98”。

您可以使用< code >正则表达式。替换。但是，您构建的正则表达式需要像这样进行调整:

(?<=199[4-9][^;]+)(?<=[/c]*[/.][/\x20]|,\x20)(\d+(?:\.\d*)?)(?=[,;)])

' Input
Dim InputText As String = "..." ' Lorem ipsum...

' Regex
Dim r As Regex = New Regex( _
      "(?<=199[4-9][^;]+)" + _
      "(?<=[/c]*[/.][/\x20]|,\x20)" + _
      "(\d+(?:\.\d*)?)" + _
      "(?=[,;)])", _
    RegexOptions.IgnoreCase _
    Or RegexOptions.CultureInvariant _
    Or RegexOptions.Compiled _
    )

' This is the replacement string
Dim Replacement As String = "<a href='link?id=$1'>$1</a>"

'' Replace the matched text in the InputText using the replacement pattern
Dim Result As String = r.Replace(InputText,Replacement)

Lorem ipsum Dolor sat amet， consecterur adipice elit， se do eiusmod温度附带劳工和多洛尔大额（1954年，c.12； 1968年，c.300； 1994年，c.98）

Lorem ipsum dolor sit amet， consectetur adipisicing elit， sed do eiusmod tempor incididunt ut labore et dolore magna aliqua （1998， cc. 553， 568; 2001， cc. 17， 300）

Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua (1954, c. 12; 1968, c. 300; 1994, c. <a href='link?id=98'>98</a>)

Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua (1998, cc. <a href='link?id=553'>553</a>, <a href='link?id=568'>568</a>; 2001, cc. 17, 300)

基本上，我的答案中经过优化的正则表达式背后的想法是查找一个或多个数字（\d），这些数字前面有AND，后面有一些字符。

我冒昧地简化并更清楚地说明了最初的正则表达式。主要是，我替换了：

• [0-9] 与 \d
• （空格字符）与 \x20