delphi中单元格的正则表达式

单元格如[AAA!F12] 的正则表达式:

     SDFunFormat:='\[%s\!%s\]';
     Result:=format(SDFunFormat,['[\x{4e00}-\x{9fa5}\w\(\)()\x22]*',
                                 '\w*'
                                 ]);


   SDFunFormat:='%s\!%s%s';
   Result:=format(SDFunFormat,['[\x{4e00}-\x{9fa5}\w\(\)()\x22]*',
                               '[a-zA-Z]*',
                               '[0-9]*'
                               ]);

 

 

逻辑运算符表达式
pattern_base:='[><=\x22]+';

 

//正则表达式通用匹配函数
function RegFindEx(const AOValue, Apattern: string; var
    strlst: TStringList): boolean;
var
    Match: TMatch;
    Matchs: TMatchCollection;
begin
    Result:=false;
    strlst.Clear;

    if Apattern='' then exit;
    if AOValue='' then exit;

    Matchs := TRegEx.Matches(AOValue,Apattern);
    if Matchs.Count>0 then
    begin
        for Match in Matchs do
        begin
             strlst.Add(Match.Value);
        end;
        Result:=true;
    end;
end;

 

发布了30 篇原创文章 · 获赞 9 · 访问量 9万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览