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

#229-8320-5005-02-1
%t19635S
b900
#229-8320-5005-03-1
%t15584S
b900
t2677
o900
b161
t5530
b900
#229-8320-5005-04-1
%t30598S
b900					

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

$lines = file($datei);
$dateihandle = NULL;
foreach ($lines as $line) {
  
  if(strpos('#',$line)===0) { // neue datei anfangen
    $dateinamen = substr($line, 1).".pbf";
    if($dateihandle!=NULL) { //wenn alte datei offen, diese schliessen
       fclose($dateihandle);
       $dateihandle = NULL;
    }
     $dateihandle = fopen($dateinamen, "w");
   } else {
     fputs($dateihandle, $line);
   }
   
}					

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

procedure LeseAbschnitt(const Datei:string;Nr:integer);
var i:integer;
begin
 with TStringList.Create do try
  LoadFromFile(Datei);
  for i:=0 to Count-1 do begin
   if pos('#',Strings[i])=1 then begin
    if Nr=0 then Break;
    Dec(Nr);
   end;
   if Nr=0 then ShowMessage(Strings[i]);
  end;
 finally
  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:

procedure LeseAbschnitt(const Datei:string);
var i:integer;
    AusgabeDatei:string;
    Ausgabe:TStrings;
begin
 SetLength(AusgabeDatei,0);
 Ausgabe:=nil;
 with TStringList.Create do try
  Ausgabe:=TStringList.Create;

  LoadFromFile(Datei);
  for i:=0 to Count-1 do begin
   if pos('#',Strings[i])=1 then begin
    // Alte Datei speichern?
    if length(AusgabeDatei)>0 then Ausgabe.SaveToFile(AusgabeDatei);
    Ausgabe.Clear;
    AusgabeDatei:=TrimRight(Strings[i])+'.pbf';
    System.Delete(AusgabeDatei,1,1); // # entfernen
   end;
   Ausgabe.Add(Strings[i]);
  end;

  // Alte Datei speichern?
  if length(AusgabeDatei)>0 then Ausgabe.SaveToFile(AusgabeDatei);

 finally
  if Assigned(Ausgabe) then Ausgabe.Free;
  Free;
 end;
end;					

1:

AusgabeDatei:='Z:\MeinVerzeichnis\'+AusgabeDatei:					

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:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    BTNkonvert: TButton;
    OpenDialog1: TOpenDialog;
    BTNende: TButton;
    procedure BTNkonvertClick(Sender: TObject);
    procedure BTNendeClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function file2string(filename:string):string;
var f: file of char;
    c:char;
begin
   result := '';
   if fileexists(filename) then
   begin
     assignfile(f,filename);
     reset(f);
     while not eof(f) do
     begin
       read (f,c);
       result := result + c;
     end;
     closefile(f);
   end;
end;

function strreplace(s,what, whit:string; var count:integer):string;
var lastfound: integer;
begin
   count := 0;
   result := s;
   if (what = '') or (whit = '') then exit;
   lastfound := 0;
   while pos(uppercase(what), uppercase(copy(result,lastfound+1,length(result)))) > 0 do
   begin
     inc(count);
     lastfound := lastfound + pos(uppercase(what), uppercase(copy(result,lastfound+1,length(result))));
     result := copy(result,1,lastfound-1) + whit + copy(result,lastfound + length(what),length(result));
     lastfound := lastfound - (length(what)-length(whit));
   end;
end;

function string2file(filename, aString: string; appendmode:boolean):boolean;
var f: textfile;//file of char;
    i : integer;
begin
   assignfile(f,filename);
   if appendmode then append(f) else rewrite(f);
   for i := 1 to length(aString) do
     write(f,astring[i]);
   closefile(f);
   result := true;
end;

procedure TForm1.BTNkonvertClick(Sender: TObject);
var
 dateiname   : string;
 mystring    : string;
 c           : integer;
 i           :integer;
 AusgabeDatei: string;
 Ausgabe     : TStrings;


begin
  if OpenDialog1.Execute then
   begin
    dateiname := OpenDialog1.FileName;
    SetLength(AusgabeDatei,0);
    Ausgabe:=nil;
    with TStringList.Create do try
     Ausgabe:=TStringList.Create;
     LoadFromFile(dateiname);
     for i:=0 to Count-1 do begin
      if pos('#',Strings[i])=1 then begin
       // Alte Datei speichern?
       if length(AusgabeDatei)>0 then
         begin
          Ausgabe.SaveToFile(AusgabeDatei);
          mystring := file2string(AusgabeDatei);
          mystring:= strreplace(mystring,#13#10,#13,c);
          string2file (AusgabeDatei,mystring,false);
         end;
       Ausgabe.Clear;
       AusgabeDatei:=TrimRight(Strings[i])+'.pbf';
       System.Delete(AusgabeDatei,1,1); // # entfernen
       AusgabeDatei:='D:\Test\PBF\'+AusgabeDatei;
      end;
       Ausgabe.Add(Strings[i]);
     end;

     // Alte Datei speichern?
     if length(AusgabeDatei)>0 then
     begin
       Ausgabe.SaveToFile(AusgabeDatei);

     end;

    finally
     if Assigned(Ausgabe) then Ausgabe.Free;
     Free;
    end;
   end;
  end;

procedure TForm1.BTNendeClick(Sender: TObject);
begin
close;
end;

end.