CVL MKL$

[Fordey_ra]

Wie kann ich Daten von Qbasic die mit MKL$ gespeichert wurden wieder in eine Zahl verwandeln ?
Unter QBasic ging das mit dem CVL den gibt`s aber wohl nicht mehr.

mfg

[ts-soft]

Str()
Val()

Gruß
Thomas

[Fordey_ra]

Ersteinmal danke für die schnelle Antwort aber,
wie soll das gehen ?
Bei kommt der Wert null

ForEach Auftrag()
Aufnr.s=Left(Auftrag(),4)
Aufnr=Str(Val(Aufnr))
Debug Aufnr
Delay(5000)
Next

In Aufnr.S ist der mit MKL$ konvertierte Wert von Qbasic ausgelesen aus einer Datei.
Es erscheint nur Null auf dem Schirm.

[Fordey_ra]

Sorry es ist in CVS gespeichert und nicht CVL bzw MKL$

CVL scheint so gewandelt zu werden :
CVL = Asc(Zahl$) + 256 * Asc(Mid(Zahl$, 2, 1)) + 65536 * Asc(Mid(Zahl$, 3, 1)) + 16777216 *Asc(Mid(Zahl$, 4, 1))

CVS geht so einfach aber nicht.

[Kiffi]

CVS [...] CVL bzw MKL$

aha!

Code: Alles auswählen

ForEach Auftrag()
  Debug Auftrag()
Next

Poste mal ein paar Auftrag()-Zeilen, damit wir sehen können
wie die aussehen.

Grüße ... Kiffi

[Fordey_ra]

;In Qbasic wurde die Zahl z.B. 2111
;durch den Befehl MKS$(2111) umgewandelt in ein Wert:
;MKS$(Ausdruck einfacher Genauigkeit)
;4 Byte lang
;folgender Inhalt ergab die Zahl 2111 mit dem Befehl MKS$(2111)
Aufnr() = Chr(0) + Chr(240) + Chr(3) + Chr(69)
;zum zurückwandeln nuzte man CVS(Zahl$)

[Kiffi]

@Fordey_ra: Da ich weder MKS$ noch die anderen
von Dir genannten Befehle / Funktionen kenne, nützt
es wenig, mir den Aufbau der Zeilen zu erklären.

Zeig doch einfach mal so eine Datenzeile.

Grüße ... Kiffi

[ts-soft]

;In Qbasic wurde die Zahl z.B. 2111
;durch den Befehl MKS$(2111) umgewandelt in ein Wert:

Sinn und Zweck der Befehle? Für mich werden da Zahlen in Strings und umgekehrt gewandelt,
entsprechende Lösung gab ich Dir. Der Rest, was das alte Basic da, warum wie macht,
erschließt sich mir nicht, somit kann ich nicht weiterhelfen.

Gruß
Thomas

[Fordey_ra]

Erstmal vielen Dank für die Hilfe soweit.
In Qbasic wurde das gemacht um Zahlen auch große Zahlen in eine z.B. Datei mit einer fester Länge abzuspeichern. Dadurch war es halt einfach diese wieder auszulesen weil wie in diesem Beispiel die länge immer vier Byte sind egal welche Zahl. Und damals war halt Speicherplatz noch kostbar.
Ist halt alles schon sehr lange her.
In VisualBasic gibt es ein übersetzer Programm (kenne mich damit aber nicht aus).
Möchte aber bei PureBasic bleiben.

mfg

Reinhard

[ts-soft]

Und damals war halt Speicherplatz noch kostbar.

Dann brauchste den alten Mist doch nicht mehr, oder willste Dein Programm in diesem Format der 60ger weiterführen?