CnPack Forum


 
Subject: 给Cnpack的过程列表和工程组单元列表增加正则表达式功能
吕不为
新警察
Rank: 1



UID 870
Digest Posts 1
Credits 29
Posts 9
点点分 29
Reading Access 10
Registered 2005-5-29
Status Offline
Post at 2009-8-22 17:44  Profile | Blog | P.M. 
给Cnpack的过程列表和工程组单元列表增加正则表达式功能

在使用Cnpack的过程中。由于我们的一个项目的单元很多,为了快速打开一个窗体或者单元。我们经常需要按Ctrl+F12打开工程组单元列表。但是。很多时间我们只记的部分的单元名称。如
多行属性编辑器。我可能不知道他具体叫什么名子。但我想,它一定包括mul(多行)和edit(编辑).于是。我希望我只输入支言片语,就能找到这个单元。于是
我输入mu.*edit.这是一个正则表达式。意思是说mu后面跟任意多个字符,然后后面跟edit.结果没找出来。怎么办。优秀的开源专家框架给我们可以很方便的增加这个功能的机会。
于是以下的操作只需要增加几行代码,就可以实现这个方便而且减轻大脑负担而且很酷的功能。
在Cnpack中好象没有好很的支持正则表达式的单元。于是我就引入了一个正则表达式的单元。这个单元我用了很长时间了。感觉还是很稳定和强大的。当然。选用别的单元也没有问题。
正则表达式的语法都是一样的。

第一步,我们把RegExpr.pas单元引入到CnWizard工程中。
第二步,我们需要修改CnProjectViewBaseFrm.pas单元,这是一个工程扩展工具窗体列表单元列表基类窗体,我们在这里加了上创建和销毁正则表达式对象的功能。
这样我们的所有的子类窗体就可以有正则表达式支持的功能了。包括《函数过程列表窗体》和《工程组单元列表窗体》。
在窗体的FormCreate里我们加上
[@
  Expr :=  TRegExpr.Create;
  Expr.ModifierI := True;
@]
第二行是大小写不敏感的属性设置。
然后我们在protected下面增加一个函数
    function RegExpContainsText(aText,Pattern: string): Boolean;
函数的内容为
function TCnProjectViewBaseForm.RegExpContainsText(aText,Pattern: string): Boolean;
begin
  Expr.Expression := Pattern;
  try
    Result := Expr.Exec(aText);
  except
  end;
end;
然后我们把CnProjectViewUnitFrm.pas单元的第435 行和436行改为如下
//      if (MatchSearchText = '') or (AnsiStartsText(MatchSearchText, UnitInfo.Name)) or
//        (IsMatchAny and RegExpContainsText(UnitInfo.Name, MatchSearchText)) then
      if (MatchSearchText = '') or RegExpContainsText(UnitInfo.Name, MatchSearchText) then
这样,我们的工程组单元列表就支持正则表达式了。
呵呵,用了一下,发现查找效率明显比以前高多了。只要记得一点点的东西。就可以查到想到的东西。
比如。我想找出以List结尾的单元。只要输入list$就好了。想找以ABC开头的窗体。输入^abc就可以了。
更强大的功能还需要你自己多多挖掘。

第三步。给过程列表增加表达式功能。
修改CnProcListWizard.pas单元。在第2663行和下面的一行。注释掉。改成这样的
//            Idx := Pos(MatchStr, UpperCase(ProcName));
//            if (Idx = 1) or (IsMatchAny and (Idx > 1)) then
              if RegExpContainsText(ProcName,MatchStr) then
呵呵,现在编译后,再按快键盘打开过程列表专家。
我记的有一个函数叫查找过程名称。好象叫 search后面跟一个别的东西。然后后面是name
于是我输入 sea.*name,哈哈。我们的找出来了。回车。定位到当前过程。方便了不少。


Attachment: [正则表达式单元] RegExpr.pas (2009-8-22 17:44, 141.71 K)
Download count 600
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6814
Posts 3580
点点分 6814
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2009-8-22 23:13  Profile | Blog | P.M. 
感谢如此详细的修改。我们验证一下看看。
Top
jAmEs_
灌水部部长
Rank: 8Rank: 8



Medal No.1  
UID 886
Digest Posts 0
Credits 1134
Posts 600
点点分 1134
Reading Access 10
Registered 2005-6-5
Location 广东
Status Offline
Post at 2009-8-22 23:19  Profile | Blog | P.M. 
希望快点增加:)
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6814
Posts 3580
点点分 6814
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2009-8-23 12:40  Profile | Blog | P.M. 
另外,楼主是否可以确认RegExpr单元支持D2009或以上的Unicode字符串?
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6814
Posts 3580
点点分 6814
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2009-8-24 21:31  Profile | Blog | P.M. 
经过验证,Unicode也支持。
541版本已经集成此功能,烦请下载验证?

http://www.cnpack.org/downbuilds.php
Top
 




All times are GMT++8, the time now is 2024-10-16 10:03

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.010831 second(s), 8 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP