Alte *.Dat-Dateien auslesen

[Andreas13]

Wenn der Quellcode vorhanden ist, würde ich davon nur die Record-Definitionen verwenden und die *.DAT's sequentiell einlesen und in einer Textdatei zur Weiterverarbeitung als Klartext zwischenspeichern.

Wenn das 1. Feld eines Records 32-Bit-LongInt(0) ist, ist der Record gültig.

Probleme kann (wird) es mit den "alten" Strings geben, die man wegen evtl. Umlaute etc. wahrscheinlich manuell anpassen muß, weil die noch nicht Unicode-Format haben.

Gruß, Andreas

[Luckner]

Der Quellcode ist nicht vorhanden. Es sind auch mehrere DAT-Dateien vorhanden (ca. 30). Ich wollte nur auf die Dat-Dateien per Delphi zugreifen und die Datenauslesen und in Firebird, evtl mit Korrekturen, speichern. Ich habe es schon mit BDE - und ADO-Komponente auf diese Dateien zuzugreifen. Delphi sagt mir erst dass die Verbindung funktioniert und dann soll ich mich anmelden. Auch diese Daten habe ich nicht.

Gruß, Luckner

[Luckie]

Was siehst du denn, wenn du so eine Datei mit einem (Hex)editor öffnest? Nicht unbedingt mit dem Windows internen, aber vielleicht mit Notepad+.

[Luckner]

Eigentlich nur so etwas:

Zitat:

ÝZ
ÝZ  27482 ELISON IMMOBIELIEN GMBH Kunde








69999
l—@ lA˜@ nd ohne Beschädigungen verlassen !!! k
25358 REISSIG-MARION








AD: Hr. Münchow Handwerker Rechnung lt. VOB§16 sofort o. Abzug zahlbar 69999

ïmÛ4 nÛ4 sen !!! ¢
10002 SIEWOGE Kunde








veränderter Stundenlohn 69999
HV +�E$ ýt,< nd ohne Beschädigungen verlassen !!! t
10003 BERLINOVO Kunde








ACHTUNG immer schrift. Angebot für Rep + Neu und Auftragswert beachten, sonst gibt es Ärger mit der HV - Info 30.06.2016, HM Hr. Metting hat keine Befugnisse ! Lt. Fr. Kremser Zahlbar innerhalb 4 Wochen 69999
HV96/12 ROM, +�E$ aFI ú

r schrift. Angebot für Rep + Neu und Auftragswert beachten, sonst gibt es Ärger mit der HV - Info 30.06.2016, HM Hr. Metting hat keine Befugnisse ! Lt. Fr. Kremser Zahlbar innerhalb 4 Wochen 69999
HV96/12 ROM, +�E$ aFI 7 10004 GEWIWO Kunde








andere Preise, 1997: 59,25 DM/Std.#zAD: Hr. Münchow Zahlbar innerhalb 4 Wochen 69999
HV96/00/03/04/05/09 ROM,JA +�E$ xV,< ab 1.03.98 - DM 61,00 -Demontge DM 29,00 bis 3,00 m Breite ú
10005 FREIE-SCHOLLE Kunde








Baurose, Mieter: Noebel, Moränenweg 24, Tegel - Feske, Allmendeweg. 116, Berlin Tegel, Hensen, Erholungsweg 48 Dämmung erhalten, Schaum mitnehmen! Zahlbar innerhalb 4 Wochen 69999
FA96/10/11 ROM/WD +�E$ srRC ab 01.03.98 DM 61,00#zDemontage bis 3,0 m Breite-DM 29,00 ú

Feske, Allmendeweg. 116, Berlin Tegel, Hensen, Erholungsweg 48 Dämmung erhalten, Schaum mitnehmen! Zahlbar innerhalb 4 Wochen 69999
FA96/10/11 ROM/WD +�E$ srRC ab 01.03.98 DM 61,00#zDemontage bis 3,0 m Breite-DM 29,00 ^ 10011 GESOBAU Kunde








Mahl 69999
HV94/95/96/11 ROM/JA/FEM +�E$ mh«F Neitzke: TechnischerEinkauf, Frau Hentschel: Geld, Rahmenauftrag, Frau Reimann: Gebäudeinstandhalt Ú
28397 RTW GMBH








Münchow 69999
hb°> ¡b°> nd ohne Beschädigungen verlassen !!! ^
11929 FLORIAN-ANDREAS








AD: Hr. Pöachel Handwerker Rechnung lt. VOB§16 sofort o. Abzug zahlbar 69999

PR04 Insektenschutz Ôf*0 ]E×0 nd ohne Beschädigungen verlassen !!! µ
21808 LORENZ-RUDI








69999
PR 01 MU º@A* niŸ+ sen !!! a
18497 BADINIJKI-OLIVER








69999
3a[% jiŸ+ sen !!! _
18359 EBMEYER-DAGMAR








69999
"U/% jiŸ+ sen !!! ]
31482 DERCOUST Kunde








M. Striewe 69999
.ƒ+J iƒ+J nd ohne Beschädigungen verlassen !!! f
28341 OTTO-GERT








Münchow 69999
ã[…> \…> nd ohne Beschädigungen verlassen !!! _
28340 TERASA-HEINZ Kunde








AD: Herr Münchow 69999
FA 11 AAJA †„> 1d;D nd ohne Beschädigungen verlassen !!! z
27719 KROHN








69999
HV ,V,< <`,< nd ohne Beschädigungen verlassen !!! V
26694 BARTOSZEWSKI-NORBERT Kunde








AD: Herr Pöschel/ Baurose 69999
PR 08/09 JA T{ƒ8 $vÞ> sen !!! ‹
26546 LANGER-HELGA








AD: Hr. Pöschel 69999

[Codehunter]

Oh oh. Nimm doch bitte Namen und Anschriften hier raus. Auch wenn es alte Daten sind. DSGVO lässt schön grüßen.

[Jasocul]

Ich habe solche Dateien vor etwa 20 Jahren mal auseinander genommen.

Schwierig wird es bei varianten Records (hatte ja schon jemand geschrieben).
Außerdem muss berücksichtigt werden, ob die Records "packed" definiert wurden.

Ansonsten:
- Sttrings sind ShortStrings. Daher steht im Byte davor die Länge.
- Integer müssten jetzt ShortInt sein
- Bei Real weiß ich im Moment nicht, was bei neuerem Delphi genutzt werden muss

Real und Integer stehen natürlich nicht als Klartext in der Datei.

Bei großen Records ist das ziemlich viel Gefummel und kann bei 30 Dateien eine Menge Arbeit bedeuten.

[Luckner]

Ich danke Euch für die Hinweise. Dann müssen die Anwender dann ihre Daten per Mausklick kopieren. dann geht es eben nicht anders.

Gruß, Luckner

[Luckie]

Na ja, man könnte schnell ein Tool programmieren, was ihnen die Arbeit erleichtert. Etwas mühsam ist nur den Feldtyp und die Feldlänge rauszufinden. Da wird man um Probieren nicht herum kommen. Aber wenn man das hat, kann man die Daten, zum leichten Kopieren, etwas aufbereiten in einem Memo schreiben oder jeden Datensatz in eine Textdatei speichern. Das wird nicht 100% funktionieren, wäre aber bestimmt eine Erleichterung.

[Luckner]

Lieber nicht. Das würde die Anwender an dieser Stelle überfordern. Dann müssen die Leute einige Monate parallel mit dem neuen Programm arbeiten.

Danke, Luckner

[Andreas13]

Zitat:

Zitat von Luckner (Beitrag 1455328)

...Das würde die Anwender an dieser Stelle überfordern. Dann müssen die Leute einige Monate parallel mit dem neuen Programm arbeiten.

Das heißt, daß ein funktionierendes Programm vorhanden ist. In dieser ISAM-Datenbank war es damals (1990+) üblich, einen Menüpunkt zur Anzeige der Datenbankgröße & Statistik zu haben. Dort könntest Du die Datensatzlänge Len in Bytes und die Anzahl der Datensätze anzeigen lassen. Damit hättest Du bereits etwas Information über die Datensatzstruktur

Delphi-Quellcode:

TYPE
  RecType1 = RECORD
    Dele         : LongInt;
    AutoRelation1: LongInt; // = Link zu einer anderen .DAT
    Reserve      : Array[1..Len-8] OF Byte;
  END;

Und damit liest Du einen Datensatz ein und versuchst aus dem Feld "Reserve" bekannt erscheinende Teile abzutrennen.

Damals war Real 6 Bytes lang. Aber es gab auch schon Extended mit 10 Bytes Länge. Die Integer waren 16-Bit-Integer.

Es ist sicherlich eine Fummelarbeit, aber man könnte es probieren. Am einfachsten wäre es, mit einer "Stammdatenbank" zu beginnen, die von sich aus keine Verknüpfungen zu anderen *.DAT’s hat.
Nomenklatur: Stammdatenbank = Kind = Detail
Eine Stammdatenbank hat kein Feld "AutoRelation".
Gruß, Andreas
PS:
Aufgrund Deines Speicherauszugs scheint mir die Recordlänge obiger .DAT 215 Bytes zu sein...