File: ReplaceText.lpr

package info (click to toggle)
lazarus 2.0.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 214,460 kB
  • sloc: pascal: 1,862,622; xml: 265,709; cpp: 56,595; sh: 3,008; java: 609; makefile: 535; perl: 297; sql: 222; ansic: 137
file content (22 lines) | stat: -rw-r--r-- 456 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
program ReplaceText;

uses Classes, strutils, LazLogger;

var
  s: TStringList;
  i, j: Integer;
  x: String;
begin
  s := TStringList.Create;
  s.LoadFromFile(ParamStr(1));
  j := 0;
  for i := 0 to s.Count-1 do begin
    x := AnsiReplaceText(s[i], ParamStr(2), ParamStr(3));
    if s[i] <> x then inc(j);
    s[i] := x;
  end;
  s.SaveToFile(ParamStr(1));
  s.Free;
  DebugLn(['Replaced in ', j, ' lines for file ', ParamStr(1), ' ',ParamStr(2)]);
end.