1:

gawk '{ print $2 " " $1 " " $3 }' old.dat > new.dat					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function Token(sString : string; sDelim : string;
               nTokenNo : longint) : string;
var
  sWork      : string;
  sToken     : string;
  nStringLen : longint;
  nDelimLen  : longint;
  nDelimPos  : longint;
  i          : longint;
begin
  sWork := sString;
  nStringLen := Length(sString);
  nDelimLen  := Length(sDelim);
  for i := 1 to nTokenNo do
    begin
      nDelimPos := Pos(sDelim, sWork);
      if nDelimPos = 0 then nDelimPos := Length(sWork) + 1;
      sToken := Copy(sWork, 1, nDelimPos-1);
      sWork := Copy(sWork, nDelimPos + nDelimLen, nStringLen)
    end;
  Token := sToken;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TMainForm.Button1Click(Sender: TObject);
begin

  
  SL := tStringList.Create;

  Try
    SL.LoadFromFile ('c:\file.txt');
    
    begin

[...]Dein Code [...]

    end;
  Finally
    SL.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

var
  x,y,z : String;
begin
  x := Token (Zeile,' ',2) // gibt dir den zweiten Teil, also 53.xxx
  y := Token (Zeile,' ',1)// gibt dir den ersten Teil, also 11.xxx
  z := Token (Zeile,' ',3)// gibt dir den ersten Teil, also 83 o.s
  result := y + ' ' + x + ' ' + z;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  SL := tStringList.Create; 

  Try 
    SL.LoadFromFile ('c:\file.txt'); 
     
    begin 

[...]Dein Code [...] 

    end; 
  Finally 
    SL.Free; 
  end; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

function Token(sString : string; sDelim : string; 
               nTokenNo : longint) : string; 
var 
  sWork      : string; 
  sToken     : string; 
  nStringLen : longint; 
  nDelimLen  : longint; 
  nDelimPos  : longint; 
  i          : longint; 
begin 
  sWork := sString; 
  nStringLen := Length(sString); 
  nDelimLen  := Length(sDelim); 
  for i := 1 to nTokenNo do 
    begin 
      nDelimPos := Pos(sDelim, sWork); 
      if nDelimPos = 0 then nDelimPos := Length(sWork) + 1; 
      sToken := Copy(sWork, 1, nDelimPos-1); 
      sWork := Copy(sWork, nDelimPos + nDelimLen, nStringLen) 
    end; 
end;
...


...
var
  LTempStr: String;
  LRowNr: Integer;
begin
  SL := tStringList.Create; 

  Try 
    SL.LoadFromFile ('c:\file.txt'); 
    for LRowNr := 0 to sL.count - 1 do begin 
      SL[LRowNr] := Token(SL[LRowNr], ' ', 2) + ' ' +
        Token(SL[LRowNr], ' ', 1) + ' ' +
        Token(SL[LRowNr], ' ', 3);
    end; 
   SL.saveToFile('C:\file2.txt');
  Finally 
    SL.Free; 
  end; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure Tausche;
var tin, tout:Textfile;
    lese:String;
begin
  AssignFile(tin, 'c:\quelle.txt');
  AssignFile(tout, 'c:\ziel.txt');
  Reset(tin);
  Rewrite(tout);
  while not Eof(tin) do
  begin
     ReadLn(tin, lese);
     WriteLn(tout, Copy(lese, 15, 13), ' ', Copy(lese(1, 13), ' ', 
                   Copy(lese, 29, Length(lese)-28));
  end; // while
  CloseFile(tout);
  CloseFile(tin);
end; // Tausche;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

For Idx := 0 To SL.Count -1 Do
    begin

     If Copy (Sl[Idx], 1, 2) = '11' Then begin
     gesuchterWert := copy(sl[idx], 0, 15);
     xyztabelle.Append;
     xyztabelle.FieldByName('x').AsString := gesuchterWert;
     xyztabelle.Post;

    end;					

1:
2:
3:
4:

     gesuchterWert := copy(sl[idx], 0, 15);
     xyztabelle.Append;
     xyztabelle.FieldByName('x').AsString := gesuchterWert;
     xyztabelle.Post;