VB.Net 匹配并替换字符串中多个重叠括号组的内容

Question

我正在使用 vb.net 来解析我自己的基本脚本语言，示例如下。我在尝试处理两种不同类型的嵌套括号时有点困难。

Assuming name = Sam
Assuming timeFormat = hh:mm:ss
Assuming time() is a function that takes a format string but  
         has a default value and returns a string.


Hello [[name]], the time is [[time(hh:mm:ss)]].
Result: Hello Sam, the time is 19:54:32.

The full time is [[time()]].
Result: The full time is 05/06/2011 19:54:32.

The time in the format of your choice is [[time([[timeFormat]])]].
Result: The time in the format of your choice is 19:54:32.

理论上我可以完全改变脚本的语法，但我不愿意。它的设计是为了启用不带引号的字符串，因为它将包含在 XML 文件中，而该上下文中的引号会变得混乱，并且很容易出现错误和可读性问题。如果失败，我可以使用引号以外的东西重新设计来标记字符串，但我宁愿使用这种方法。

最好，除非有其他我不知道的方法，否则我想使用正则表达式来执行此操作。我知道标准正则表达式并不能真正做到这一点，但我相信使用 vb.net 中的 MatchEvaluators 和某种形式的基于递归的替换是可能的。然而，在最后一天左右的时间里，我一直无法集中注意力，可能是因为这非常困难，可能是因为我病了，也可能是因为我很胖。

我确实有以下部分正则表达式。

Detecting the parentheses: (\w*?)\((.*?)\)(?=[^\(+\)]*(\(|$))
Detecting the square brackets: \[\[(.*?)\]\](?=[^\[+\]]*(\[\[|$))

我真的很感谢这方面的一些帮助，因为它目前阻碍了我项目的其余部分。抱歉，如果我啰嗦太多或没有提供足够的细节，这是我在这里的第一个问题。

Answer 1

这是一个小示例，可以帮助您迭代多个匹配/组/捕获。我意识到我正在发布 C# 代码，但您可以轻松地将其转换为 VB.Net

//these two may be passed in as parameters:
string tosearch;//the string you are searching through
string regex;//your pattern to match
//...
Match m;
CaptureCollection cc;
GroupCollection gc;

Regex r = new Regex(regex, RegexOptions.IgnoreCase);
m = r.Match(tosearch);
gc = m.Groups;
Debug.WriteLine("Number of groups found = " + gc.Count.ToString());

// Loop through each group.
for (int i = 0; i < gc.Count; i++)
{
  cc = gc[i].Captures;
  counter = cc.Count;
  int grpnum = i + 1;
  Debug.WriteLine("Scanning group: " + grpnum.ToString() );

  // Print number of captures in this group.
  Debug.WriteLine("  Captures count = " + counter.ToString());

  if (cc.Count >= 1)
  {
    foreach (Capture cap in cc)
    {
      Debug.WriteLine(string.format("  Capture found: {0}", cap.ToString()));
    }
  }
}

Answer 2

这是我为此编写的代码的稍微简化的版本。感谢大家的帮助，抱歉我之前忘记发帖了。如果您有任何疑问或任何问题，请随时询问。

Function processString(ByVal scriptString As String)
    ' Functions
    Dim pattern As String = "\[\[((\w+?)\((.*?)\))(?=[^\(+\)]*(\(|$))\]\]"
    scriptString = Regex.Replace(scriptString, pattern, New MatchEvaluator(Function(match) processFunction(match)))

    ' Variables
    pattern = "\[\[([A-Za-z0-9+_]+)\]\]"
    scriptString = Regex.Replace(scriptString, pattern, New MatchEvaluator(Function(match) processVariable(match)))
    Return scriptString
End Function

Function processFunction(ByVal match As Match)
    Dim nameString As String = match.Groups(2).Value
    Dim paramString As String = match.Groups(3).Value
    paramString = processString(paramString)
    Select Case nameString
        Case "time"
            Return getLocalValueTime(paramString)
        Case "math"
            Return getLocalValueMath(paramString)
    End Select
    Return ""
End Function

Function processVariable(ByVal match As Match)
    Try
        Return moduleDictionary("properties")("vars")(match.Groups(1).Value)
    Catch ex As Exception
    End Try
End Function