examples/Delphi/EXREGEU1.pas

(* ***** 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 ***** *)

unit Exregeu1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, Gauges,

  StBase, 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;
    Gauge1: TGauge;
    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 *.DFM}

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 (Gauge1.Progress <> Percent) then
    Gauge1.Progress := Percent;
end;


procedure TForm1.StRegEx1Match(Sender: TObject; Position: TMatchPosition);
begin
  Inc(ACount);
  Caption := IntToStr(Position.LineNum);
  Application.ProcessMessages;
end;

end.
1	torben	2671	(* *** BEGIN LICENSE BLOCK ***
2			* Version: MPL 1.1
3			*
4			* The contents of this file are subject to the Mozilla Public License Version
5			* 1.1 (the "License"); you may not use this file except in compliance with
6			* the License. You may obtain a copy of the License at
7			* http://www.mozilla.org/MPL/
8			*
9			* Software distributed under the License is distributed on an "AS IS" basis,
10			* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
11			* for the specific language governing rights and limitations under the
12			* License.
13			*
14			* The Original Code is TurboPower SysTools
15			*
16			* The Initial Developer of the Original Code is
17			* TurboPower Software
18			*
19			* Portions created by the Initial Developer are Copyright (C) 1996-2002
20			* the Initial Developer. All Rights Reserved.
21			*
22			* Contributor(s):
23			*
24			* *** END LICENSE BLOCK *** *)
25
26			unit Exregeu1;
27
28			interface
29
30			uses
31			Windows, Messages, SysUtils, Classes, Graphics, Controls,
32			Forms, Dialogs, StdCtrls, Buttons, Gauges,
33
34			StBase, StRegEx;
35
36			type
37			TForm1 = class(TForm)
38			gbOptions: TGroupBox;
39			cbSelect: TCheckBox;
40			cbIgnoreCase: TCheckBox;
41			cbLineNumbers: TCheckBox;
42			cbxModOnly: TCheckBox;
43			cbxCountOnly: TCheckBox;
44			Label1: TLabel;
45			edtSourceFile: TEdit;
46			Label2: TLabel;
47			edtDestFile: TEdit;
48			bntSelAvoid: TButton;
49			btnMatch: TButton;
50			btnReplace: TButton;
51			Memo1: TMemo;
52			lblSelAvoid: TLabel;
53			lblMatch: TLabel;
54			lblReplace: TLabel;
55			lblLPS: TLabel;
56			Button1: TButton;
57			sbSource: TSpeedButton;
58			sbDest: TSpeedButton;
59			OpenDialog1: TOpenDialog;
60			Gauge1: TGauge;
61			StRegEx1: TStRegEx;
62			procedure SelectFile(Sender: TObject);
63			procedure bntSelAvoidClick(Sender: TObject);
64			procedure btnMatchClick(Sender: TObject);
65			procedure btnReplaceClick(Sender: TObject);
66			procedure Button1Click(Sender: TObject);
67			procedure StRegEx1Progress(Sender: TObject; Percent: Word);
68			procedure StRegEx1Match(Sender: TObject; Position: TMatchPosition);
69			private
70			{ Private declarations }
71			public
72			{ Public declarations }
73
74			ACount : Cardinal;
75
76
77			StRegExClass : TStStreamRegEx;
78			end;
79
80			var
81			Form1: TForm1;
82
83			implementation
84
85			{$R *.DFM}
86
87			uses
88			ExRegEU2,
89			StStrS;
90
91			procedure TForm1.SelectFile(Sender: TObject);
92			begin
93			if (Sender = sbSource) then begin
94			OpenDialog1.Title := 'Source File';
95			OpenDialog1.Options := OpenDialog1.Options + [ofFileMustExist];
96			if OpenDialog1.Execute then
97			edtSourceFile.Text := OpenDialog1.FileName;
98			end else begin
99			OpenDialog1.Title := 'Destination File';
100			OpenDialog1.Options := OpenDialog1.Options - [ofFileMustExist];
101			if OpenDialog1.Execute then
102			edtDestFile.Text := OpenDialog1.FileName;
103			end;
104			end;
105
106			procedure TForm1.bntSelAvoidClick(Sender: TObject);
107			begin
108			Form2 := TForm2.Create(Self);
109			try
110			Form2.Memo1.Clear;
111			Form2.Memo1.Lines.Assign(StRegEx1.SelAvoidPattern);
112			if (Form2.ShowModal = mrOK) then begin
113			StRegEx1.SelAvoidPattern.Clear;
114			StRegEx1.SelAvoidPattern.Assign(Form2.Memo1.Lines);
115			end;
116			finally
117			Form2.Free;
118			Form2 := nil;
119			end;
120			end;
121
122			procedure TForm1.btnMatchClick(Sender: TObject);
123			begin
124			Form2 := TForm2.Create(Self);
125			try
126			Form2.Memo1.Clear;
127			Form2.Memo1.Lines.Assign(StRegEx1.MatchPattern);
128			if (Form2.ShowModal = mrOK) then begin
129			StRegEx1.MatchPattern.Clear;
130			StRegEx1.MatchPattern.Assign(Form2.Memo1.Lines);
131			end;
132			finally
133			Form2.Free;
134			Form2 := nil;
135			end;
136			end;
137
138			procedure TForm1.btnReplaceClick(Sender: TObject);
139			begin
140			Form2 := TForm2.Create(Self);
141			try
142			Form2.Memo1.Clear;
143			Form2.Memo1.Lines.Assign(StRegEx1.ReplacePattern);
144			if (Form2.ShowModal = mrOK) then begin
145			StRegEx1.ReplacePattern.Clear;
146			StRegEx1.ReplacePattern.Assign(Form2.Memo1.Lines);
147			end;
148			finally
149			Form2.Free;
150			Form2 := nil;
151			end;
152			end;
153
154			procedure TForm1.Button1Click(Sender: TObject);
155			begin
156			ACount := 0;
157
158			if cbxModOnly.Checked then
159			StRegEx1.OutputOptions := StRegEx1.OutputOptions + [ooModified]
160			else
161			StRegEx1.OutputOptions := StRegEx1.OutputOptions - [ooModified];
162			if cbxCountOnly.Checked then
163			StRegEx1.OutputOptions := StRegEx1.OutputOptions + [ooCountOnly]
164			else
165			StRegEx1.OutputOptions := StRegEx1.OutputOptions - [ooCountOnly];
166
167			if (TrimS(edtSourceFile.Text) = '') or
168			((TrimS(edtDestFile.Text) = '') and (not (ooCountOnly in StRegEx1.OutputOptions))) then begin
169			MessageDlg('Source and/or Destination file cannot be blank',
170			mtError, [mbOK], 0);
171			Exit;
172			end;
173
174			if not (FileExists(TrimS(edtSourceFile.Text))) then begin
175			MessageDlg('Source file not found', mtError, [mbOK], 0);
176			Exit;
177			end;
178
179			if (StRegEx1.SelAvoidPattern.Count = 0) and
180			(StRegEx1.MatchPattern.Count = 0) then begin
181			MessageDlg('You must specify a SelAvoid or Match Pattern',
182			mtError, [mbOK], 0);
183			Exit;
184			end;
185
186			StRegEx1.IgnoreCase := cbIgnoreCase.Checked;
187			StRegEx1.Avoid := not cbSelect.Checked;
188			StRegEx1.LineNumbers := cbLineNumbers.Checked;
189			StRegEx1.InputFile := TrimS(edtSourceFile.Text);
190			StRegEx1.OutputFile := edtDestFile.Text;
191
192			lblSelAvoid.Caption := 'Sel/Avoid: 0';
193			lblMatch.Caption := 'Match: 0';
194			lblReplace.Caption := 'ReplaceL 0';
195			lblLPS.Caption := 'Lines/Sec: 0';
196
197			Screen.Cursor := crHourglass;
198			try
199			StRegEx1.Execute;
200			finally
201			Screen.Cursor := crDefault;
202			end;
203
204			Memo1.Clear;
205			if (not (ooCountOnly in StRegEx1.OutputOptions)) then
206			Memo1.Lines.LoadFromFile(edtDestFile.Text);
207
208			lblSelAvoid.Caption := 'Sel/Avoid: ' + IntToStr(StRegEx1.LinesSelected);
209			lblMatch.Caption := 'Match: ' + IntToStr(StRegEx1.LinesMatched);
210			lblReplace.Caption := 'Replace: ' + IntToStr(StRegEx1.LinesReplaced);
211			lblLPS.Caption := 'Lines/Sec: ' + IntToStr(StRegEx1.LinesPerSecond);
212			end;
213
214			procedure TForm1.StRegEx1Progress(Sender: TObject; Percent: Word);
215			begin
216			if ((Percent mod 2) = 0) and (Gauge1.Progress <> Percent) then
217			Gauge1.Progress := Percent;
218			end;
219
220
221			procedure TForm1.StRegEx1Match(Sender: TObject; Position: TMatchPosition);
222			begin
223			Inc(ACount);
224			Caption := IntToStr(Position.LineNum);
225			Application.ProcessMessages;
226			end;
227
228			end.