4
VBScript INI
Hi,
ich suche schon lange nach einer Anleitung wie man in eine INI Datei Variablen Speichern und abfragen kann, da bin ich auf diese Seite hier gestoßen. Also mein Problem, ich will ein Programm das ich im Internet als ein Tool für ein Spiel verbreiten will. In dem Tool soll der benützter seine Variablen selbst erstellen und dann (selbst wenn das Programm zwischen durch mal geschlossen wurde) später wieder abfragen.
Das soll so funktionieren:
Der Benutzer gibt in eine Inputbox den Namen der Variable ein die gespeichert werden soll, z.B. Hans, dann muss der Benutzer den Wert der Varialben eingeben. Also haben wir dann den Namen und den Wert der Variable, nur wie schaffe ich es jetzt das diese Varaible + Wert als INI gespeichert wird und dann wieder abgefragen werden kann??
Könnte mir da vielleichte jemand einen Quellcode schicken??
Währe cool
mfg BlackeLegend
ich suche schon lange nach einer Anleitung wie man in eine INI Datei Variablen Speichern und abfragen kann, da bin ich auf diese Seite hier gestoßen. Also mein Problem, ich will ein Programm das ich im Internet als ein Tool für ein Spiel verbreiten will. In dem Tool soll der benützter seine Variablen selbst erstellen und dann (selbst wenn das Programm zwischen durch mal geschlossen wurde) später wieder abfragen.
Das soll so funktionieren:
Der Benutzer gibt in eine Inputbox den Namen der Variable ein die gespeichert werden soll, z.B. Hans, dann muss der Benutzer den Wert der Varialben eingeben. Also haben wir dann den Namen und den Wert der Variable, nur wie schaffe ich es jetzt das diese Varaible + Wert als INI gespeichert wird und dann wieder abgefragen werden kann??
Könnte mir da vielleichte jemand einen Quellcode schicken??
Währe cool
mfg BlackeLegend
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 93493
Url: https://administrator.de/contentid/93493
Printed on: May 5, 2024 at 02:05 o'clock
4 Comments
Latest comment
"Informatiker/in", so so .......
Mehr kommt aber von mir nicht, versprochen.
Mehr kommt aber von mir nicht, versprochen.
Hab ich gefragt ob das glauhaft klingt?
also ich wwiß net ob ich helfen darf, aber darüber hab ich mir auch schon gedanken gemacht und es kommt das raus:
[code]
Set dict = CreateObject("Scripting.Dictionary")
Set FS = CreateObject("Scripting.FileSystemObject")
ReadIniFile
'===
Name = "Name"
Do
Check = 0
Wert = InputBox("Gib einen Namen ein.", , dict(Name))
If IsEmpty(Wert) OR Wert = "" then Check = 1
Loop Until Check = 0
AddToDict Name, Wert
'===
Name = "Alter"
Do
Check = 0
Wert = InputBox("Gib Alter ein.", , dict(Name))
If IsEmpty(Wert) OR Wert = "" then Check = 1
Loop Until Check = 0
AddToDict Name, Wert
'===
WriteIniFile
Function AddToDict(ByVal Name, ByVal Wert)
If dict.Exists(Name) then
dict.Remove(Name)
End If
dict.Add Name, Wert
End Function
Function ReadIniFile()
If not FS.FileExists("Settings.ini") then Exit Function
Set File = FS.OpenTextFile("Settings.ini", 1)
Do
Dim y
x = File.ReadLine
y = Split(x, "=")
Name = y(0)
Wert = y(1)
If dict.Exists(Name) then
dict.Remove(Name)
End If
dict.Add Name, Wert
Loop Until File.AtEndOfStream = True
File.Close
End Function
Function WriteIniFile()
Set File = FS.OpenTextFile("Settings.ini", 2, vbTrue)
For each Name In dict
Settings = Settings & Name & "=" & dict(Name) & vbNewLine
Next
File.Write Settings
File.Close
End Function
[/code]
Ganz einfach:
Als erstes werden alle Einstellungen eingelesen,
dann werden die Werte abgefragt und zum Schluss werden die Werte in die Ini Datei eingetragen.
Ich hoffe, ich konnt helfen ;)
[code]
Set dict = CreateObject("Scripting.Dictionary")
Set FS = CreateObject("Scripting.FileSystemObject")
ReadIniFile
'===
Name = "Name"
Do
Check = 0
Wert = InputBox("Gib einen Namen ein.", , dict(Name))
If IsEmpty(Wert) OR Wert = "" then Check = 1
Loop Until Check = 0
AddToDict Name, Wert
'===
Name = "Alter"
Do
Check = 0
Wert = InputBox("Gib Alter ein.", , dict(Name))
If IsEmpty(Wert) OR Wert = "" then Check = 1
Loop Until Check = 0
AddToDict Name, Wert
'===
WriteIniFile
Function AddToDict(ByVal Name, ByVal Wert)
If dict.Exists(Name) then
dict.Remove(Name)
End If
dict.Add Name, Wert
End Function
Function ReadIniFile()
If not FS.FileExists("Settings.ini") then Exit Function
Set File = FS.OpenTextFile("Settings.ini", 1)
Do
Dim y
x = File.ReadLine
y = Split(x, "=")
Name = y(0)
Wert = y(1)
If dict.Exists(Name) then
dict.Remove(Name)
End If
dict.Add Name, Wert
Loop Until File.AtEndOfStream = True
File.Close
End Function
Function WriteIniFile()
Set File = FS.OpenTextFile("Settings.ini", 2, vbTrue)
For each Name In dict
Settings = Settings & Name & "=" & dict(Name) & vbNewLine
Next
File.Write Settings
File.Close
End Function
[/code]
Ganz einfach:
Als erstes werden alle Einstellungen eingelesen,
dann werden die Werte abgefragt und zum Schluss werden die Werte in die Ini Datei eingetragen.
Ich hoffe, ich konnt helfen ;)
