Das deutsche QBasic- und FreeBASIC-Forum

[bm-magic]

Vorab:
Dank Deutschen DOS Forum und hauptsächlich ANTONIS.DE
(Wo ich fast alle Beschreibungen über QBasic gelesen und viele Beispiele versucht hatte)
denn ich hoffte, ohne fremde Hilfe das Problem in den Griff zu bekommen,
Bin ich zu diesem Stand gekommen und nun kein Einstieg finde.

Aufgabe: DOS 6.2;
- In einem Ordner1 gibt eine unbekannte Anzahl von Unterverzeichnissen.
- Im jedem Unterverzeichnis ist eine *.txt Datei.
Die Aufgabe ist alle *.txt Dateien auf ext. Laufwerk zu sichern.
Leider duldet DOS 6.2 keine Platzhalter im Ordner Namen!
Stand:
- Mit [DIR Ordner1 > dir.txt] sind die Unterordner in [dir.txt] aufgelistet.
Mit [VARSET.COM] (von Horst Schaeffer) wird die Anzahl der Unterverzeichnissen
in [SET Variable N=x] dokumentiert mit dem Aufruf:
[CALL VAR SET N=DIRS D:\ORNER1\*.* (wird die Menge der Ordner als N=x eingetragen)]
- Mit [LMOD.COM] (auch Horst Schaeffer) bekommt man die Namen ab Zeile 8 gelesen
und kann sie in N Batch weiter verwenden. Aufruf:
Type dir.txt | LMOD /L8 [$1] > L8.TXT L=Zeilen Nr. [$Word Nr.] [Für das erste Name)
Type dir.txt | LMOD /L8+1 [$1] > L8+1.TXT L=Zeilen Nr. [$Word Nr.] [Für den zweiten Name).
Problem:
- DOS 6.2 kann nicht rechnen also muss man mit QBasic weiter machen.
- Wie bekommt man die [L(+N] als Wert um die Aufrufe zu automatisieren und die Menge zu
begrenzen?
- Am liebsten hätte ich mit VARSET die Ordner Namen als SET Name_1= ; bis Name_L = weiter verwendet.

Bitte, bitte um eine Hilfe

[HorstD]

[dreael]

Vor dem Neuerfinden vom Rad, schau Dir zuerst einmal XCOPY genauer an, ob "*.txt" und "/s" nicht bereits Deinen Bedarf abdeckt.

Ansonsten ist etwas Eigenes entwickeln nicht so schwierig, ist eine Aufgabe für Rekursion, bei welcher Du ein Verzeichnis mit DIR$ durchgehst, sobald der Eintrag ein Unterverzeichnis ist, rufst Du die entsprechende SUB einfach noch einmal auf!

Falls DIR$ fehlt, ist ein CALL INTERRUPT auf INT 21h, AH=4Eh das Richtige oder ein SHELL "dir", wenn die Lösung externe Programme verwenden darf.
_________________
Teste die PC-Sicherheit mit www.sec-check.net

[bm-magic]

Danke für die sicher gut gemeinte Hilfe.
Natürlich möchte ich das Rad nicht neu erfinden.
Leider habe ich so ein Rad noch nirgendwo gefunden
- XCOPY verwende ich sowieso, um die Originale nicht zu zerstören, aber
es sollen alle *.txt Dateien in einem Ordner gesichert werden und ich muss
den letzten bekannten Ordner überspringen damit ich aus der
unbekannten Unterverzeichnissen die Daten kopieren kann.
- Ich habe leider Deine folgende Sätze nicht verstanden, da ich mit
QBasic erst seit etwa einen Monat aus Verzweiflung konfrontiert bin und
ich finde leider kein Einstieg.
- Bis jetzt ändert jeder Versuch einen Aufruf aus Qbasic zu starten mit
irgend einer Fehlermeldung die ich nicht verstehe.
- Heute hatte ich mich z.B. die Qbasic den ganzen Tag gequält nur weil ich
versucht habe über ENVIRON eine Variable zu setzen. Erst als ich nach
vielen Std. unten Datei\Betriebssystem\ gewählt habe wurde der Wert akzeptiert.
Um meinen Wunsch in Qbasic zu verwirklichen werde ich mehrere Jahre brauchen.
- Darum hoffe ich auf Hilfe von einen "Profi".
- Es hilft mir leider nicht zu wissen DIR$ ist die Lösung, weil ich es (noch) nicht anwenden kann.
- Aber drotz dem vielen Dank

[ThePuppetMaster]

Die aufgabe ist ansich ja recht einfach gehalten und prinzipiel auch eifnach zu lösen.

ich gehe mal davon aus, das du noch keine wirkliche erfahrung mti (Q)Basic hast. Zumindest lese ich das aus deinen Postings heraus.

Es ist natürlich ideal, wenn man ein Programm erzeugt, das einem genau diese Aufgabe abnimmt, und man nicht viel in andere datein oder BATCH Programme packen muss.

Daher:
1. Erst muss man sie die aufgabe vor augen führen und herausfinden und aufschlüsseln, welche Schritte nötig sind, um das geforderte Problem lösen zu können. (Ähnlich wie man es von hand tuen würde)
2. Das Programm schreiben, das diese schritte, nacheinander abarbeiten kann

Zu 1.
Gegeben ist ein Verzeichniss, in dem sich eine unbekannte anzahl weiterer Verzeichnisse befindet, in welchen jeweils eine txt datei liegt, dessen namen nicht bekannt ist.
Aufgabe ist, diese Dateien auf ein laufwerkzu sichern.

Zerpflückt würde die aufgabe also so aussehen, das man zuerst einmal das verzeichniss auslesen würden. Sprich, herausfinden, wieviele weitere unterverzeichnisse existieren, und wie dessen bezeichnung ist.

anschliessend muss herausgefunden werden, wie die TXT datei in diesem verzeichniss heist, um sie später kopieren zu können.

als nächstes muss diese datei auf das ziellaufwerk kopiert werden.

zu 2.
Ich will dich jetzt nicht von QB weg bekommen, aber wenn du FreeBasic nutzt, ist es deutlich einfacher, das geforderte Problem zu lösen, da es einige neuere Funktionen zur verfügung stellt, welche in QB nicht vorhanden sind.

Daher beschreibe ich es einfach mal mit FB mittel. Dies könnte dir jedocha uch beim lösen des Problemes allgemein helfen.

Um herauszufinden, was in einem gegebenen verzeichniss liegt, gibt es den, schon von dir entdeckten "dir" befehl.

[bm-magic]

- Ich habe gerade in Qbasic nach DIR gesucht, aber der Befehl
gibt es bei mir nicht.
- INFO bei DOS 6.22 ist die Qbasic Version 1.1 (habe gerade gelesen)
- In irgend einer Anleitung habe ich nun gesehen, dass der DIR$ Befehl
erst ab QuickBASIC 7.1/PDS zu Verfügung steht.
- Bitte es zu berücksichtigen. Danke

[bm-magic]

Hallo ThePuppetMaster,
danke für die Antwort.
- Du weißt nicht, wie viel Du mir geholfen hast auch wenn ich Deine sehr schöne
Erklärung noch nicht verstanden habe.
- Ich werde es studieren und werde sicher einige Aufrufe anwenden Können.

Sehr großen Dank

[dreael]

[HorstD]

Alternativ kannst du auch den FirstBasic Compiler verwenden.
FirstBasic ist eine Shareware Version von PowerBASIC 2.1
Download: http://www.powerbasic.com/support/downloads/files/FirstBas.zip

- Keine Mausbedienung
- DIM nur für Arrays
- Nur englische Hilfe
- Kontextsensitive Hilfe mit STRG+F1
- Speichern unter --> Write to

Hier ein Beispiel:
Aus allen Unterverzeichnissen von ordner1 wird jeweils eine txt-Datei in das Zielverzeichnis kopiert.
Alle txt-dateien in das selbe Verzeichnis.
Das Ziel-Verzeichnis muss vorhanden sein.

[ThePuppetMaster]

@HorstD es ist eigentlich nicht gesund, Line Input zu nutzen, bei einem Datei-Kopiervorgang. Du kannst nciht wissen, ob dort zeilenumbrüche drin sind. egal ob txt oder nicht.

es ist immer sinvoll kopiervorgänge als binäres verfahren zu realisieren, blockbasiert. das führt auserdem dazu, das man einen stabilen kopierprozess hat, der mit konstanter geschwnidigkeit abläuft. Was bei unterschliedlichen zeilenlängen, die auch mal mehrere MB sein könnten, auch zu problemen des speichermanagments führen kann.


MfG
TPM
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ]

[bm-magic]

Zu erst habe ich versucht, FreeBasic zu organisieren.
- Als ich aber die Menge der Möglichkeiten und Kombinationen gesehen habe,
habe ich ich lieber aufgehört, und habe den Ganzen Tag weiter gemacht.

- Dank eurer Hilfe, habe ich wirklich neu angefangen.
- Es folgt die Arbeit des Tages mir "rauchendem Kopf"
----------------------------------------------------
- DIR3.BAS
CLS
SHELL "dir D:\test\*.txt /W /B /S > D:\qbasic\dat.dat"
END
- Hiermit bekomme ich den komplette Pfad mit allen Namen, in Zeilen aufgelistet.
----------------------------------------------------
- DIR4.BAS
LS
a& = 0
OPEN "dat.dat" FOR INPUT AS #1
DO UNTIL EOF(1)
LINE INPUT #1, Text$
PRINT Text$
a& = a& + 1
IF a& = 20 THEN
b$ = INPUT$(1)
CLS
a& = 0
END IF
LOOP
CLOSE 1
- Damit sehe ich die Komplette Liste auf dem Bildschirm.
-------------------------------------------------------
Nun zu meiner Frage:
- Wie überredet man die QBasic dazu mit DIR4.BAS,
der Inhalt der dat.dat gleich zu kopieren, statt ihm anzuzeigen?

Ich hoffe, dass sich jemand erbarmt und mir weiter hilft.

[HorstD]

[bm-magic]

@HorstD es tut mir leid aber es ist zu viel Code für mich.
- Zu erst habe ich versucht Hilfe zu DIR$ zu bekommen, leider ohne Erfolg,
denn alle (mögliche) Artikel waren leider in englisch. Verstehe ich genauso
wenig, wie Deine Hilfe. Was bedeutet 16 in dem DIR$ Ausdruck?
- Ich nehme nur an, dass in dem oberem While - Wend Schleife die Anzahl
der Einträge ermittelt wird, die man in der untere Schleife benutzt,
und diesen Teil ich sowie so nicht mit meinen Mitteln verwenden kann.

- Leider kann ich aber in Deinem Beispiel kein Befehl erkennen,
der bewirkt, das in das Zielordner kopiert wurde.?
- Wäre bitte eine Hilfe zu meinem Istzustand möglich?

[HorstD]

Hier ein Qbasic Beispiel.

Alle txt-Dateien werden in das Zielverzeicnis kopiert.

[dreael]

[nemored]

[bm-magic]

@HorstD, - vielen Dank. Bin noch am suchen, QB behauptet bei dem Satz
- OPEN text FOR INPUT AS #2; [Pfad nicht gefunden] -?
- Ich habe auch kein Ahnung wo die (?text?) gebildet wird,
- Ich habe nun QB in PC Pfad eingeschrieben es hat nicht geholfen?
- ?
@dreael, - danke für die Hilfe, werde es in der Endphase beachten, zur Zeit
ist die dat.dat fast das einzige, was funktioniert und ich freue mich, das es sie gibt.
Deine Hilfe über Vater -> Sohn Beziehung versuche ich mich
vor Augen vorstellen. (manchmal klappt es)
- Die Struktur der Sicherung: Nur ein Ordner mit "Akt.Datum". Übrigens
an dem Lösung bist Du, am 01.03.2013 mitbeteiligt gewesen, zu dem nemored und Jojo,
dafür werde ich euch "Ewig" dankbar sein.
- Dies ist meine zweite Berührung mit QB (weil DOS &.22 nicht rechnen kann
denn ich hoffte es mit Batch zu lösen, dort kann ich aber nicht subtrahieren).

@nemored, - danke für den Hinweis werde es befolgen, da aber meine
QB nicht DIR$ kann, ist das Thema (wegen aktuellen Problemen) zu erst verschoben.

@ALLE Leider habe ich immer noch keine Lösung :..(

[nemored]

[bm-magic]

-Erste Teil-Erfolg!?
Inhalt von dat.dat:
D:\uordner1\Default\default.txt
D:\uordner1\neu\neu.txt
D:\uordner1\test\test.txt
Der Code von HorstD von 22.03.2013, 19:51
------------------------------------------------------
Im Zielordner wird die Datei defaul.txt korrekt erstellt
IM QB erscheint Meldung Pfad nicht gefunden
und die Zeile OPEN ziel + MID$(Text, p +1)... Ist grellweiß ?
----------------------------------------------------------------------
Nach dem schlissen von QB sehe ich auf Bildschirm:
D:\uordner1\Default\default.txt
D:\uordner1\neu\neu.txt <- Die Datei wird nicht im Zielordner Erstellt.
------------------------------------------------------------------------
Ist es bitte erklärbar?

@nemored, Danke - "Ein Click auf Blaue Schrift und ich war auf der richtige Seite
für FreeBasic Download Seite. Ich möchte nicht wissen, wie es funktioniert.
- Die FB-REF.CHM kann ich offen

- Wenn es auch so einfach mit diesem Programm wäre?

[HorstD]