Fehler bei Suchroutine

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

 

Ekrits

Betreff: Fehler bei Suchroutine

 BeitragDo, Nov 30, 2006 21:28
Antworten mit Zitat
Benutzer-Profile anzeigen
Also, ich hab eine Suchroutine gemacht:
Code: [AUSKLAPPEN]

...

If A$ <> "" Then

fund = 0

 If FileType(Ordner$ + "\" + A$) = 1 Then
  Datei$ = OpenFile (Ordner$+ "\" + A$)
  Print A$ + " wird untersucht"
  While Not Eof(Datei$)
   Linie$ = ReadLine(Datei$)
   If Instr(Linie$,"porn") > 1 Then fund = 1
  Wend

 
   If fund = 1 Then
    Print Ordner$ + "\" + A$ + " ist gefährlich!"
    Treffer(treffer_zaehler,0) = Ordner$ + "\" + A$
   EndIf

 EndIf
EndIf

Until A$ = ""

...



nun Hab ich als durchsuchenden Ordner C:\ angegeben. Wenn nun die Datei IO.SYS geöffnet wird kommt immer beid er Stelle " While Not Eof(Datei$)" Die Fehler,eldung "Stream Does Not exist". Es liegt auf jeden Fall nicht an der Endung Sys, da vorher die Datei CONFIG.SYS auch Problemlos durchsucht wurde.

Danke im vorraus
EKRITSel: Rechtschreibfehler sind gewollt um eure Aufmerksamkeit zutesten!


Magians vs. Nekromats 100% COMPLETE

SPiRiT

 BeitragFr, Dez 01, 2006 0:58
Antworten mit Zitat
Benutzer-Profile anzeigen
Er konnte die Datei nicht öffnen. Bevor du auf die Datei zugreifst, überprüfe ob er die Datei öffnen konnte.
Code: [AUSKLAPPEN]
IF Datei$ <> 0 then
  <auslesen...>
ELSE
  <Fehlerausgabe>
ENDIF
D7-Team
aktuelles Projekt: strike2Death
 

Ekrits

 BeitragFr, Dez 01, 2006 18:12
Antworten mit Zitat
Benutzer-Profile anzeigen
Achso Very Happy daruaf wär ich nie gekommen, dahcte ich hätte da n Programmeirfehler

Danke aufjedenfall Wink
EKRITSel: Rechtschreibfehler sind gewollt um eure Aufmerksamkeit zutesten!


Magians vs. Nekromats 100% COMPLETE
 

sdjh

 BeitragMo, Apr 02, 2007 13:47
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich würde die Datei auch nicht mit Readline auslesen. Hast du eine reine binäre Datei, in der es bspw kein Linefeed (BYTE 13,10) gibt, ließt die Routine bis zum Ende der Datei und stuerzt ab. Lade lieber einzelne Abschnitte und durchsuche diese. Bsp.

Code: [AUSKLAPPEN]

Function read4096(file,size)
l=4096
if filepos(file)+l>size then l=size=filepos(file)
bnk=createbank(l)
readbytes bnk,file,0,l
return bnk
end fuction

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group