Das deutsche QBasic- und FreeBASIC-Forum

[Janek76]

Hallo liebes Forum,

ich habe folgendes Problem und würde mich sehr freuen, wenn mir jemand weiterhelfen könnte: Ich möchte Anwenderdaten aus einer alten DOS-Anwendung herausziehen, die die Anwendung einfach in Dateien geschrieben hat und Ihnen den Namen .DAT gegeben hat. Die meisten Felder eines Datensatzes bestehen aus ASCII-Code, der sich ja ziemlich einfach auslesen läßt. Zum Teil sind aber auch Numerische-Felder dabei. Probleme bereitet mir da besonders das Datumsformat: Laut Hex-Editor erkenne ich ein 2byte Datumsfeld das die Hex-Werte 0x03 25h hat und dem 09.09.1999 entspricht. Ich habe lange gegoogelt und die Hilfe-Dateien des QB-Editors durchgesehen, aber alles was ich gefunden habe, waren die $DATE-Funktion, die mir das Datum als String zurückgibt, was ich ja nicht gebrauchen kann, und das date-Statement zum Ändern der Systemzeit. Aber ich habe keine Ahnung, ob es einen Datumsvariablentyp von 2byte gibt, wie ich ihn deklarieren und speichern kann. Ich kenne mich mit qbasic leider nicht aus. Hat irgendjemand eine? Ich würde mich sehr freuen, wenn mir jemand weiterhelfen kann.

Außerdem habe ich noch eine kleine Frage, über etwas worüber ich mich gewundert habe: Wenn ich die LONG-Zahl 6666666 nehme, und sie in einer Datei abspeichere, zeigt mir der Hex-Editor AA B9 65 an, wenn ich im QB-Editor hingegen PRINT HEX$(6666666) schreibe, wird alles umgedreht und es kommt 65 B9 AA heraus. Warum das? Was hat es damit auf sich?

Gruß,

Jan

[Dusky_Joe]

Unter QBX PDS 7.1 (downloadbar unter http://www.antonis.de/qbdown/qbcompil.htm , siehe auch www.qbasic.de) gibt es die Funktion DateSerial#, die ein Datum in genau das Format Packt, das du beschrieben hast. Mit DateValue# kannst du sie wieder zurückverwandeln.

Um diese Funktionen verwenden zu können, musst du aber die LIB DTFMTAR laden. das geht, indem du QBX mit der Zeile
QBX /L DTFMTAR.QLB
ausführst.

(achtung, das funktioniert nur mit QBX 7.1!)

Außerdem brauchst du die Libs selbst dazu... ich bin mir nicht mehr ganz sicher, ob in dem Download-Archiv, das ich oben angegeben habe auch die LIB dabei ist... ich habe meine version von QBX von der HP eines der Member dieses Forums, der die Original-Disketten von QBX in ein ZIP-Archiv gepackt hat... da war alles dabei....

However, dieser Hilfe-Auszug könnte dir Helfen:
Auszug aus der QBX-Hilfe, Kapitel "Serial Numbers"

[Janek76]

Hi Dusky_Joe,

vielen Dank, daß Du Dir Mühe gemacht hast, das zu posten. Das ist genau das, wonach ich gesucht habe. Ich habe wirklich stundenlang googelt, ohne was vernünftiges gefunden zu haben. Deine Antwort ist echt eine große Hilfe. Ich muß noch mal sehen, welchen Hex-Code ich genau für die Daten habe und hoffe, daß ichs konvertieren dann.

[Dusky_Joe]

Freut mich zu hören
Und nichts zu danken, in einer Community hilft man, wenn man kann
Mir waren die Schlüsselwörter vom durchstöbern der Hilfe bekannt. Ich hab sie mir jetzt nochmal durchgelesen, und viola - es passt

Ich würde aber nicht versuchen, vom Hex direkt aufs datum zu kommen, sondern erst mal über dezimal zu gehen.
Du könntest...

- Die Datei FOR BINARY öffnen,
- Vom Entsprechenden Offset 8 (!) Bytes in eine DOUBLE-Variable einlesen (eine Double-Variable hat immer 8 Byte)
- Mit CINT den Nachkommateil abschneiden. Dann hast du genau den Teil der Variablen, die das Datum darstellt, der Nachkommateil stellt ja die Uhrzeit dar. Evtl solltest du CLNG verwenden, da mit einem QB-INTEGER nur 65536 Werte dargestellt werden können. 65536 Tage sind etwa 180 Jahre. In einer LONG-Variable hingegen lassen sich weitaus mehr Werte speichern (2 ^ 32), was die 325 Jahre ermöglicht, die in diesem Format anscheinend dargestellt werden können. (01-01-1753 - 31-12-2078)

Also: