You've already forked lazarus-ccr
systools: Add unit StRegEx and corresponding example
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6144 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
234
components/systools/examples/regex/exregeu1.pas
Normal file
234
components/systools/examples/regex/exregeu1.pas
Normal file
@@ -0,0 +1,234 @@
|
||||
(* ***** BEGIN LICENSE BLOCK *****
|
||||
* Version: MPL 1.1
|
||||
*
|
||||
* The contents of this file are subject to the Mozilla Public License Version
|
||||
* 1.1 (the "License"); you may not use this file except in compliance with
|
||||
* the License. You may obtain a copy of the License at
|
||||
* http://www.mozilla.org/MPL/
|
||||
*
|
||||
* Software distributed under the License is distributed on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
||||
* for the specific language governing rights and limitations under the
|
||||
* License.
|
||||
*
|
||||
* The Original Code is TurboPower SysTools
|
||||
*
|
||||
* The Initial Developer of the Original Code is
|
||||
* TurboPower Software
|
||||
*
|
||||
* Portions created by the Initial Developer are Copyright (C) 1996-2002
|
||||
* the Initial Developer. All Rights Reserved.
|
||||
*
|
||||
* Contributor(s):
|
||||
*
|
||||
* ***** END LICENSE BLOCK ***** *)
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$mode DELPHI}
|
||||
{$ENDIF}
|
||||
|
||||
unit Exregeu1;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFNDEF FPC}
|
||||
Windows, Messages, Gauges,
|
||||
{$ENDIF}
|
||||
SysUtils, Classes, Graphics, Controls,
|
||||
Forms, Dialogs, StdCtrls, ComCtrls, Buttons,
|
||||
StRegEx;
|
||||
|
||||
type
|
||||
TForm1 = class(TForm)
|
||||
gbOptions: TGroupBox;
|
||||
cbSelect: TCheckBox;
|
||||
cbIgnoreCase: TCheckBox;
|
||||
cbLineNumbers: TCheckBox;
|
||||
cbxModOnly: TCheckBox;
|
||||
cbxCountOnly: TCheckBox;
|
||||
Label1: TLabel;
|
||||
edtSourceFile: TEdit;
|
||||
Label2: TLabel;
|
||||
edtDestFile: TEdit;
|
||||
bntSelAvoid: TButton;
|
||||
btnMatch: TButton;
|
||||
btnReplace: TButton;
|
||||
Memo1: TMemo;
|
||||
lblSelAvoid: TLabel;
|
||||
lblMatch: TLabel;
|
||||
lblReplace: TLabel;
|
||||
lblLPS: TLabel;
|
||||
Button1: TButton;
|
||||
sbSource: TSpeedButton;
|
||||
sbDest: TSpeedButton;
|
||||
OpenDialog1: TOpenDialog;
|
||||
ProgressBar1: TProgressBar;
|
||||
StRegEx1: TStRegEx;
|
||||
procedure SelectFile(Sender: TObject);
|
||||
procedure bntSelAvoidClick(Sender: TObject);
|
||||
procedure btnMatchClick(Sender: TObject);
|
||||
procedure btnReplaceClick(Sender: TObject);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure StRegEx1Progress(Sender: TObject; Percent: Word);
|
||||
procedure StRegEx1Match(Sender: TObject; Position: TMatchPosition);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
|
||||
ACount : Cardinal;
|
||||
|
||||
|
||||
StRegExClass : TStStreamRegEx;
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
uses
|
||||
ExRegEU2,
|
||||
StStrS;
|
||||
|
||||
procedure TForm1.SelectFile(Sender: TObject);
|
||||
begin
|
||||
if (Sender = sbSource) then begin
|
||||
OpenDialog1.Title := 'Source File';
|
||||
OpenDialog1.Options := OpenDialog1.Options + [ofFileMustExist];
|
||||
if OpenDialog1.Execute then
|
||||
edtSourceFile.Text := OpenDialog1.FileName;
|
||||
end else begin
|
||||
OpenDialog1.Title := 'Destination File';
|
||||
OpenDialog1.Options := OpenDialog1.Options - [ofFileMustExist];
|
||||
if OpenDialog1.Execute then
|
||||
edtDestFile.Text := OpenDialog1.FileName;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.bntSelAvoidClick(Sender: TObject);
|
||||
begin
|
||||
Form2 := TForm2.Create(Self);
|
||||
try
|
||||
Form2.Memo1.Clear;
|
||||
Form2.Memo1.Lines.Assign(StRegEx1.SelAvoidPattern);
|
||||
if (Form2.ShowModal = mrOK) then begin
|
||||
StRegEx1.SelAvoidPattern.Clear;
|
||||
StRegEx1.SelAvoidPattern.Assign(Form2.Memo1.Lines);
|
||||
end;
|
||||
finally
|
||||
Form2.Free;
|
||||
Form2 := nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.btnMatchClick(Sender: TObject);
|
||||
begin
|
||||
Form2 := TForm2.Create(Self);
|
||||
try
|
||||
Form2.Memo1.Clear;
|
||||
Form2.Memo1.Lines.Assign(StRegEx1.MatchPattern);
|
||||
if (Form2.ShowModal = mrOK) then begin
|
||||
StRegEx1.MatchPattern.Clear;
|
||||
StRegEx1.MatchPattern.Assign(Form2.Memo1.Lines);
|
||||
end;
|
||||
finally
|
||||
Form2.Free;
|
||||
Form2 := nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.btnReplaceClick(Sender: TObject);
|
||||
begin
|
||||
Form2 := TForm2.Create(Self);
|
||||
try
|
||||
Form2.Memo1.Clear;
|
||||
Form2.Memo1.Lines.Assign(StRegEx1.ReplacePattern);
|
||||
if (Form2.ShowModal = mrOK) then begin
|
||||
StRegEx1.ReplacePattern.Clear;
|
||||
StRegEx1.ReplacePattern.Assign(Form2.Memo1.Lines);
|
||||
end;
|
||||
finally
|
||||
Form2.Free;
|
||||
Form2 := nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button1Click(Sender: TObject);
|
||||
begin
|
||||
ACount := 0;
|
||||
|
||||
if cbxModOnly.Checked then
|
||||
StRegEx1.OutputOptions := StRegEx1.OutputOptions + [ooModified]
|
||||
else
|
||||
StRegEx1.OutputOptions := StRegEx1.OutputOptions - [ooModified];
|
||||
if cbxCountOnly.Checked then
|
||||
StRegEx1.OutputOptions := StRegEx1.OutputOptions + [ooCountOnly]
|
||||
else
|
||||
StRegEx1.OutputOptions := StRegEx1.OutputOptions - [ooCountOnly];
|
||||
|
||||
if (TrimS(edtSourceFile.Text) = '') or
|
||||
((TrimS(edtDestFile.Text) = '') and (not (ooCountOnly in StRegEx1.OutputOptions))) then begin
|
||||
MessageDlg('Source and/or Destination file cannot be blank',
|
||||
mtError, [mbOK], 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if not (FileExists(TrimS(edtSourceFile.Text))) then begin
|
||||
MessageDlg('Source file not found', mtError, [mbOK], 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if (StRegEx1.SelAvoidPattern.Count = 0) and
|
||||
(StRegEx1.MatchPattern.Count = 0) then begin
|
||||
MessageDlg('You must specify a SelAvoid or Match Pattern',
|
||||
mtError, [mbOK], 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
StRegEx1.IgnoreCase := cbIgnoreCase.Checked;
|
||||
StRegEx1.Avoid := not cbSelect.Checked;
|
||||
StRegEx1.LineNumbers := cbLineNumbers.Checked;
|
||||
StRegEx1.InputFile := TrimS(edtSourceFile.Text);
|
||||
StRegEx1.OutputFile := edtDestFile.Text;
|
||||
|
||||
lblSelAvoid.Caption := 'Sel/Avoid: 0';
|
||||
lblMatch.Caption := 'Match: 0';
|
||||
lblReplace.Caption := 'ReplaceL 0';
|
||||
lblLPS.Caption := 'Lines/Sec: 0';
|
||||
|
||||
Screen.Cursor := crHourglass;
|
||||
try
|
||||
StRegEx1.Execute;
|
||||
finally
|
||||
Screen.Cursor := crDefault;
|
||||
end;
|
||||
|
||||
Memo1.Clear;
|
||||
if (not (ooCountOnly in StRegEx1.OutputOptions)) then
|
||||
Memo1.Lines.LoadFromFile(edtDestFile.Text);
|
||||
|
||||
lblSelAvoid.Caption := 'Sel/Avoid: ' + IntToStr(StRegEx1.LinesSelected);
|
||||
lblMatch.Caption := 'Match: ' + IntToStr(StRegEx1.LinesMatched);
|
||||
lblReplace.Caption := 'Replace: ' + IntToStr(StRegEx1.LinesReplaced);
|
||||
lblLPS.Caption := 'Lines/Sec: ' + IntToStr(StRegEx1.LinesPerSecond);
|
||||
end;
|
||||
|
||||
procedure TForm1.StRegEx1Progress(Sender: TObject; Percent: Word);
|
||||
begin
|
||||
if (Percent mod 2 = 0) and (Progressbar1.Position <> Percent) then
|
||||
Progressbar1.Position := Percent;
|
||||
end;
|
||||
|
||||
|
||||
procedure TForm1.StRegEx1Match(Sender: TObject; Position: TMatchPosition);
|
||||
begin
|
||||
Inc(ACount);
|
||||
Caption := IntToStr(Position.LineNum);
|
||||
Application.ProcessMessages;
|
||||
end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user