versteckte Datei öffnen

[X360 Andy]

Schönen Abend zusammen
Ich hab mich Heute wieder an PB versucht und hatte einen Idee eine Passwort abfrage zu machen.
Die Datei die das Passwort freigeben soll , ist im gleichen Ordner / Bereich wie die .exe nur das die Datei "Unsichtbar" sein soll.

Aber ich kriege es nicht hin die Datei zu öffnen ( in dem Code da unten wäre es "Test.txt" )
Ich habs mit "Openfile()" versucht:

Code: Alles auswählen

  If OpenFile(0, "Test.txt")  
    FileSeek(0, Lof(0))      
    WriteStringN(0, "Zusatz inhalt")
    CloseFile(0)
  EndIf

Hierbei wurde aber die test.txt nicht geöffnet sondern nur beschrieben ....


Ich habe die Hilfe Datein schon durchsucht aber nichts gefunden.
Auch die Board suche war nicht sehr erfolgreich...
Darum frag einfach mal.

Code: Alles auswählen

Eingabe$ = InputRequester("Passwort abfrage","Zum öffnen der Datei das Passwort eingeben, Wenn das Passwort falsch ist wird das Programm Beendet","Passwort")

If "Beispiel" = Eingabe$ 
MessageRequester("Richtiges Passwort",Eingabe$+ " ist 100% Richtig" )

If OpenFile(0, "Test.txt")    ; öffnet eine existierende Datei oder erstellt eine, wenn sie noch nicht existierte

End

Else

MessageRequester("Falsches Passwort","Das Passwort --> "+Eingabe$+" <-- ist falsch" )

EndIf

Ich will jetzt eben das die Test.txt geöffnet wird ( egal ob die Datei sicht oder unsichtbar ist )

BIn für jeden Hinweis oder Tipp dankbar

[ts-soft]

Kannste bitte nochmal genauer erläutern, was Du möchtest?
Du öffnest die Datei, zum lesen und schreiben, correkt
Du springst ans Ende, correkt
Du hängst nen Satz an, correkt

Was fehlt den jetzt?

[X360 Andy]

Kannste bitte nochmal genauer erläutern, was Du möchtest?
Du öffnest die Datei, zum lesen und schreiben, correkt
Du springst ans Ende, correkt
Du hängst nen Satz an, correkt

Was fehlt den jetzt?

naja die Datei wird nicht geöffnet
Sie wird beschrieben ohne das sie FÜR mich sichtbar geöffnet wird.
Habs auch schon ohne CloseFile(0) versucht bringt aber auch nichts

Ich möchte eben das wenn man das Passwort richtig eingibt , die Datei geöffnet wird ( SICHTBAR )

[marco2007]

Probier mal...

Code: Alles auswählen

  If CreateFile(0, "Test.txt")  
    FileSeek(0, Lof(0))      
    WriteStringN(0, "Zusatz inhalt") 
    CloseFile(0) 
  EndIf


Eingabe$ = InputRequester("Passwort abfrage","Zum öffnen der Datei das Passwort eingeben, Wenn das Passwort falsch ist wird das Programm Beendet","Passwort") 

If ReadFile(0, "test.txt")
  passwort.s=ReadString(0)
    If passwort=Eingabe$
      MessageRequester("Super", "Richtig")
    Else
      MessageRequester("Sorry", "Falsch")
    EndIf 
  CloseFile(0)     
Else
  MessageRequester("Sorry", "Datei konnte nicht gelesen werden!")
EndIf 

[ts-soft]

@marco2006
CreateFile und dann mit Fileseek ans Ende der leeren Datei

[Kaeru Gaman]

Sie wird beschrieben ohne das sie FÜR mich sichtbar geöffnet wird.
... die Datei geöffnet wird ( SICHTBAR )

was verstehst du unter "sichtbar" öffnen?
die datei wird geöffnet, sonst würdest du ja nix reinschreiben können.

[Little John]

Aber ich kriege es nicht hin die Datei zu öffnen ( in dem Code da unten wäre es "Test.txt" )
Ich habs mit "Openfile()" versucht:

Code: Alles auswählen

  If OpenFile(0, "Test.txt")  
    FileSeek(0, Lof(0))      
    WriteStringN(0, "Zusatz inhalt")
    CloseFile(0)
  EndIf

Hierbei wurde aber die test.txt nicht geöffnet sondern nur beschrieben ....

Ich glaube Du hast eine falsche Vorstellung davon, was "eine Datei öffnen" bedeutet. Bei mir funktioniert der obige Code einwandfrei: Die Datei "Test.txt" wird geöffnet, dann wird etwas hineingeschrieben, danach wird sie geschlossen. Alles OK.

Was erwartest Du denn was passieren soll?

//edit:
Willst Du evtl. den Inhalt der Datei auf dem Bildschirm darstellen?

Gruß, Little John

[marco2007]

@marco2006
CreateFile und dann mit Fileseek ans Ende der leeren Datei

Jo, ist Blödsinn...habe ich vergessen zu löschen....
Ich wollte nur schnell mal das Beispiel ein bißchen ändern, damit`s in einem funktioniert.

[X360 Andy]

Sie wird beschrieben ohne das sie FÜR mich sichtbar geöffnet wird.
... die Datei geöffnet wird ( SICHTBAR )

was verstehst du unter "sichtbar" öffnen?
die datei wird geöffnet, sonst würdest du ja nix reinschreiben können.

Ordner inhalt:

Passwort abfrage (sichtbar)
Datei ( unsichtbar )

Wenn man jetzt "Passwort abfrage" anklickt und das richtige Passwort hat.
soll die "Datei" geöffnet werden. ( sollte aber weiterhin "unsichtbar" im Ordner liegen )
Wenn man das Passwort eben falsch eingibt soll die Datei eben nicht geöffnet werden.

Und wenn ich bei meinem Code das Passwort richtig eingeb wird die "Datei" eben nicht geöffnet.

[ts-soft]

Code: Alles auswählen

If OpenFile(0, "Test.txt") 
  Pos = Lof(0)
  FileSeek(0, Pos)
  WriteStringN(0, "Zusatz inhalt")
  
  Eingabe$ = InputRequester("Passwort abfrage","Zum öffnen der Datei das Passwort eingeben, Wenn das Passwort falsch ist wird das Programm Beendet","Passwort")
  
  FileSeek(0, Pos)
  passwort.s  = ReadString(0)
  If passwort=Eingabe$
    MessageRequester("Super", "Richtig")
  Else
    MessageRequester("Sorry", "Falsch")
  EndIf
  CloseFile(0)     

EndIf