PureBoard

Verfasst: **02.06.2015 09:48**

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?

Verfasst: **02.06.2015 09:54**

dafür eignet sich ProgramParameter().

Grüße ... Peter

Verfasst: **02.06.2015 10:03**

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

Verfasst: **02.06.2015 10:18**

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

Super!

PureBoard

Doppelklick auf Textdatei

Doppelklick auf Textdatei

Re: Doppelklick auf Textdatei

Re: Doppelklick auf Textdatei

Re: Doppelklick auf Textdatei