untypisierte dateien

[khh]

Zitat:

Zitat von Klaus01

Guten Morgen,

hast Du auch eine Beschreibung zu dem Datensatz?

Grüße
Klaus

leider nein, die Daten stammen aus eine uraltprogramm.
Ich brauch nur den Namen, also im Beispiel "Mailänder-Schnitte" , die Artikelnr "102" und den Preis 1.200

[DeddyH]

Wurden die Daten evtl. unter DOS angelegt? Dann könnte eine Umwandlung mit OEMToChar helfen.

[khh]

Zitat:

Zitat von DeddyH

Wurden die Daten evtl. unter DOS angelegt? Dann könnte eine Umwandlung mit OEMToChar helfen.

ja ist ein altes DOS-Programm
EDIT: heisst dann ich muss byte für byte mit oemtochar durchgehen?

[DeddyH]

Nein, OEMToChar verarbeitet ganze Strings.

[khh]

ich hab jetzt
mit:

Delphi-Quellcode:

    read(f,datensatz);
    test:=datensatz.zeile;
    name := datensatz.name;
    oemtochar(PChar(test),PChar(test2));  
    oemtochar(PChar(name),PChar(name2));

die ersten 100 byte eingelesen, wobei Zeile 75 byte und Name 25 byte gross ist.

Leider steht in test nach dem lesen nix drin.
in name steht "il?nderschnitte" und nach der Konvertierung mit oemtochar nur noch ein Leerstring :-(

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[khh]

gibts den keine Möglichkeit die einzelnen bytes direkt zu lesen?
Ich weiss ja an welcher Stelle die stehen, dann könnte man die evtl. direkt lesen?

[DeddyH]

Du könntest die Datei z.B. in einen TMemoryStream laden und dessen Methoden dann anwenden (Seek, Read, ReadBuffer, etc.).

[khh]

Zitat:

Zitat von DeddyH

Du könntest die Datei z.B. in einen TMemoryStream laden und dessen Methoden dann anwenden (Seek, Read, ReadBuffer, etc.).

klingt gut, werd ich mir dessen Methoden mal genauer anschaun.

Danke

[p80286]

Zunächst würde mich mal interessieren wo dieses seltsame "OEMtoChar" herkommt. in meiner Onlinehile finde ich da nichts.
Ich hätte Dir empfolen alle Zeichen eines Textfeldes über eine Übersetzungstabelle zu jagen und alles wäre gut. Insbesonders da einige alte DOS-Programme teilweise eine etwas eigenwillige/exotische Zeichentabelle genutzt haben.

wie sieht eigentlich die Definition von Datensatz aus?

Ich hab es übrigens in der Vergangenheit so gehalten, das ich das Einlesen über ein Array [0..x] of Char/Byte erledigt habe und darüber ein Record mit den richtigen Feld/Datendefinitionen gelegt habe:

Delphi-Quellcode:

type
  tMyrecord = packed record
       f1 : array [0..$4A] of byte;
       name : array [$4B..$63] of char;
       trenn1: byte;
       rest : array [$65..$3FF];
   end;

var
  buffer : array [0..1023] of char;
  myrecord : tMyrecord absolute buffer;
  gelesen : integer;
...
fs:=tfilestream.create(.......);
gelesen:=fs.read(buffer,sizeof(buffer));
...

und dann entweder im Debugger anschauen was in dem Record steht, oder eine Printausgabe machen oder ....

Und erst wenn Du eine vernünftige Datenstruktur hast, dann erst an der Darstellung drehen, es könnte sonst sein, daß Du irgendwelche Bytes als Char interpretierst.

Gruß
K-H

Edit:
Tippfehler
Warum zum Teufel wollen hier so viele immer wieder eine Datei Byte für Byte einlesen?
Je größer die Datenmenge, die man liest, desto fixer geht alles. Ich versteh das nicht!

[DeddyH]

Zitat:

Zitat von p80286

Zunächst würde mich mal interessieren wo dieses seltsame "OEMtoChar" herkommt. in meiner Onlinehile finde ich da nichts.

OEMToChar