lassma-asma hat geschrieben:ich will doch nur eine datei erstellen können , in der ich die variablen (nae + wert ) stehen hab , und diese datei möchte ich später wieder aufrufen können , um die variablen zu verändern ...
Code: Alles auswählen
Procedure SaveToFile(FilePath.s,Key.s,Value.s)
If Not OpenPreferences(FilePath)
If Not CreatePreferences(FilePath)
ProcedureReturn
EndIf
EndIf
WritePreferenceString(Key,Value)
ClosePreferences()
EndProcedure
Procedure.s ReadFromFile(FilePath.s,Key.s)
Protected Retval.s
If OpenPreferences(FilePath)
Retval = ReadPreferenceString(Key,"")
ClosePreferences()
ProcedureReturn Retval
EndIf
EndProcedure
; Variablen erstellen und ihnen ein Wert zuweisen
Variable1.s = "Inhalt von Variable 1"
Variable2.s = "Inhalt von Variable 2"
; Variablen in eine Datei speichern
SaveToFile("c:\test.pref","Var1",Variable1)
SaveToFile("c:\test.pref","Var2",Variable2)
; Variablen leeren
Variable1 = ""
Variable2 = ""
; Variablen von der Datei wieder einlesen
Variable1 = ReadFromFile("c:\test.pref","Var1")
Variable2 = ReadFromFile("c:\test.pref","Var2")
; Variablen-Inhalt ausgeben
MessageRequester("Ausgabe","Variable1: " + Variable1 + #CRLF$ + "Variable2: " + Variable2)