Welche dbase-Datei geöffnet?

[JörgG]

Hallööchen, ich brauche eine Möglichkeit, um festzustellen, ob dbf-dateien, die ich mit db("open",N,S) geöffnet habe schon geschlossen sind oder nicht.
Oder: ob zur Zeit dbf-dateien geöffnet wurden/sind, wenn ja welches Handle.

@FileStatus$(#N) liefert in diesem Fall immer einen Leerstring. Eignet sich also nicht für diesem Zweck. (was ja auch logisch ist)

Hintergrund: Beim Entwickeln & Testen bau ich mitr oft so eine "beenden-proc", die ich dann an beliebiger Stelle im Code aufrufe. Dort schließe ich alle bis dahin geöffneten Text oder dbasedateien & sql-Verbindungen.
Um diese dann nicht immer extra ändern zu müssen (weil mal mehr - mal weniger dbf-dateien geöffnet sind), wollte ich mir so eine Universalfunktion bauen, die das prüft & alle dbf's ordentlich schließt, bevor das prog beendet wird.
Könnte auch nützlich werden, wenn das Programm aus irgendwelchen Gründen vorzeitig beendet werden muß. In diesem Fall könnte ich Zentral alle noch offenen dbf-Dateien schließen. Ein pauschales db("close",#N1-N15) in einer Schleife geht auch nicht.

[Volkmar]

Wie wäre es mit Arrays, jeweils eins für Datei, DBase, SQL? Immer, wenn Du was erfolgreich geöffnet hast, suchst Du im jeweiligen Array die erste Zelle, die 0 enthält und trägst dort die Dateinummer oder das SQL-Handle ein. Schließt Du etwas, suchst Du wieder das entsprechende Array nach der geschlossenen Sache ab und setzt den gefundenen Wert auf 0. Die Beenden-Proc muß dann die Arrays durchackern und jede Stelle, die nicht 0 ist schließen.
Das Ganze dann als Include mit dem Prozeduren AddFileItem X, DeleteFileItem X und CloseAll, und Du hast die ganze Arbeit nur einmal und brauchst im Programm nur bei Erfolg die Add.. oder Delete..Proc aufrufen. In die Exitproc Deines Programmes kommt dann CloseAll rein.

Gruß Volkmar

[JörgG]

Hi Volkmar, dein Ansatz gefällt mir. Ich werde mal in dieser Richtung was zusammenschrauben. Der Index des jeweiligen Arrays könnte dann gleichzeitig das db- oder FileHandle sein. Dann kann ich direkt drauf zugreifen, ohne das Array nach der nächsten freien Stelle zu durchsuchen. Also:

DBarray%[Handle%] = 1 'geöffnet
DBarray%[Handle%] = 2 'geschlossen

Bei closeAll kann ich dann die Suche beenden, sobald ein Element den Wert 0 hat. Oder ich benutze dynamische Arrays, die haben dann eh nur so viel Elemente, wie Dateien geöffnet sind. Bei den SQL-Verbindungen muß ich halt einen manuellen Zähler einsetzen (ist aber eher selten, daß 2 oder mehr Verbindungen gemacht werden)
Gute Idee - Danke! Ich meld mich mal, wenn ich das ausprogrammiert habe
Bis denne

[_Joerg_]

Ich weiß nicht, wie groß die Handles sind. Wenn die sich aber im Bereich abspielen, wie Fensterhandles, würde ich das so eher nicht machen. Erstens erhälst Du so unütz große Arrays, die Du dann zweitens auch noch abklappern mußt, um herauszufinden, ob die Datei offen ist, oder nicht.
Ich würde einfach eine Listbox als Array nehmen. Handle in ie Liste, wenn geöffnet - wieder raus, wenn zu. So bleibt die Liste überschaubar und du kannst sie ruckzuck abarbeiten, wenn Du alles schließen willst.

[Volkmar]

JörgG meinte da mit Handle die Dateikennung, also #1 wäre dann Array%[1] u.s.w. Aber Listboxen wären da die noch bessere Möglichkeit. die haben dann nur so viele Einträge, wie aktuell Dateien offen sind. ist sogar noch besser, finde ich.

Gruß Volkmar

[JörgG]

ok, im Grunde genommen sind Listboxen im "inneren" ja auch Arrays. Ich bin da jetzt nicht ganz sicher, aber kann ich denn z.B. 3 Listboxen-Listen parallel betreiben?
@_Joerg_, wie Volkmar schon sagte: das Array für die DBF wäre maximal 16 Elemente groß & das Array für die Dateien max. 100 Elemente. (falls ich fest declariere). Bei dynamisch declarierten Arrays hätte ich den gleichen Effekt, wie bei der Listbox

[Volkmar]

Listboxen kannst Du wie jedes Control so viel nutzen, wie rein passen, wenn Du sie mit Create("ListBox", ..) oder als reine Liste mit Create("List", ..) erzeugst und Dich nicht auf die ständig verfügbare Listbox-Liste beschränkst. Da könntest Du dann beim Schließen wieder die Zeile löschen und hättest zum Schluß nur so viele Zeilen in der Liste, wie noch Dateien offen sind. Beim Hinzufügen wäre es ein einfaches AddString() nur beim Löschen müßtest Du die Zeile wieder suchen.

Gruß Volkmar

[JörgG]

hmm, hast Recht! habe grad mal schnell nachgelesen, beim löschen könnte ich die betreffende DateiNr. mit:

@SelectString(N1,N2,S)

schnell finden & dann dieses Element löschen.
Dann könnte ich zum Schluss (closeAll) einfach ganz stumpf die restlichen Elemente abarbeiten, ohne irgendwelche Bedingungen abfragen zu müssen
Jo! Ich werde dafür die Listen als Basis nehmen. Ist doch immer wieder gut, wenn man etwas länger über den Lösungsweg redet, bevor man anfängt, zu coden

[Volkmar]

Zitat von JörgG

Jo! Ich werde dafür die Listen als Basis nehmen. Ist doch immer wieder gut, wenn man etwas länger über den Lösungsweg redet, bevor man anfängt, zu coden

Ja, stimmt. Die erste Idee ist nicht immer die Beste. Auf gutes Gelingen.

Gruß Volkmar

[JörgG]

Jo Danke, auch an _Joerg_ für den "Denkanstoß"