Seite 1 von 1

Probleme mit Datentypen

Verfasst: 24.05.2005 16:12
von HoDam
So habe mir jetzt die Vollversion zugelegt und hoffe damit kleiner Tools schreiben zu können.

Ich habe folgendes Problem:

Aus einer anderen Anwendung heraus wird eine Textdatei erzeugt, die zum Beispiel nur mit einem Zeichen gefüllt is (1,2,3).

Dieses Zeichen möchte ich auslesen und in eine Variable schreiben. Bis dahin funktioniert alles.

Jetzt möchte ich diese Variable vergleichen mit Inhalten einer weiteren Textdatei (INI-File).
Dort habe ich eine Sektions oder Gruppe definiert

[Programme]
1= "Pfadangabe1+Programm1"
2= "Pfadangabe2+Programm2"
3= "Pfadangabe3+Programm3"

Ziel ist es das er die Applikation starten die ihm als Zahlenwert oder String ( in meinem Beispiel 1,2,3 ) übergeben wird.


Die Zahlen habe ich jetzt zur Vereinfachung gewählt.

Lässt sich eine andere Applikation aus PureBasic heraus starten?

Danke für eure Hilfe

Verfasst: 24.05.2005 16:22
von HoDam
Ok, ein teil kann ich selber beantworten.

Externe Programme starten funktioniert mit dem Befehl RunProgram()

Nur wie übergebe ich den String (Pfadangabe+Program) die in der "INI-Datei" hinterlegt sind.

Verfasst: 24.05.2005 17:00
von HoDam
So habe das Problem selber gelöst:
Falls es jemanden interessiert:

Code: Alles auswählen

Dateioffen=OpenFile(0,"C:\Programme\ProgramX\datei.txt") 
Applx$ = ReadString()
INIFile = OpenPreferences("C:\Programme\Prgram2\konfig.ini")
PreferenceGroup("Programs")
Appl$ =ReadPreferenceString (Applx$,"")
MessageRequester("ja/nein",Appl$,0)
RunProgram(Appl$)
Edit by Kiffi: Code-Tags gesetzt

Verfasst: 24.05.2005 17:23
von Kiffi
ein paar kleine Anmerkungen:
HoDam hat geschrieben:

Code: Alles auswählen

Dateioffen=OpenFile(0,"C:\Programme\ProgramX\datei.txt") 
Wenn Du auf eine bestehende Datei zugreifen möchtest, dann verwendet
lieber ReadFile(). OpenFile() legt eine Datei an, falls sie nicht vorhanden
sein sollte.

Ebenso solltest Du den Rückgabe aus ReadFile() auswerten und nach dem
ReadFile() die Datei ordnungsgemäß mit CloseFile() wieder schliessen

Code: Alles auswählen

FF=ReadFile(#PB_Any,"C:\Programme\ProgramX\datei.txt") 
If FF
 [...]
 CloseFile(FF)
EndIf
Grüße ... Kiffi