Doppelklick auf Textdatei

[Angelo]

Ich habe eine einfache Textdatei erstellt. Allerdings gebe ich ihr die Endung ".srx" anstatt ".txt". Mit dem Programm auslesen.exe lasse ich mir den Inhalt (genauer: eine Zeile) dieser "srx-Textdatei" anzeigen. Hier ist der Quellcode der entsprechenden auslesen.pb-Datei:

Code: Alles auswählen

srx_file$ = OpenFileRequester("Bitte srx-Textdatei zum Laden auswählen", "", "srx-Textdatei (*.srx)|*.srx", 0)
If ReadFile(0, srx_file$)   
   inhalt$ = ReadString(0)   
   CloseFile(0)
Else
    MessageRequester("Achtung!","srx-Textdatei konnte nicht geöffnet werden!")
EndIf
MessageRequester("Inhalt der srx-Datei", inhalt$)

Ich möchte das Ganze nun mit Doppelklick auf eine srx-Textdatei machen. Mittels rechter Maustaste auf eine srx-Textdatei habe ich im Explorer über den Kontextmenü-Eintrag "Öffnen mit" mein Progamm auslesen.exe ausgewählt. Bei einem Doppelklick auf eine srx-Textdatei erscheint jetzt natürlich der OpenFileRequester. Kann ich den obigen Code so verändern, dass bei einem Doppelklick auf eine srx-Textdatei gleich mit dem ReadFile-Befehl begonnen wird, kann ich also abfragen, ob das Programm auslesen.exe über Doppelklick auf einen damit verbundenen Dateityp "srx" gestartet wurde?

[Kiffi]

dafür eignet sich ProgramParameter().

Grüße ... Peter

[andi256]

Servus

müsste mit "ProgramParameter()" gehen, da beim doppelklick das File mitgegeben wird .....

mfg
Andi

Code: Alles auswählen

file$ = ProgramParameter()
If file$
 srx_file$ = file$
Else
 srx_file$ = OpenFileRequester("Bitte srx-Textdatei zum Laden auswählen", "", "srx-Textdatei (*.srx)|*.srx", 0)
EndIf
If ReadFile(0, srx_file$)   
   inhalt$ = ReadString(0)   
   CloseFile(0)
Else
    MessageRequester("Achtung!","srx-Textdatei konnte nicht geöffnet werden!")
EndIf
MessageRequester("Inhalt der srx-Datei", inhalt$)

upps ... zu langsam

[Angelo]

Danke, Kiffi und andi256! - Nur minimal später, und dann gleich mit Komplettlösung! Super!