[SIZE=2][COLOR=#0000ff]Const[/COLOR][/SIZE][SIZE=2] ForReading = 1, ForWriting = 2, ForAppending = 3[/SIZE]
[SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] fs, f , Z , Datei[/SIZE]
[SIZE=2][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=2] fs = CreateObject("Scripting.FileSystemObject")[/SIZE]
[SIZE=2]Datei = [/SIZE][SIZE=2]"c:\Parameter.DAT"[/SIZE]
[SIZE=2][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=2] f = fs.OpenTextFile(Datei , ForReading, [/SIZE][SIZE=2][COLOR=#0000ff]true[/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2][COLOR=#ff0000]PtVar[/COLOR][/SIZE][SIZE=2].[/SIZE][SIZE=2][COLOR=#ff0000]"St.111_Sollwert Drehzahl"[/COLOR][/SIZE][SIZE=2] = f.ReadLine[/SIZE]
[SIZE=2][COLOR=#ff0000]PtVar[/COLOR][/SIZE][SIZE=2].[/SIZE][SIZE=2][COLOR=#ff0000]"St.213_Sollwert Drehzahl"[/COLOR][/SIZE][SIZE=2] = f.ReadLine[/SIZE]
[SIZE=2][COLOR=#ff0000]Vorgabe_max_Beh_IO[/COLOR][/SIZE][SIZE=2] = f.ReadLine[/SIZE]
[SIZE=2][COLOR=#ff0000]Vorgabe_max_Beh_nIO[/COLOR][/SIZE][SIZE=2] = f.ReadLine[/SIZE]
[SIZE=2][COLOR=#ff0000]PtVar[/COLOR][/SIZE][SIZE=2].[/SIZE][SIZE=2][COLOR=#ff0000]"St.211 Offset-Verschiebung 1 Höhen-Messung"[/COLOR][/SIZE][SIZE=2] = f.ReadLine[/SIZE]
[SIZE=2][COLOR=#ff0000]PtVar[/COLOR][/SIZE][SIZE=2].[/SIZE][SIZE=2][COLOR=#ff0000]"St.211 Offset-Verschiebung 2 Höhen-Messung"[/COLOR][/SIZE][SIZE=2] = f.ReadLine[/SIZE]
[SIZE=2][COLOR=#ff0000]PtVar[/COLOR][/SIZE][SIZE=2].[/SIZE][SIZE=2][COLOR=#ff0000]"St.211 Offset-Verschiebung Ref.-Punkt"[/COLOR][/SIZE][SIZE=2] = f.ReadLine[/SIZE]
[SIZE=2][COLOR=#ff0000]PtVar[/COLOR][/SIZE][SIZE=2].[/SIZE][SIZE=2][COLOR=#ff0000]"St.211 Höhe Eich-Teil"[/COLOR][/SIZE][SIZE=2] = f.ReadLine[/SIZE]
[SIZE=2]f.Close[/SIZE]
[SIZE=2][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=2] Datei = [/SIZE][SIZE=2][COLOR=#0000ff]Nothing[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=2] fs = [/SIZE][SIZE=2][COLOR=#0000ff]Nothing[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=2] f = [/SIZE][SIZE=2][COLOR=#0000ff]Nothing[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=2] Z = [/SIZE][SIZE=2][COLOR=#0000ff]Nothing[/COLOR][/SIZE]