Datei ist doch geöffnet!

[Tombi]

PB 3.30 meint in Linie 20 einen Fehler aufzufinden.
Die Datei ist jedoch schon geöffnet!

[quote=Fehlermeldung]Error at line 20 : There is no current File.[/quote]

Anfang meiner Datei:

Code: Alles auswählen

Global line.w
Global a_a.w
Global b_b.w

file$ = OpenFileRequester("Öffne...","C:","Map-Datei (*.map)|*.map|Textdatei (*.txt)|*.txt",0)

ReadFile(0,file$)



Procedure SearchOnFile(text$)
ReadFile(1,file$)
If text$ = ""
  MessageRequester("Error","An SearchOnFile() wurde ein leerer String überreicht. Das Programm muss daher beendet werden.",0)
  End
EndIf

Repeat
zeile$ = ReadString() ;LINIE 20!
aaa = FindString(zeile$,text$,0)

If aaa
gefunden = 1
EndIf

Until Eof(1)

CloseFile(1)

If gefunden
  ProcedureReturn 1
Else
  MessageRequester("Error",text$+" wurde in der aktuellen Datei nicht gefunden!",0)
  ProcedureReturn 0
  End
EndIf

EndProcedure

[scholly]

Ich hab zwar kein 3.30, aber da braucht man bestimmt auch "Ergebnis = OpenFile(#Datei, DateiName$)"

[Tombi]

Habe ich schon getestet, bringt mir nichts...

[DarkDragon]

Ja wie du schon sagtest: Die Datei ist doch schon geöffnet. Wieso öffnest du sie dann in der Prozedur nochmal? Und file$ ist ja nichtmal global, also versucht es innerhalb der Prozedur die Datei ohne Namen zu öffnen.

Und dann prüf doch bitte ob das Ergebnis von ReadFile <> 0 ist, denn dann ist die Datei erst offen und erst dann.

[scholly]

Habe ich schon getestet, bringt mir nichts...

Dir nicht, aber PB braucht das.
Der OpenFilerequester holt nur den Dateinamen, aber er öffnet das File nicht.
Öffnen und Schließen bleibt Dir überlassen.
Die Beispiele im Code-Archiv mögen zwar erst ab 3.94 laufen, aber bei Deiner Version (welche ist es denn ?) sollte im Examples-Verzeichnis auch ein "File.pb" und ein "Requester.pb" sein, die Dir in Kombination zeigen, wie es geht.

Sorry, daß ich nicht mit Code helfe, aber ich bin nicht lang genug dabei um zu wissen, was damals unter 3.30 ging

[Tombi]

Die File.pb hat aber auch kein OpenFile(), sondern nur CreatFile() und ReadFile(). Und ReadFile() habe ich ja drinne.

File.pb:

Code: Alles auswählen

;
; ------------------------------------------------------------
;
;   PureBasic - File example file
;
;    (c) 2001 - Fantaisie Software
;
; ------------------------------------------------------------
;

MessageRequester("PureBasic", "Welcome !"+Chr(13)+"PureBasic will write a file named: PureBasicTestFile.pb", 0)

If CreateFile(0, "PureBasicTestFile.txt")
  WriteStringN("         This is a PureBasic file test")
  WriteString("Now it's on ")
  WriteString("the same line.")

  CloseFile(0)
Else
  MessageRequester("PureBasic", "Error: can't write the file", 0)
  End
EndIf

If ReadFile(0, "PureBasicTestFile.txt")

  First$ =  Trim(ReadString())
  MessageRequester("PureBasic", "Line read: "+First$, 0)
  
  CloseFile(0)
Else
  MessageRequester("PureBasic", "Error: Can't read the file", 0)
EndIf

End 

[Tombi]

Fehler gefunden: Die gleiche Datei konnte nicht mehrmals geöffnet werden

[STARGÅTE]

@Tombi

mach bitte deine Signatur wieder richtig

[Tombi]

Jup mache ich.

Außerdem lag es nicht wie oben beschrieben daran, dass ..., sondern file$ war nicht global!

[Tombi]

Jup mache ich.

Außerdem lag es nicht wie oben beschrieben daran, dass ..., sondern file$ war nicht global!