Das deutsche QBasic- und FreeBASIC-Forum

[g3m1n1]

Hi Leute...
Habe mich heute hier registiriert und schon kommt die erste Frage

Ich schreibe zur Zeit ein Programm welches Dateien binär einliest
um sie dann später verschlüsselt wieder auszugeben. Das funktioniert
soweit recht gut, aber als ich plötzlich meine test.txt Datei um ein paar
Zeilen vergrößert habe, stürzt mir der Interpreter EXAKT nach dem
45sten Schleifendurchlauf ab. Ist die Textdatei kleiner, hat er kein Problem.
Hier die Routine zum Einlesen :

OPEN "test.txt" FOR BINARY AS #f

do
GET #f, , array(x)
print x
x = x + 1
loop until EOF(1)

CLOSE #f

Wie gesagt, wenn mir "45" angezeigt wird in der Konsole, bleibt das
Programm hängen und FDIDETEMP reagiert nicht mehr. Wenn ich weniger Inhalt in der Textdatei habe, dass der Zähler beispielsweise nur auf 44 Läuft und nicht weiter, ist alles ok.

Hat das Array vielleicht eine Größenbeschränkung ???
Oder hab ich bei dem binären openmode was vergessen ???

Wär super wenn einer von euch mir helfen könnte

Viele Grüße, Andy

[The_Muh]

bitte mal den gesamten code. mich persönlich interessiert vorallem die zeile wo du das array dimensionierst... wahrscheinlich hast du dein array mit ner größenbeschränkung dimensioniert, das lässt sich aber ganz leicht beseitigen

gibt einfach mal den ganze code her.
_________________
// nicht mehr aktiv //

[nemored]

Nebenbei (auch wenn das nichts mit dem Problem zu tun hat):
Statt

[g3m1n1]

Danke für den Tip mit der leeren Datei !

Und hier werden die Variablen initialisiert, steht direkt
über dem anderen code :

dim x as integer = 0
dim f as INTEGER = FREEFILE
dim array(x) as INTEGER
dim maxlength AS INTEGER

Wo hat sich da der Fehler eingeschlichen ?

[ThePuppetMaster]

1. du nutzt 'f' als Filenummer. Darum sollte bei EOF auf f drin stehen! '1' in eof gibt immer an das die filenummer '1' gemeint ist ... in f >könnte< jedoch auch was anderes drin stehen.
2. Until immer in do da es sein kann das man nach dem öffnen der datei diese schon als leer gilt.
3. Du musst das array redimensionieren, wenn du ein dynamisches nutzt, und kein statisches.
4. freefile sollte man so kurz wie möglich vor dem open (is aber nur bei Threads wichtig) ausführen
5. Prüffe immer ob die datei auch geöffnet wurde. kann ja sein das sie gespert ist oder ein Rechteproblem vorliegt.

[g3m1n1]

Danke für den Ansatz, aber es funktioniert immer noch
nicht....der gleiche Fehler... bis auf die Tatsache dass
nun garnicht mehr gezählt wird. Auch nicht bis 45.
Riesen Rätsel !!!
Vielleicht ein Fehler in FreeBasic ?!

Ich benutze übrigens die neuste freebasic version mit freebasic ide.
Soweit ich das der Hilfe entnehmen kann, bräuchte ich für REDIM PRESERVE
den Meta tag '$DYNAMIC.
Aber das geht laut Hilfe nicht mit der Version...?!

[The_Muh]

[g3m1n1]

Wunderbar !
Ich übernehme den code jetzt so. Danke !
Allerdings hab ich mittlerweile selbst etwas rumpriobiert und
der code hier geht auch....( ich wette aber, dass damit was nicht stimmt )

[nemored]

[g3m1n1]

Ich meine, früher in QB wars immer so, dass wenn der Befehl INPUT oder LINE INPUT kommt, der Programmablauf pausiert. Eben, damit man etwas eingeben kann. Jetzt ist es so, dass das ab und an klappt, und dann wieder nicht. z.b.

DIM code AS STRING
LINE INPUT "Passwort: ";code

...
Das Programm übergeht einfach die Input Anweisung. War früher nie so.
Bei nem SLEEP dahinter wird der erste Tastendruck als Beendigung der SLEEP Anweisung genommen...bei GETKEY ebenso.
Packt man das alles in ne Schleife, was mir nicht wirklich gefällt...macht das
Programm sowieso was es will. Bei ner Abbruchbedingung z.b. Tastendruck
von Enter oder x oder ähnlichem....

Ich will doch nur ne Eingabe tätigen

cin>>code ( c++ )
input code oder line input code ( Qbasic eigentlich )
Readln etc. etc.

[nemored]

[g3m1n1]

ich habs.
Sehr komischer Fehler.
Wenn im code vor einer input bzw. line input Anweisung ein
sleep Befehl steht, ohne Zeitlimit, wird input übergangen.
Dabei ist egal ob SLEEP direkt vorher steht oder 10 Zeilen
vorher.

Dachte erst das könnte vielleicht daran liegen dass ein Enter-drücken
mehrere Steuerbefehle an QB schickt und deswegen die nächste
Tastaturabfrage welche mit Enter beendet wird mit dem ersten Tastendruck
auch automatisch beendet....aber z.b. hier :

SLEEP

print "blablabla"

SLEEP

DIM x AS String
line input "Eingabe: ";x

...
wird das 1. Sleep mit Enter beendet und das Programm steht dann
am 2. Sleep. d.h. es werden nicht zu viele Steuerzeichen gelesen ( ein
Tastendruck bewirkt nicht mehrere im Code bei kurzem drücken ).

Jedenfalls....das muss es sein. Als ich alle sleeps vor der input zeile
weggemacht habe, liefs wie gewohnt.

[Jojo]

Referenz-Lesen bildet: