SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

SiePortalDeutsch

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

Wincc 2008 Flex, reading data from csv and moving into an array into the PLC

Created by: drip at: 11/17/2010 5:03 PM (1 Replies)

Rating (0)

Thanks 1

2 Entries

11/17/2010 5:03 PM	Rate (0)
drip Posts: 2 Rating: (0)	Hello, I am currently in the middle of a project and looking to read data from a .csv file on a server. I need to read this data and get it into the PLC so I can then compare the information for some necessary checks of validation. I have wrote a script already that can read the data, but I do not know how to save it to an array or structure and bring it into the PLC. Can any help point me in the right direction or provide any examples? Here is my existing script: 'Declaration of local tags - Dim fso, f, ts, Path, field, MyZf, i, j, k, HiField(2,6) 'Definition of local tags - i=0 j=0 k=0 Path = "C:\Datalog1.csv" 'Error Routine - On Error Resume Next 'Create object - Set fso = CreateObject("Scripting.FileSystemObject") If Err.Number <> 0 Then ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description Err.Clear Exit Sub End If Set f = fso.OpenTextFile(Path, 1, 0, -2) If Err.Number <> 0 Then ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description Err.Clear Exit Sub End If 'Loop Do While f.AtEndOfStream <> True MyZf = f.ReadLine field = Split(MyZf, ",") For i=0 To 6 field(i) = Replace(field(i), " ", "") HiField(j, i) = field(i) Next j = j + 1 Loop SmartTags("szString_1") = HiField(0,1) SmartTags("nValue_1") = HiField(1,1) SmartTags("nValue_2") = HiField(2,1) 'Close file f.Close Set f = Nothing Set fso = Nothing ShowSystemAlarm "Readout of the data was successful!" '// EOS ///////////////////////////////////////////////////////// The bolded Hifield information is what I am looking to stick into an array. I have 7 columns of information that I am looking to read for each row, and up to 1000 rows. Is there a way I could use a structure so I could have the labels for each column (ie- date, torque, part #....)? Or I could live with sticking it in a array as 1a,1b,1c,1d,1e,1f,1g for each row incrementing the number. Any help would be appreciated thanks!
drip Posts: 2 Rating: (0)
Suggestion To thank Quote Answer

11/22/2010 11:58 AM	Rate (0)
Sandman Platinum Member Joined: 4/29/2010 Last visit: 1/20/2025 Posts: 1557 Rating: (161)	Hello, please take a look at this faq at chapter 3.: http://support.automation.siemens.com/WW/view/en/26165877 best regards.

Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users sipo

Share this page:

Share this page on...

SiePortal

Wincc 2008 Flex, reading data from csv and moving into an array into the PLC

Created by: drip at: 11/17/2010 5:03 PM (1 Replies)

Rating (0) Thanks 1

2 Entries

drip

Sandman

This contribution was helpful to

2 Entries

Follow us on

Rating (0)

Thanks 1