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]