Delphi程序有以下字符串，分组匹配得到的问题请教：
本帖最后由 冥界3大法王 于 2023-11-19 09:39 编辑字符串内容为：
https://static.52pojie.cn/static/image/hrline/2.gif
MsgBox【, 参数1∥0∥1∥2∥3∥4∥5∥6, 参数2∥标题, 参数3∥要显示的内容, 参数4∥超时毫秒数】
要求分组匹配得到：(PS就是前面标色的哟~~)
第1组为: 0 1 2 3 4 5 6
（备注：不一定都是数字哟，反正就是∥后面的）
第2组为：标题
第3组为：要显示的内容
第4组为：超时毫秒数
用正则表达式的方法能成立吗？
还有更好的策略吗？
或者我再修改下我输出的内容格式？
或者，您有更高明的方案？{:301_974:} 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, '∥', ' ', );
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的代表，支持一下 把你的字符串修改成这样的: 参数1∥0∥1∥2∥3∥4∥5∥6∥参数2∥标题∥参数3∥要显示的内容∥参数4∥超时毫秒数
直接用∥分割字符串，然后提取拼接也行，反正都很简单。。。
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 + Params + Params + Params + Params + Params + Params);
ShowMessage('第2组内容：' + Params);
ShowMessage('第3组内容：' + Params);
ShowMessage('第4组内容：' + Params);
finally
Params.Free;
end;
end; 支持用delphi的。
页:
[1]