DISCLAIMER
The example below is intended to demonstrate one or more features or methods and is presented as a configuration example only. Schneider Electric assumes no liability for the use or application of this example or any portion thereof.
Sometimes it is necessary to read a text file (.CSV in this case) in ClearSCADA. If the read is triggered by an operation action (clicking a button), a script can be used.
The example below shows one way to read a CSV file using VBScript. It reads only one line, but can be easily modified to read multiple lines:
sub Read1()
' Create object that will be used to read a file
Set fso = CreateObject("Scripting.FileSystemObject")
' Open the file for reading text; first parameter is the full file name with path
' The machine running the script must have access to the file
Set file = fso.OpenTextFile ("z:\zCSVtest.csv", 1)
' Read first (and only) line
line = file.Readline
' split the line in array entries; the values are separated by comma
arrValues = Split(line, ",")
' Assuming we are reading 3 values, double floats, store each element of the array in the proper point
Server.SetOPCValue ".A1", CDbl(arrValues(0))
Server.SetOPCValue ".A2", CDbl(arrValues(1))
Server.SetOPCValue ".A3", CDbl(arrValues(2))
' Close file
file.Close
msgBox "Done"
end sub
The example below is intended to demonstrate one or more features or methods and is presented as a configuration example only. Schneider Electric assumes no liability for the use or application of this example or any portion thereof.
Sometimes it is necessary to read a text file (.CSV in this case) in ClearSCADA. If the read is triggered by an operation action (clicking a button), a script can be used.
The example below shows one way to read a CSV file using VBScript. It reads only one line, but can be easily modified to read multiple lines:
sub Read1()
' Create object that will be used to read a file
Set fso = CreateObject("Scripting.FileSystemObject")
' Open the file for reading text; first parameter is the full file name with path
' The machine running the script must have access to the file
Set file = fso.OpenTextFile ("z:\zCSVtest.csv", 1)
' Read first (and only) line
line = file.Readline
' split the line in array entries; the values are separated by comma
arrValues = Split(line, ",")
' Assuming we are reading 3 values, double floats, store each element of the array in the proper point
Server.SetOPCValue ".A1", CDbl(arrValues(0))
Server.SetOPCValue ".A2", CDbl(arrValues(1))
Server.SetOPCValue ".A3", CDbl(arrValues(2))
' Close file
file.Close
msgBox "Done"
end sub
