[Back to TEXTFILE SWAG index]  [Back to Main SWAG index]  [Original]

program DelTab;
uses Dos;

var
  F   : Text;
  FTo : Text;
  S : String;
  P,N,E : String;
  FName : String;
  CurF  : SearchRec;
  I     : Integer;

const
  Worked : Boolean = False;

begin
  Writeln('Tab-to-two-spaces exchanger v 1.0  (c) 1997 Tigers Of Softland');
  if ParamCount <> 0 then
    FName := ParamStr(1)
  else FName := '';
  FSplit(FName, P, N, E);
  if N = '' then N := '*';
  if E = '' then E := '.pas';
  FName := P + N + E;
  FindFirst(FName, Archive, CurF);
  while DosError = 0 do
  begin
    Write('Deleting tabs in ', CurF.Name);
    Assign(F, P + CurF.Name);
    Reset(F);
    Assign(FTo, P+'$TEMP$');
    Rewrite(FTo);
    while not EOF(F) do
    begin
      Readln(F, S);
      I := Pos(#9, S);
      while I <> 0 do
      begin
        Delete(S, I, 1);
        Insert('  ', S, I);
        I := Pos(#9, S);
      end;
      Writeln(FTo, S);
    end;
    Close(F);
    Close(FTo);
    Erase(F);
    Rename(FTo, CurF.Name);
    Writeln(', done.');
    Worked := True;
    FindNext(CurF);
  end;
  if not Worked then
    Writeln('Nothing to do!');
end.

[Back to TEXTFILE SWAG index]  [Back to Main SWAG index]  [Original]