delphi 正则表达式的使用方法

裸奔的跳蚤 發表於 2022-10-14 18:51:00

本文写于2022-10-14,D版本10.3.3
引用单元:
uses   System.RegularExpressions
1、TRegEx.Match方法
Match()方法总是获取满足条件的第一个匹配，而不关心满足条件的匹配有多少个。
Match()方法都回一个Match对象，其中包含了匹配的各种细节.
Match()方法的取值方法
var 
　　m:TMatch;
begin
　　m := TRegEx.Match('a1a2','\d');
　　showmessage(m.groups.item.value);　　//只能是0啊,因为它只取第一个匹配值.反过来,如果它一个都没有匹配到的话,连0都没了
end;
所以,一般地，当我们确定只有一个符合条件的匹配或只需要第一个符合条件的匹配时，可以使用Match()。
你可以使用TMatch的NextMatch方法获取下一个匹配的字符串: 　　m:= m.NextMatch; 可以使用TMatch的Groups属性获取与分组的正则表达式匹配的字符串。 
<div class="cnblogs_code">
<pre>var
match: TMatch;
group: TGroup;
begin
match := TRegEx.Match('2012/5/14', '(\d+)/(\d+)/(\d)');
ShowMessage(IntToStr(match.Groups.Count)); //=> 4

for group in match.Groups do
begin
ShowMessage(Format('%s (%d, %d)',
 ));
end;
(* 結果
2012/5/1 (1, 8)
2012 (1, 4)
5 (6, 1)
1 (8, 1)
*)</pre>
</div>
 
2、TRegEx.IsMatch方法 
　　isMatch()方法用于判断是否能匹配到符合条件的成员,返回一个Boolean值.
　　TRegEx.Match('aAA','\d');　　　　//返回false;
　　TRegEx.Match('aAA','\w');　　　　//返回true;
3、TRegEx.Matches方法获取与正则表达式匹配的所有字符串.
　　Matches()方法可以得到MathCollection对象的一个集合。这个集合类中包含每一次正则表达式匹配的Match对象。
　　TRegEx.Match的声明是:
　　　　M:TMatch;
　　而TRegEx.Matches声明的是:
 　　　　MC:TMatchCollection;
　　一般，当我们需要获取所有符合条件的匹配结果时，可以使用Matches()。
实例1:
<div class="cnblogs_code">
<pre>procedure TForm2.Button1Click(Sender: TObject);
var
mc: TMatchCollection;
pattern, str: string;
i: Integer;
begin
pattern := Edit2.Text; //正则规则
str := edit1.Text;
if TRegEx.IsMatch(str, pattern) then
begin
if CheckBox1.Checkedthen
 mc := TRegEx.Matches (str, pattern,) //区分大小写
else
 mc := TRegEx.Matches (str, pattern,); //默认忽略大小写,所以这里可以省略第三参数
 Memo1.Clear;
for i := 0 to mc.Count - 1 do
begin
 Memo1.Lines.Add(mc.Item.Value);
end;
end;
end;</pre>
</div>
 
<img src="https://img2022.cnblogs.com/blog/981841/202210/981841-20221014110953498-952862159.png"><img src="https://img2022.cnblogs.com/blog/981841/202210/981841-20221014111007296-134001000.png"><img src="https://img2022.cnblogs.com/blog/981841/202210/981841-20221014111034970-1925051381.png"><img src="https://img2022.cnblogs.com/blog/981841/202210/981841-20221014111108468-1176916534.png">
 
 
 
 实例2:
<div class="cnblogs_code">
<pre>var
match: TMatch;
matches: TMatchCollection;
begin
matches := TRegEx.Matches('Delphi XE', '+');
ShowMessage(IntToStr(matches.Count));

match := matches.Item[0];
ShowMessage(
Format('%s (%d, %d)',
 )); //=> D (1, 1)

match := matches.Item[1];
ShowMessage(
Format('%s (%d, %d)',
 )); //=> XE (8, 2)
Matches方法支持in do。

var
regex: TRegEx;
match: TMatch;
matches: TMatchCollection;
begin
regex := TRegEx.Create('+');
matches := regex.Matches('Delphi XE');
ShowMessage(IntToStr(matches.Count));

for match in matches do
ShowMessage(
 Format('%s (%d, %d)',
 ));</pre>
</div>
4.TRegEx.Replace方法替换　与正则表达式匹配的字符串 s := TRegEx.Replace('Delphi XE', '', '_');　　//=> _elphi __  5.TRegEx.Split拆分方法　拆分字符串 
<div class="cnblogs_code">
<pre>var
splits: TArray<string>;
s: string;
begin
splits := TRegEx.Split('Delphi C++Builder/RadPHP', '[ /]');
for s in splits do
Memo1.Lines.Add(s);</pre>
</div>
<div> </div>
<div>6.TRegEx.Escape转义方法转义　特殊字符</div>
<div class="cnblogs_code">
<pre>var
s: string;
begin
s := TRegEx.Escape('C++');
ShowMessage(s); //=> C\+\+</pre>
</div>
 
 
<div>验证正则表达式语法</div>
<div>如果在构造函数参数中指定了roCompiled，则将编译正则表达式。</div>
<div>如果正则表达式有问题，则引发异常。</div>
<div> </div>
<div class="cnblogs_code">
<pre>try
TRegEx.Create(Edit1.Text, );
except on E: Exception do
ShowMessage(E.Message);
end;</pre>
</div>
 
 
 
 

 
 
 
  
来源：https://www.cnblogs.com/yoooos/p/16792657.html

頁: [1]

琼殿技术论坛's Archiver

delphi 正则表达式的使用方法