Schon wieder Suche...
Übersicht
BlitzBasic Allgemein
|
blitzuser34Betreff: Schon wieder Suche... |
 Fr, Jan 04, 2008 14:44Antworten mit Zitat 
|
|---|---|---|
|
Konnte nicht in mein altes Forum schreiben, weil das dann Doppelpost wäre.
Bin gerade dabei eine Funktion einzubauen, dass der Dateiinhalt auch überprüft wird. Aber das Problem ist, das nach ner Weile "File does not Exist" kommt. Komischerweise ist dann Closefile markiert. Edit: Ich muss dazusagen, dass sie, bevor die Fehlermeldung kommt funktioniert. Hier die Funktion Code: [AUSKLAPPEN] Function Suche(dir$, suche$,indateisuchen$)
Verz=ReadDir(dir$) If verz<>0 Then Repeat Datei$=Lower(NextFile$(Verz)) If datei$<>"." If datei$<>".." If datei$="" Exit If FileType(dir$+"\"+Datei$) = 2 Then Suche(dir$+"\"+Datei$,suche$,indateisuchen$) Else If Instr (Datei$, suche$)<>0 Then Print dir$+"\"+Datei$ If indateisuchen$=1 Then fileread1=ReadFile(dir$+"\"+Datei$) If Not fileread1=0 Then While Not Eof(fileread1) linein$=ReadLine(fileread1) If Instr (linein$, suche$)<>0 Then Print "Gefunden in Datei: "+dir$+"\"+Datei$ EndIf Wend EndIf CloseFile fileread1 EndIf End If EndIf EndIf Forever EndIf CloseDir Verz End Function |
||
|
Eingeproggt |
Fr, Jan 04, 2008 15:07 Antworten mit Zitat
|
|---|---|---|
|
Du solltest diue Datei nur schließen, wenn sie tatsächlich auch geöffent wurde. Also CloseFile noch in den "If Not fileread1=0 Then"-Block hinein.
mfG, Christoph. |
||
| Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9 | ||
|
|
blitzuser34 |
Fr, Jan 04, 2008 15:10 Antworten mit Zitat
|
|---|---|---|
| Danke. | ||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group