正規表現ユニット SkRegExp で行頭検索の挙動 (ID:149626)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

いつもお世話になっています、Terry です

正規表現「^」だけで行頭検索をした場合改行のみ存在する文字列とその他の文字を含んだ文字列で結果が違って困っています
秀丸やMeryなどで試したところ問題なくヒットするので正規表現オプションの問題かと調べてみましたがわかりませんでした

Delphi2009 + SkRegExp（3.0.8 2015/5/30 for Delhi 2005 later）

procedure TForm1.Button1Click(Sender: TObject);
var
  r:TSkRegExp;
  S:string;
begin
  r := TSkRegExp.Create;
  try
    r.Options:=r.Options+[roMultiLine];
    r.Expression := '^';
    Memo1.Lines.Add('-- #13 x 4');
    S:=#13#13#13#13;
    if r.Exec (S) then
    begin
      repeat
        Memo1.Lines.Add(
          IntToStr(r.Groups[0].Index));
      until not r.ExecNext;
    end;
    Memo1.Lines.Add('-- #13 + a#13 + #13 + #13');
    S:=#13+'a'+#13+#13#13;
    if r.Exec (S) then
    begin
      repeat
        Memo1.Lines.Add(
          IntToStr(r.Groups[0].Index));
      until not r.ExecNext;
    end;
    Memo1.Lines.Add('-- #13 + a#13 + #13 + #13a');
    S:=#13+'a'+#13+#13#13+'a';
    if r.Exec (S) then
    begin
      repeat
        Memo1.Lines.Add(
          IntToStr(r.Groups[0].Index));
      until not r.ExecNext;
    end;
  finally
    r.Free;
  end;
end;

結果
-- #13 x 4
1
2
3
4
-- #13 + a#13 + #13 + #13
1
2
-- #13 + a#13 + #13 + #13a
1
2
6

以上、よろしくお願いいたします

←解決時は質問者本人がここをチェックしてください。

戻る