Delphi程序有以下字符串，分组匹配得到的问题请教：

冥界3大法王

字符串内容为：




MsgBox【, 参数1∥0∥1∥2∥3∥4∥5∥6, 参数2∥标题, 参数3∥要显示的内容, 参数4∥超时毫秒数】


要求分组匹配得到：(PS就是前面标色的哟~~)
第1组为: 0 1 2 3 4 5 6
（备注：不一定都是数字哟，反正就是∥后面的）


第2组为：标题


第3组为：要显示的内容


第4组为：超时毫秒数


用正则表达式的方法能成立吗？
还有更好的策略吗？
或者我再修改下我输出的内容格式？
或者，您有更高明的方案？

wyw6813

[Delphi] 纯文本查看 复制代码

var
InputString, RegexPattern: string;
Match: TMatch;
param1: string;
begin
  InputString := '参数1∥0∥1∥2∥3∥4∥5∥6, 参数2∥标题, 参数3∥要显示的内容, 参数4∥超时毫秒数';
  RegexPattern := '参数1∥(?<param1>.*?), 参数2∥(?<param2>.*?), 参数3∥(?<param3>.*?), 参数4∥(?<param4>.*?)$';

  Match := TRegEx.Match(InputString, RegexPattern);

  if Match.Success then
  begin
    param1 := StringReplace(Match.Groups['param1'].Value, '∥', ' ', [rfReplaceAll]);
    ShowMessage('第1组内容：' + param1);
    ShowMessage('第2组内容：' + Match.Groups['param2'].Value);
    ShowMessage('第3组内容：' + Match.Groups['param3'].Value);
    ShowMessage('第4组内容：' + Match.Groups['param4'].Value);
  end
  else
  begin
    ShowMessage('未找到匹配的内容');
  end;
end;

原始人

魔王是D的代表，支持一下

wyw6813

把你的字符串修改成这样的: 参数1∥0∥1∥2∥3∥4∥5∥6∥参数2∥标题∥参数3∥要显示的内容∥参数4∥超时毫秒数
直接用∥分割字符串，然后提取拼接也行，反正都很简单。。。

[Delphi] 纯文本查看 复制代码

var
  InputString: string;
  Params: TStringList;
begin
  InputString := '参数1∥0∥1∥2∥3∥4∥5∥6∥参数2∥标题∥参数3∥要显示的内容∥参数4∥超时毫秒数';
  Params := TStringList.Create;
  try
    Params.Delimiter := '∥';
    Params.StrictDelimiter := True;
    Params.DelimitedText := InputString;

    // 提取并拼接成需要的4段内容
    ShowMessage('第1组内容：' + Params[1] + Params[2] + Params[3] + Params[4] + Params[5] + Params[6] + Params[7]);
    ShowMessage('第2组内容：' + Params[9]);
    ShowMessage('第3组内容：' + Params[11]);
    ShowMessage('第4组内容：' + Params[13]);
  finally
    Params.Free;
  end;
end;

moments

支持用delphi的。