Hallo,
Ich versuche mich gerade daran ein paar "Konstanten" in eine Textdatei auszulagen, um bei Änder- und Anpassungen deswegen nicht im Code rum fummeln zu müssen.
Mein erster Versuch sieht so aus:
Ini (txt)
Auslesen
Soweit sie das alles schon mal korrekt aus.
Die Frage ist jetzt wie ich im Code dann den Value z.B. "X: den "Variablen" z.B. "sShDrv" zuordne bzw diese entspechend gefüllt werden?
Wie man an der "ini" sieht gibt es da noch mehr, im wesentlichen, Pfade die ich gerne von "Außen" ggf. pflegen würde.
LG
amn.ssy
Ich versuche mich gerade daran ein paar "Konstanten" in eine Textdatei auszulagen, um bei Änder- und Anpassungen deswegen nicht im Code rum fummeln zu müssen.
Mein erster Versuch sieht so aus:
Ini (txt)
Visual Basic:
sShDrv = "X:"
sRoot = sLw & "\gmd"
sBin = sRoot & "\bin"
sData = sRoot & "\data"
sInput = sRoot & "\input"
sStore = sRoot & "\store"
sCfg = sBin & "\cfg"
sExt = sBin & "\ext"
sLog = sBin & "\log\Events.log"
sInC = sInput & "\coa"
sInR = sInput & "\raw"
sStXLS = sStore & "\xls\"
sStZip = sStore & "\zip\"
s7z = sExt & "\7z.exe"
sVbs = sBin & "\getData.vbs"
sHta = sBin & "\GMDevents.hta"
Auslesen
Visual Basic:
Option Explicit
Dim fso, val, ts, sLw, sfile
Set fso = CreateObject("Scripting.FileSystemObject")
sLw = Left(WScript.ScriptFullName, 2)
sfile = sLw & "\GMD\bin\cfg\gmd.ini"
Set ts = fso.OpenTextFile(sfile,1)
Do Until ts.AtEndOfStream
val = Split(ts.ReadLine,"=")
WScript.Echo "Key : " & val(0) & vbTab & "Value: " & val(1)
Loop
...
Set oShell = CreateObject("WScript.Shell")
Set oFso = CreateObject("Scripting.Filesystemobject")
iCount = 0
iFlag = 0
'check if shared drive is available
If (oFSO.DriveExists(sShDrv)) Then
iFlag = 1
Call Logging ("shared drive " & sShDrv & " is available!")
Else
iFlag = 0
Call Logging ("shared drive " & sShDrv & " not available!")
End If
...
Soweit sie das alles schon mal korrekt aus.
Die Frage ist jetzt wie ich im Code dann den Value z.B. "X: den "Variablen" z.B. "sShDrv" zuordne bzw diese entspechend gefüllt werden?
Wie man an der "ini" sieht gibt es da noch mehr, im wesentlichen, Pfade die ich gerne von "Außen" ggf. pflegen würde.
LG
amn.ssy
Zuletzt bearbeitet von einem Moderator: