Delphi RichEdit查找包含字符串但不在括号后的行

Question

我正在尝试获取一个例程来查找不跟在括号后面的字符串。例如，如果在 RichEdit 中打开的文件包含这些 CNC 代码行，我希望它找到前两行并忽略第三行。在第二行中，它应该只查找并突出显示搜索字符串的第一次出现。本例中的搜索字符串 (mach.TOOL_CHANGE_CALL) 是“T”。

N1T1M6
N1T1M6(1/4-20 TAP .5 DP.)
(1/4-20 TAP .5 DP.)

我已经走到这一步了，但还是被难住了。

procedure TMainForm.ToolButton3Click(Sender: TObject); // find tool number
var
  row:integer;
  sel_str:string;
  par:integer;
  tool:integer;
  tool_flag:integer ;
  line_counter:integer;
  tool_pos:integer;
  line_begin:integer;
  RE:TRichEdit;
begin
  RE:=(ActiveMDIChild as TMDIChild).RichEdit1;
  line_counter:=0;
  tool_flag:=0;
  tool_pos:=0;

  row:=SendMessage(RE.Handle,EM_LINEFROMCHAR,-1, RE.SelStart);

  while  tool_flag =0 do    
  begin
    RE.Perform(EM_LINESCROLL,0,line_counter);
    sel_str := RE.Lines[Line_counter];
    tool:=pos(mach.TOOL_CHANGE_CALL,sel_str);
    par:=pos('(',sel_str);
    if par=0 then 
      par:=pos('[',sel_str);
    tool_pos:=tool_pos+length(sel_str);

    if (tool>0) and (par = 0)  then
    begin
      RE.SetFocus;
      tool_pos:=tool_pos + line_counter-1;
      line_begin:=tool_pos-tool;
      RE.SelStart := line_begin;
      RE.SelLength := Length(sel_str);
      tool_flag:=1;
    end;
    inc (line_counter);
  end;
end;

我得到的结果是它将忽略第三个字符串，但也会忽略第二个字符串。它也不会在文件中查找该字符串的后续出现，它只是从文本的开头开始并再次查找第一个字符串。如何让它找到第二个示例，然后在下次单击按钮时找到下一个“T”？我还需要它来突出显示找到搜索字符串的整行。

Answer 1

根据您发布的示例，您可以使用 Delphi(XE 及更高版本)正则表达式来匹配您指示的文本。在这里，我将您显示的三个示例行放入 TMemo 中。 (下面代码中的 Memo1 )，计算正则表达式，并将找到的匹配项放入 Memo2 中- 只要您的TRichEdit仅包含纯文本，您可以通过替换 Memo1 来使用相同的代码和Memo2与 RichEdit1和RichEdit2分别。

我更新了两个片段中的代码，以展示如何获取匹配结果的确切位置(作为距第一个字符的偏移量)和长度；您可以使用 SelStart 来突出显示 richedit 中的匹配项和SelLength .

uses
  RegularExpressions;

procedure TForm1.Button1Click(Sender: TObject);
var
    Regex: TRegEx;
    MatchResult: TMatch;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add('N1T1M6');
  Memo1.Lines.Add('N1T1M6(1/4-20 TAP .5 DP.)');
  Memo1.Lines.Add('(1/4-20 TAP .5 DP.)');
  Memo2.Clear;
  // See the text below for an explanation of the regular expression
  Regex := TRegEx.Create('^\w+T\w+', [roMultiLine]);
  MatchResult := Regex.Match(Memo1.Lines.Text);
  while MatchResult.Success do 
  begin
    Memo2.Lines.Add(MatchResult.Value +
                  ' Index: ' + IntToStr(MatchResult.Index) +
                  ' Length: ' + IntToStr(MatchResult.Length));
    MatchResult := MatchResult.NextMatch;
  end;
end;

这会产生以下结果:

如果您使用的 Delphi 版本不包含正则表达式支持，则可以使用免费的 TPerlRegEx 通过一些小的代码更改来产生相同的结果:

uses
  PerlRegEx;

procedure TForm1.Button1Click(Sender: TObject);
var
  Regex: TPerlRegEx;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add('N1T1M6');
  Memo1.Lines.Add('N1T1M6(1/4-20 TAP .5 DP.)');
  Memo1.Lines.Add('(1/4-20 TAP .5 DP.)');
  Memo2.Clear;
  Regex := TPerlRegEx.Create;
  try
    Regex.RegEx := '^\w+T\w+';
    Regex.Options := [preMultiLine];
    Regex.Subject := Memo1.Lines.Text;
    if Regex.Match then 
    begin
      repeat
        Memo2.Lines.Add(Regex.MatchedText +
                        ' Offset: ' + IntToStr(Regex.MatchedOffset) +
                        ' Length: ' + IntToStr(Regex.MatchedLength));
      until not Regex.MatchAgain;
    end;
  finally
    Regex.Free;
  end;
end;

上面的正则表达式( ^\w+T\w+ )意味着:

Options: ^ and $ match at line breaksAssert position at the beginning of a line (at beginning   of the string or after a line break character) «^»Match a single character that is a “word character” (letters,   digits, and underscores) «\w+»    Between one and unlimited times, as many times as possible,     giving back as needed (greedy) «+»Match the character “T” literally «T»Match a single character that is a “word character” (letters,   digits, and underscores) «\w+»    Between one and unlimited times, as many times as possible,     giving back as needed (greedy) «+»Created with RegexBuddy

你可以找到一个关于正则表达式的不错的教程 here 。我用来计算正则表达式(并且实际上为两个示例生成大部分 Delphi 代码)的工具是 RegexBuddy - 我不隶属于生产该产品的公司，而只是该产品的用户。