正则表达式：如何查找特定字符的文本？

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将保留您所追踪的列表。