Question

在新版本的GExperts中，grep实用程序现在支持更多“专家”表达式。

我还没有找到一种方法来找到空的try ...除了使用正则表达式的Delphi源代码中的块，我怎么能用GExperts grep工具呢？

Answer 1

我怀疑GExperts正则表达式功能允许您搜索超出行分隔符。

如果您不介意使用TPerlRegEx之类的组件，以下代码可让您开始自行搜索。

var
  emptyExceptBlock: TPerlRegEx;
  Results: TStringList;

emptyExceptBlock := TPerlRegEx.Create(nil);
emptyExceptBlock.RegEx := except\s+((//.*|/\*.*\*/|\(\*.*\*\))\s+)*end;
emptyExceptBlock.Options := [preExtended];
emptyExceptBlock.Subject := LoadFromFile('YourFile.pas');
Results := TStringList.Create;
if emptyExceptBlock.Match then begin
    repeat
        Results.Add(emptyExceptBlock.MatchedExpression);
    until not emptyExceptBlock.MatchAgain;
end;

Answer 2

有一个名为Insert Auto Todo的工具（不是GExperts的一部分，我想我是从CodeCentral获得的），它自动将待办事项插入空的开始/结束块。也许那就是你想要的？

我怎样才能找到所有空的尝试...除了带有GExperts grep的块？

2 个答案: