XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
INI-Dateien schreiben und lesen
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
titel:    Inidateien
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    05.01.2001
-----------------------------------------------
Erklärung:
----------
Eine Inidatei ist sehr gut geeignet,
um Werte auf die Schnelle zu schreiben
und wieder auszulesen.
So kann man z.B.: Einstellungen abspeichern (Name, Highscore u.s.w)
Eine Ini hat ungefähr solch ein Format:
[Person]
Name=Rolf
Alter=34
[Lieblings]
Farbe=Blau
Hobby=Software
und so weiter.
Eine Ini darf nicht größer als 64kb werden
wegen auslesen u.s.w
Und wird kein Pfad (z.B.:C:TESTTEST.INI) angegeben, so wird das
Windowsverzeichnis automatisch genommen.
Nehmt auch nie die Win.ini, denn es gehört sich immer am besten:
Ini in den Programmpfad und eine eigene Inidatei!!!
-------------------------------------------------------------------------------
Declare anzeige1$,anzeige2$,anzeige3$,anzeige4$	Variablen vorbereiten
Window 30,30 - 500,200				Wie immer Fenster erstellen
Windowtitle INIDATEIEN			Der Fenstertitel
********* Inidatei schreiben oder Auffüllen **************************
WriteIni C:TEST.INI,Person,Name=Rolf
Hier wird ins Verzeichnis C: die Datei Test.ini geschrieben
falls Sie noch nicht existiert, so wird Sie erstellt.
Dieser Befehl, entspricht dem Beispiel oben [Person] Name.
WriteIni C:TEST.INI,Person,Alter=34
Wie drüber, nur mit [Person] Alter
WriteIni C:TEST.INI,Lieblings,Farbe=Blau
dito
WriteIni C:TEST.INI,Lieblings,Hobby=Software
dito
Print Alle 4 Werte wurden in die Datei C:TEST.INI geschrieben
Anzeige auf dem Bildschirm
********* Inidatei auslesen und anzeigen ******************************
let anzeige1$=@Readini$(C:TEST.INI,Person,Name)
let anzeige2$=@Readini$(C:TEST.INI,Person,Alter)
let anzeige3$=@Readini$(C:TEST.INI,Lieblings,Farbe)
let anzeige4$=@Readini$(C:TEST.INI,Lieblings,Hobby)
Hier werden nun jeweils Einträge aus der eben geschriebenen Inidatei
in Variablen eingelesen und dann angezeigt:
Print 						Leerzeile auf den Bildschirm
Print ******** Ausgelesene Werte ************** 	einfach nur als Trenner auf dem Screen
Print Name:          ,anzeige1$			Anzeige Wert Name aus Inidatei
Print Alter:         ,anzeige2$			Anzeige Wert Alter aus Inidatei
Print Lieblingsfarbe:,anzeige3$			Anzeige Wert Farbe aus Inidatei
Print Lieblingshobby:,anzeige4$			Anzeige Wert Hobby aus Inidatei
Print *****************************************
Waitinput						Warten auf Maus oder Taste
End							Programmende