regex - 正则表达式：如何查找不超过特定字符的文本？

Question

我尝试隔离用于... Delphi 单元的 Delphi 单元列表。为此，我使用模式

(uses|Uses|USES)(.*\r\n)(.+\r\n)+

在这种情况下它工作得很好：

uses
  SysUtils, Classes, CTLibEnhQuery, CTLibQuery, CTLibDatabase, DB,
  CTMemDataSet, CTDataSet,CTStoredProc, DosCommand, ActnList, CTQuery,
  FlyingOp, Tools, FindFile, Dialogs;

但在这个

uses Variants, HyperStr, Config;
{$R *.dfm}

我还得到了 {$R *.dfm}。所以我的问题是：如何在分号之前而不是之后获取文本？
谢谢你的帮助

Answer 1

首先(uses|Uses|USES)，将您的正则表达式匹配器切换到不区分大小写模式，而不是 。然后做：

uses(([^;]|[\n\r])*)

Group 1将保存您所追求的列表。