Anzahl von Bytes aus Datei ausschneiden/löschen

[Bea]

Hallo,
ich habe Dateien (*.csa), aus denen ich einen Teilstring ausschneiden muss,
welcher sich innerhalb von bestimmten Kennern befindet.
Kenner Anfang:@@DOCUWARE_
Kenner Ende:@@
In den Dateien selbst kann auch @@ vorkommen und darf nicht verändert werden.
Den ausgeschnittenen Teil muss ich mir in einem temporären String oder einer Stringliste zur späteren Weiterverarbeitung merken.
Der Rest der Dateien muss unverändert als neue Dateien (*.pcl) abgespeichert werden.

Mache ich dies mit Stringverarbeitung, ist die Datei danach nicht mehr in Ordnung, da es sich nicht um reine Textdateien handelt,
sondern um irgendwelchen Steuercode oder so.
Hab eine Beispieldatei mal mit angehangen.
Auszug aus so einer Datei:

Zitat:

%-12345X*c0F&f6X%-12345X@@DOCUWARE_MARGINS=-10 0 2680 3608@@@@DOCUWARE_FIELD:2,XX-X 000@@@@DOCUWARE_FIELD:3,
WDB@@@@DOCUWARE_FIELD:4,000000-00-000000 1@@@@DOCUWARE_FIELD:7,194105@@@@DOCUWARE_FIELD:32, Xxxxxxxx Xxxxxxx@@@@DOCUWARE_FIELD:35,Herr Elform@@@@DOCUWARE_FIELD:64,07.09.99@@@@DOCUWARE_F IELD:65,24.03.98@@@@DOCUWARE_FIELD:96,123400@@@@DO CUWARE_FIELD:
0,90000@@@@DOCUWARE_FIELD:1,Rechnung@@@@DOCUWARE_F IELD:6,X31\,94 DEM@@@@DOCUWARE_FIELD:33,Xxxxxxxxxxxxxx@@@@DOCUWAR E_FIELD:34,U 01 01@@@@DOCUWARE_FIELD:97,0199403420@@...A\RECHNUNG.ADF@@@@DOCUWARE_BASKET=
C:\Briefkorb@@%-12345X@PJL RDYMSG DISPLAY="RECHN-ARCHIVDW"
@PJL SET DENSITY=3
@PJL SET RESOLUTION=600
@PJL ENTER LANGUAGE=PCL
&l0E*t600R&u600D&f100y0X&f0S
&u300D*t600R&u600D*r0F&l0o&ll8c1E*p0x0Y*c0 t5611x8177Y*b0M
(100X&d@*c1G*c20W

Deshalb hab ich folgendes probiert:
Ich habe die Dateien mit UltraEdit im Hexmodus geöffnet.
Dann habe ich den auszuschneidenden Teil markiert, dabei wird mir die Anzahl der markierten Bytes (z.B. 539) in der Statuszeile angezeigt.
Nun habe ich im Kontexmenü "HEX einfügen/löschen" ausgewählt und die "Anzahl der zu löschenden Bytes" angegeben und gelöscht.
Danach hab ich die Dateien unter *.pcl abgespeichert und sie waren in Ordnung.

Wie kann ich das in Delphi umsetzen?

Ich denke also nun, ich muss die Dateien binär einlesen. Hab noch nie damit zu tun gehabt.
Das denke ich muss ich so machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var fs: tfilestream;
    buffer: array of byte;
    l: integer;
begin
  fs := TFileStream.Create('C:\Test.csa', fmOpenRead);
  try
    l := fs.Size;
    SetLength(Buffer, l);
    fs.Seek(0, soFromBeginning);
    l := fs.Read(buffer[0], l);
  finally
    fs.free;
  end;
end;

Wie ermittle ich nun die Positionen und die Anzahl der Bytes, welche ich ausschneiden muss?
Wie schneidet man diese Bytes aus bzw. merkt sich diesen Teil als temporären String zur Weiterverarbeitung?

Kann mir da jemand helfen? Hab echt keinen Plan.
Danke schonmal im Vorraus
CU Bea

[edit=Jelly]Zeilenumbrüche eingebracht Mfg, Jelly[/edit]

[Corpsman]

Geh doch her und mach es erst mal in nem Tmemorystream

dann gehst du byte weise durch diesen Stream und suchst nach deinem Präfix. hast du ihn gefunden schaltest du mit ner Variable um und suchst den Suffix. Ist dieser Gefunden weist du das du alles vorher tatsächlich in einen 2. Memorystream copieren Kannst. dann setzt du deine Alte Begin Grenze auf das ende deines Sufixes und machst weiter bis du die File durchhast.

[bitsetter]

Moin,

hier ist ein kleiner Lösungsansatz von mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var fs: tfilestream;
    buffer, Pfad, WVerarbeitung: AnsiString;
    l, Anfang, Ende: integer;
begin
  Pfad:= 'c:\Test.csa';
  if FileExists(Pfad) then
  begin
    fs := TFileStream.Create(Pfad, fmOpenRead);
    try
      SetLength(Buffer, fs.Size);
      fs.Seek(0, soFromBeginning);
      l := fs.Read(buffer[1], length(buffer));
      Anfang:= pos('@@DOCUWARE_', buffer);
        for Ende:= length(buffer) downto Anfang+ 10 do
        begin
          if (buffer[Ende]= '@') and (buffer[Ende- 1]= '@') then
            break;
        end;
      WVerarbeitung:= copy(buffer, Anfang, Ende- Anfang);
      //...
      //fs.Seek(0, soFromBeginning);
      //fs.Write(buffer[1], length(buffer));
    finally
      fs.free;
    end;
  end;
end;

Ob der Ausschnitt nun der Richtige ist weis ich nicht, aber vom Prinzip her müsste es gehen. Ich habe anstatt array of byte einfach String genommen.

[Corpsman]

So wie du das geschrieben hast implizierst du das dein Gesuchter Block nur 1 mal in der Datei ist.

in deiner Sample die du hochgeladen hast ist das aber Definitiv nicht so.

Daher wüdre ich das ein bischen anders machen.

Delphi-Quellcode:

const Praefix = '@@DOCUWARE_';
begin
..
Anfang := 0;
tmp := 0;
while (Anfang <buffer.size ) and (tmp < buffer.size- length(Praefix)) do begin
//      Anfang:= pos('@@DOCUWARE_', buffer);
inc(tmp);
b := True;
for z := 1 to length(Praefix) do
if Buffer[tmp+z-1]<>Praefix[z] then begin
b := false;
break;
end;
if b then begin
//        for Ende:= length(buffer) downto Anfang+ 10 do
for Ende := Anfang +Length(Praefix) to Length(buffer) do
        begin
          if (buffer[Ende]= '@') and (buffer[Ende- 1]= '@') then
            break;
        end;
// Dieser Abschnitt müste nun alle Teile irgendwann mal ablaufen.
      WVerarbeitung:= copy(buffer, Anfang, Ende- Anfang);
end;
end;

Sorry für den schlechten Stil ich hab leider net viel zeit.

[marabu]

Hallo Bea,

die CSA-Datei ist eigentlich eine PCL-Steuerdatei, angereichert um die DOCUWARE-Steuerdaten. Ich würde zuerst die DOCUWARE-Steuerdaten herausnehmen. Das geht am besten mit einem latch buffer. Die Datei beginnt mit der 9 Byte langen UEL-Sequenz #27%-12345X wodurch die aktuelle printer language deaktiviert wird. Dann folgen Befehle in der device native language (PCL). Irgenwann folgt wieder eine UEL-Sequenz gefolgt von @@DOCUWARE. An dem zweiten Klammeraffen erkennt das device, dass es sich nicht um PJL handelt und überlässt diese Steuerdaten einer anderen Instanz zur Interpretation.

Du kannst die Datei per FileStream lesen. Zuerst dimensionierst du den latch buffer (ein string) für die UEL-Sequenz - SetLength(latch, 9) - und füllst ihn voll auf. Die Extraktion startet, wenn du nach der UEL-Sequenz einen Befehl der Docuware Job Language entdeckst. Auf der sicheren Seite bist du da mit einem 10 Byte latch buffer, denn es könnten ja auch noch andere job languages eingebettet sein. Das Ende einer DJL-Passage wird wieder über eine UEL-Sequenz angezeigt. Um es zu erkennen schiebst du die Eingabedaten byteweise durch den latch buffer (vorne ein Byte abschneiden, hinten eines anfügen).

Alles inklusive der beiden UEL-Sequenzen möchtest du extrahieren. Warum möchtest du es eigentlich auch aus der Datei entfernen - ein Drucker ignoriert diese Befehle doch.

Das zerlegen der DJL-Befehle kannst du mit der gleichen Technik machen, aber ich würde wohl eher eine Vorbehandlung mittels StringReplace() durchführen und den list parser (Commatext, DelimitedText) aus der StringList verwenden. Die gefilterte PCL-Ausgabedatei kannst du mit CopyFrom-Aufrufen des Ausgabe-Filestreams bewerkstelligen, da du dir die Positionen der UEL-Sequenzen leicht merken kannst.

Grüße vom marabu

[Bea]

Hallo alle zusammen,
also ich hab jetzt eure Vorschläge durchgearbeitet.
Ich komm nicht klar, ich raff es nicht.
Die Erklärungen sind toll und helfen beim Verstehen,
ich krieg es aber trotzdem nicht in Delphi-Quelltext umgesetzt.

Ausschneiden muss ich diesen Teil, weil die fertig bearbeitete Datei dann
an einen pcl2tif-Converter übergeben wird und ein tif erzeugt werden soll.
Schick ich die Datei testweise unverarbeitet an diesen Converter,
sieht man dann im tif-File diese ganzen Zeilen auf der ersten Seite
und erst ab der 2. Seite geht das eigentliche Dokument los.
Diese DOCUWARE-Steuersequenzen werden scheinbar doch nicht ignoriert.
Das soll ja nicht so sein.
Deshalb denk ich, muss ich sie sauber ausschneiden.

Bei den Quelltextbeispielen komm ich noch nicht ganz klar.
Das erste Quelltextbeispiel geht zwar,
aber in WVerarbeitung steht doch auch noch viel zu viel drin,
es soll doch jeweils nur alles zwischen @@DOCUWARE_ und @@ ausgeschnitten werden:

Delphi-Quellcode:

@@DOCUWARE_MARGINS=-10 0 2680 3608@@@@DOCUWARE_FIELD:2,XXX-X 000@@@@DOCUWARE_FIELD:3,WDB@@@@DOCUWARE_FIELD:4,000000-00-000000 0@@@@DOCUWARE_FIELD:5,000000-00-000000@@@@DOCUWARE_FIELD:7,020020@@@@DOCUWARE_FIELD:32,XXXXXXXXX [email]XXXXXXXXX@@@@DOCUWARE_FIELD:35,H.ELFO[/email]RM@@@@DOCUWARE_FIELD:64,28. 5.99@@@@DOCUWARE_FIELD:65,8. 7.98@@@@DOCUWARE_FIELD:96,030400@@@@DOCUWARE_FIELD:0,80000@@@@DOCUWARE_FIELD:1,Auftrag - 1999@@@@DOCUWARE_FIELD:33,XXXXXXXXXXX@@@@DOCUWARE_FIELD:34,02/K                     19:31@@@@DOCUWARE_FIELD:97,020020@@%-12345X@PJL RDYMSG DISPLAY="ARCHIVDW"        
@PJL SET DENSITY=3
@PJL SET RESOLUTION=600
@PJL ENTER LANGUAGE=PCL
&l0E*t600R&u600D&f300y0X&f0S
&u300D*t300R&u600D*r0F&l0o&ll8c1E*p0x0Y*c0t5611x8177Y*b0M
*v0o0T*p1228Y
*r1A*b3M*b5W_ûÀ0*b3Wüð*b7W?û`8#`*b3Wü*b3Wü*b0W*b7WŸþÁþŽ*b6Wü!á*b9Wü8�8p`*b9W?ûà!p0

also müsste das doch so aussehen:

Delphi-Quellcode:

]
@@DOCUWARE_MARGINS=-10 0 2680 3608@@
@@DOCUWARE_FIELD:2,XXX-X 000@@
@@DOCUWARE_FIELD:3,WDB@@
@@DOCUWARE_FIELD:4,000000-00-000000 0@@
@@DOCUWARE_FIELD:5,000000-00-00000@@
@@DOCUWARE_FIELD:7,020020@@
@@DOCUWARE_FIELD:32,XXXXXXXXX XXXXXXXXX@@
@@DOCUWARE_FIELD:35,H.ELFORM@@
@@DOCUWARE_FIELD:64,28. 5.99@@
@@DOCUWARE_FIELD:65,8. 7.98@@
@@DOCUWARE_FIELD:96,030400@@
@@DOCUWARE_FIELD:0,80000@@
@@DOCUWARE_FIELD:1,Auftrag - 1999@@
@@DOCUWARE_FIELD:33,XXXXXXXXXXX@@
@@DOCUWARE_FIELD:34,02/K                     19:31@@
@@DOCUWARE_FIELD:97,020020@@

Wie schneide ich denn nun dort den Teil aus und speichere den Rest ordentlich in einer neuen Datei Test.pcl ab?

Die Quelltexterweiterung von Corpsman weiß ich überhaupt nicht, wo ich das einbauen kann.

Kann sich bitte nochmal jemand meines Problems annehmen?
Kann mir jemand ne Funktion passend zu der angehangenen Datei basteln?
Ich krieg es nicht hin. Bitte,bitte!
Cu Bea

[Bea]

Hallo,
ich hab zwischenzeitlich nochmal versucht, eure Quelltexte so zusammenzuführen: :coder2:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const Praefix = '@@DOCUWARE_';
var fs: tfilestream;
  buffer, Pfad, WVerarbeitung: AnsiString;
  l, Anfang, Ende, tmp, z: integer;
  b: boolean;
begin
  Pfad := 'C:\Test.csa';
  if FileExists(Pfad) then
  begin
    fs:=TFileStream.Create(Pfad, fmOpenRead);
    try
      SetLength(Buffer, fs.Size);
      l := fs.Read(buffer[1], length(buffer));
      Anfang := 0;
      tmp := 0;
      while (Anfang < fs.size) and (tmp < fs.size - length(Praefix)) do begin
        inc(tmp);
        b := True;
        for z := 1 to length(Praefix) do
          if Buffer[tmp + z - 1] <> Praefix[z] then begin
            b := false;
            break;
          end;
        if b then
        begin
          for Ende := Anfang + Length(Praefix) to Length(buffer) do
          begin
            if (buffer[Ende] = '@') and (buffer[Ende - 1] = '@') then
              break;
          end;
          WVerarbeitung := copy(buffer, Anfang, Ende - Anfang);
          Memo1.Lines.Add(WVerarbeitung);
          //...
          //...WVerabeitung aus Datei ausschneiden
          //...Rest der Datei unter C:\Test.pcl neu abspeichern
          //...Übergabe an Converter
          //..."C:\Programme\VeryPDF PCL Converter v2.0\pcltool.exe" "C:\Test.pcl" "C:\Test.tif" 
          //fs.Seek(0, soFromBeginning);
          //fs.Write(buffer[1], length(buffer));
        end;
      end;
    finally
      fs.free;
    end;
  end;
end;

Aber das ist nicht richtig.
Es kommt folgendes dabei raus.
In WVerarbeitung steht dann folgendes:

Delphi-Quellcode:

%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@
%-12345X*c0F&f6X%-12345X@@

Was ist denn da nun wieder los?
Helft mir doch bitte!!! :cry:
CU Bea

[marabu]

Hallo Bea,

falls die Dateien klein genug für den Hauptspeicher sind:

Delphi-Quellcode:

program dw;

{$APPTYPE CONSOLE}

uses
  StrUtils,
  Classes,
  SysUtils;

var
  fn: TFileName;

procedure ProcessFile(fn: TFileName);
const
  UEL = #27'%-12345X';
  DWIND = '@@DOCUWARE';
var
  ss: TStringStream;
  fs: TFileStream;
  iBegin, iEnd, nSize: Integer;
begin
  ss := TStringStream.Create('');
  fs := TFileStream.Create(fn, fmOpenRead or fmShareDenyWrite);
  ss.CopyFrom(fs, 0);
  fs.Free;

  fs := TFileStream.Create(ChangeFileExt(fn, '.pcl'), fmCreate);
  ss.Position := 0;
  while ss.Position < ss.Size do
  begin
    iBegin := PosEx(UEL + DWIND, ss.DataString, Succ(ss.Position));
    if iBegin > 0 then
    begin
      nSize := Pred(iBegin) - ss.Position;
      fs.CopyFrom(ss, nSize);
      iEnd := PosEx(UEL, ss.DataString, iBegin + Length(UEL + DWIND));
      ss.Position := Pred(iEnd) // + Length(UEL) // kleiner Fehler große Wirkung - sorry
    end else
      fs.CopyFrom(ss, ss.Size - ss.Position);
  end;
  ss.Free;
  fs.Free;
end;

begin
  if (ParamCount <> 1) then
    WriteLn('Aufruf: dw file[.csa]') else
  begin
    fn := ParamStr(1);
    if ExtractFileExt(fn) = '' then
      fn := fn + '.csa';
    if FileExists(fn)
      then ProcessFile(fn)
      else WriteLn('Datei nicht gefunden: ', fn);
  end;
end.

Getippt und nicht getestet.

Freundliche Grüße

[bitsetter]

Hallo,

geht es so? Im Memo sieht es aber wegen fehlender Steuerzeichen etwas komisch aus.

Delphi-Quellcode:

function PosEx_(const SubStr, S : String; Offs: integer = 1): integer;
begin
  Result:= 0;
  if (Offs> 0) and (Offs<= length(S))then
  begin
    Result:= Pos(SubStr, string(@S[Offs]));
    if Result> Length(S)- Offs then
      Result:= 0;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var fs: tfilestream;
    buffer, Pfad, WVerarbeitung: AnsiString;
    Anfang, Ende: integer;
begin
  Pfad:= 'c:\Test.csa';
  if FileExists(Pfad) then
  begin    
    fs := TFileStream.Create(Pfad, fmOpenRead);
    try
      SetLength(Buffer, fs.Size);
      fs.Seek(0, soFromBeginning);
      fs.Read(buffer[1], length(buffer));
      WVerarbeitung:= '';
      Anfang:= pos('@@DOCUWARE_', buffer);
      Ende:= PosEx_( '@@', buffer, Anfang+ 10);
      while (Anfang<> 0) do
      begin
        WVerarbeitung:= WVerarbeitung+ Copy(buffer, Anfang, Ende+ 11);//+#13#10;
        Delete(buffer, Anfang, Ende+ 11);
        Anfang:= pos('@@DOCUWARE_', buffer);
        Ende:= PosEx_( '@@', buffer, Anfang+ 10);
      end;
      caption:= 'Ausgeschnittene Länge= '+ inttostr(length(WVerarbeitung))+ ' Bytes';
      Memo1.Lines.Text:= WVerarbeitung;
    finally
      fs.free;
    end;
      fs := TFileStream.Create(ChangeFileExt(Pfad, '.pcl'), fmCreate);
      try
        fs.Seek(0, soFromBeginning);
        fs.Write(buffer[1], length(buffer));
      finally
        fs.Free;
      end;
  end;
end;

Mein Delphi 6 hat leider kein PosEx.

EDIT: Der geänderte Inhalt vom buffer wird jetzt als "PCL" Datei abgespeichert.

[himitsu]

PosEx_: wenn du sicherstellst das 0 > ind >= Length(S) , dann schon.



PosEx ... such mich :zwinker:

[bitsetter]

@himitsu

in der Delphi 6 PE Hilfe steht ja auch PosEx drin, wenn ich die StrUtils einbinde, findet er jedoch kein PosEx. Warum eigentlich nicht ?:?: In Delphi 2005 PE klappt es problemlos.

EDIT: Na gut in der Code- Lib steht auch PosEx drin.

[Bea]

Hallo,
vielen, vielen Dank, dass ihr mir hier so schnell helft.

Also es funktionieren soweit erstmal alle beiden Varianten von marabu und bitsetter.
Bei marabu entsteht auch schon gleich die benötigte .pcl-Datei.
Wenn ich diese nun über den Converter schicke
"C:\Programme\VeryPDF PCL Converter v2.0\pcltool.exe" "C:\Test.pcl" "C:\Test.tif"
steht aber auf der ersten Seite immer noch Zeug, was nicht dahingehört.

Ich hab sie mal mit angehangen (Test_nicht_okay.pcl) (Test_nicht_okay.tif).
(Musste nur die .pcl-Dateien in .txt umbenennen)

Ich glaube, es wird einmal zu viel folgendes Stück am Anfang "%-12345X*c0F&f6X" mit herausgeschnitten.

Folgende Datei hab ich mit UltraEdit händisch bearbeitet und genau so sollte es am Ende dann aussehen:
Anhang(Test_okay.pcl) (Test_okay.tif)


In der Version von bitsetter sieht der auszuschneidende String im Memofeld auch erstmal gut aus,
nur wie schreibe ich dort dann den Rest in die neue pcl-Datei?

Die Anmerkung von himitsu verstehe ich nicht.

Helft ihr mir bitte noch weiter, ich bin euch wahnsinnig dankbar.
CU Bea

[marabu]

Hallo Bea,

ich habe einen Fehler in meinem code sample (Beitrag #8, Zeile #37) korrigiert und ein Test bei mir hat das richtige Ergebnis produziert. Da du den Fehler anhand des Ergebnisses nicht sofort erkannt hast, vermute ich, dass du auch den Code gar nicht nachvollzogen hast. Du solltest das unbedingt nachholen, denn "fremder" Code in eigenen Programmen ist wie Gift.

Nachdenkliche Grüße

[bitsetter]

Hallo,

ich habe den Code weiter oben jetzt so abgeändert, das er den geänderten Buffer als "PCL" Datei abspeichert.
Aus dem Buffer wurde praktisch der ausgegebene Inhalt vom Memo ausgeschnitten und dann als "PCL" Datei abgespeichert.
Deine Test_okay.pcl Datei habe ich nicht gefunden.
Meine CSA Ausgangstdatei war jedenfalls 74.490 Bytes groß und meine PCL End Datei 73.965 Bytes also 525 Bytes kleiner. Das war meiner Meinung nach die Aufgabenstellung, ansonsten habe ich es wohl falsch verstanden.
Warum deine Dateien nun größer geworden sind kann ich nicht verstehen, etwa ein Missverständnis?

Himitsu meinte wohl meine Funktion PosEx_().

[Bea]

Hallo ihr lieben fleißigen Helfer, :coder:

ich danke euch nochmals ganz doll für eure schnelle, kompetente Hilfe.
Ihr seid wirklich Spitze. :thumb:
Es funktionieren jetzt beide Varianten von marabu und bitsetter einwandfrei. :dancer:

Marabu, du hast natürlich recht, dass ich den Quellcode noch nicht richtig verstanden habe,
aber ich garantiere dir, dass ich mich intensiv damit beschäftigen werde.
Wenn ihr Lust habt und euch die Mühe noch machen möchtet,
könntet ihr mir ja die Quelltexte noch etwas kommentieren,
aber ich möchte jetzt auch nicht unverschämt sein, ihr habt mir eh schon so viel geholfen.
Ich hoffe, ich kann durch debuggen verschiedenen Schritte logisch erkennen und verstehen
und lerne dadurch wieder was dazu.

Ich dank euch also nochmals und hoffe, ich kann beim nächsten Mal wieder auf euch zählen. :kiss:

CU Bea