Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Alle Dateien eines Ordner ausgeben lassen(Skriptverbesserung

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Manu



Anmeldungsdatum: 16.07.2006
Beiträge: 174
Wohnort: Bayern
BeitragVerfasst am: 21.07.2006, 18:20    Titel: Alle Dateien eines Ordner ausgeben lassen(Skriptverbesserung Antworten mit Zitat
Hallo ich lasse in einem Ordner alle Textdateien ausgeben und das mache ich wie folgt:
Code:

'gib alle Aufträge aus
'man muss dazusagen das die variable anzahl die zahl der dateien
'im ordner ist (wurde schon ermittelt)
i% = 1
WHILE i% <= anzahl
DO
i1$ = LTRIM$(STR$(i%))
OPEN "C:\auftrg\" + i1$ + ".txt" for INPUT AS #1
LINE INPUT #1, buffer$
PRINT buffer$
LOOP UNTIL EOF(1)
CLOSE #1
i% = i% + 1
WEND

'da meldet der PC mir "Datei berets geöffnet..."



danke für eure Hilfe
mfg Manu
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
A.K.



Anmeldungsdatum: 02.05.2005
Beiträge: 467
Wohnort: HH
BeitragVerfasst am: 21.07.2006, 19:10    Titel: Antworten mit Zitat
Hi,

das liegt daran das du das "OPEN" IN der Schleife hast und das CLOSE ausserhalb.

Beim ersten Durchlauf geht das alles noch in Ordnung, doch beim zweiten nicht mehr da die Datei nicht ge-Close-t wurde.

so würde es gehen:
Code:

i% = 1
WHILE i% <= anzahl
    i1$ = LTRIM$(STR$(i%))
 
    OPEN "C:\auftrg\" + i1$ + ".txt" for INPUT AS #1
 
    DO UNTIL EOF(1)
       LINE INPUT #1, buffer$
       PRINT buffer$
    LOOP
 
    CLOSE #1
 
   i% = i% + 1
WEND



MFG A.K.
_________________

http://forum.IconSoft.de
http://www.pnpbb.de - hol dir jetzt dein eigenes kostenloses Forum *NEU*
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen Yahoo Messenger MSN Messenger
Manu



Anmeldungsdatum: 16.07.2006
Beiträge: 174
Wohnort: Bayern
BeitragVerfasst am: 22.07.2006, 10:51    Titel: Antworten mit Zitat
ich bin gestern noch selber draufgekommen aber danke trotzdem
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz