Sub OnClick(Byval Item)
'SPEICHER RESERVIEREN
Dim Filename
Dim fso, TABfile
Dim zeile
Dim var
Dim datensatz
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim dmax
Dim dmin
Dim L_sto
Dim L_stu 'DIE VARIABLEN AUS DER DATEI MUESSEN NAMENSGLEICH
Dim Laenge_aussen 'IM VARIABLENHAUSHALT VORHANDEN SEIN !!!!
Dim Laenge_innen
Dim n
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'OBJEKTE UND VARIABLEN VERBINDEN
Set Filename = HMIRuntime.Tags( "Filename" )
'FILEOBJEKT ERZEUGEN (WINDOWS-SCRIPT FUNKTION)
Set fso = CreateObject( "Scripting.FileSystemObject" )
'DATEI ZUM LESEN ÖFFNEN
Set TABfile = fso.OpenTextFile( Filename.Read(1) ,1, True )
'DATEI BIS ZUM ENDE EINLESEN
Do While TABfile.AtEndOfStream <> True
'ZEILE KOMPLETT EINLESEN
zeile = TABFile.ReadLine
'ZEILE ZERLEGEN DAS GLEICHZEICHEN WIRD ALS TRENNZEICHEN BENUTZT
datensatz = Split( zeile, "=", -1, 1 )
'VARIABLE DYNAMISCH VERBINDEN
Set var = HMIRuntime.Tags( datensatz(0) )
'WERT SCHREIBEN
var.Write( datensatz(1) ),1
Loop
End Sub