regex 예제

program RegexExample;


uses
  RegExpr;


var
  Regex: TRegExpr;
  InputText: string;
  MatchPos: integer;


begin
  // 대상 텍스트
  InputText := '이메일 주소는 [email protected]입니다. 다른 주소는 [email protected]입니다.';


  // 정규 표현식 패턴
  Regex := TRegExpr.Create;
  try
    Regex.Expression := 'b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+.[A-Za-z]{2,6}b';


    // 매칭된 이메일 주소 찾기
    if Regex.Exec(InputText) then
    begin
      repeat
        MatchPos := Regex.MatchPos[0];
        WriteLn('이메일 주소 발견: ', Regex.MatchedText);
      until not Regex.ExecNext;
    end
    else
    begin
      WriteLn('이메일 주소를 찾을 수 없습니다.');
    end;
  finally
    Regex.Free;
  end;
end.