Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

VB script - Need help

Created by: Krsh at: 4/30/2015 7:12 AM (9 Replies)

Rating (1)

Thanks 1

10 Entries

4/30/2015 7:12 AM	Rate (0)
Krsh Posts: 59 Rating: (1)	Dear colleagues, I have downloaded the project at FAQ no 22726112(https://support.industry.siemens.com/cs/de/en/view/22726112). In my application I need to have 3 variables value from a data log displayed on screen not 1 as in example. Can you please provide indication on how to change the script to view a table with 4 columns (data log variables value): Column 1 ->Variable 1(value) Column 2 ->Variable 2(value) Column 3 ->Variable 3(value) Column 4 ->Variable 3(Timestamp) Hardware : TP900 Comfort Software : TIA Portal/WinCC Comfort V13 SP1 Upd2 Looking forward to your answer.
Krsh Posts: 59 Rating: (1)
Suggestion To thank Quote Answer

5/1/2015 7:04 AM	Rate (0)
Krsh Posts: 59 Rating: (1)	Datei öffnen um Werte auszulesen ' open the file Set f = CreateObject("FileCtl.File") f.open Storage_Path & "\" & Data_Log_Name & "0.csv",1,1 ' Zur richtigen Zeile springen ' skip to the correct line For il = 1 To SmartTags("SkipIndex") If f.EOF = True Then Exit For temp = f.LineInputString Next ' Zeilen aus Datei auslesen ' read lines from file For i = 1 To SmartTags("Linenumbers") If f.EOF = True Then Exit For Line(i) = f.LineInputString 'SPLIT CURRENT LINE IN COLUMNS Columns = Split(Line(i),";",-1,1) 'CHECK IF VARIABLE 1 LINE If StrComp(Columns(0),"VARIABLE 1") Then If iv <= 100 Then Line_VARIABLE1(iv) = Line(i) 'ASSIGN LINE STRINGS iv = iv + 1 Else iv = 1 Line_VARIABLE1(iv) = Line(i) End If End If 'CHECK IF VARIABLE 2 LINE If StrComp(Columns(0),"VARIABLE 2") Then If icd <= 100 Then Line_VARIABLE2(icd) = Line(i) 'ASSIGN LINE STRINGS icd = icd + 1 Else icd = 1 Line_VARIABLE2(icd) = Line(i) End If End If 'CHECK IF VARIABLE 3 LINE If StrComp(Columns(0),"VARIABLE3") Then If idd <= 100 Then Line_VARIABLE3(idd) = Line(I) 'ASSIGN LINE STRINGS idd = idd + 1 Else idd = 1 Line_VARIABLE3(idd) = Line(I) End If End If 'CHECK IF VARIABLE 4 LINE If StrComp(Columns(0),"VARIABLE4") Then If ipm <= 100 Then Line_VARIABLE4(ipm) = Line(i) 'ASSIGN LINE STRINGS ipm = ipm + 1 Else ipm = 1 Line_VARIABLE4(ipm) = Line(i) End If End If 'CHECK IF VARIABLE 5 LINE If StrComp(Columns(0),"VARIABLE5") Then If icm <= 100 Then Line_VARIABLE5(icm) = Line(i) 'ASSIGN LINE STRINGS icm = icm + 1 Else icm = 1 Line_VARIABLE5(icm) = Line(i) End If End If Next f.close For ix = 1 To (i-1) ' Zeile in Spalten zerlegen ' Split line In column Columns = Split(Line_VARIABLE1(ix),";",-1,1) 'Textfelder befüllen/ fill text field Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VAR1"& ix) fs.Text = Columns(2) ' Split line In column Columns = Split(Linia_VARIABLE2(ix),";",-1,1) 'Fill text field Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VAR2"& ix) fs.Text = Columns(2) ' Split line In column Columns = Split(Line_VARIABLE3(ix),";",-1,1) 'Fill text field Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VAR3"& ix) fs.Text = Columns(2) ' Split line In column Columns = Split(Line_VARIABLE4(ix),";",-1,1) 'Fill text field Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VAR4"& ix) fs.Text = Columns(2) ' Split line In column Columns = Split(Line_VARIABLE5(ix),";",-1,1) 'Fill text field Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VAR5"& ix) fs.Text = Columns(2) Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("TIMESTAMP"& ix) fs.Text = Columns(1)
Krsh Posts: 59 Rating: (1)
Suggestion To thank Quote Answer

4/1/2019 9:42 PM	Rate (0)
Luchini_9 Posts: 6 Rating: (0)	Good afternoon I tried this code without successful. Could you share your complete program ? Krsh Datei öffnen um Werte auszulesen ' open the file Set f = CreateObject("FileCtl.File") f.open Storage_Path & "\" & Data_Log_Name & "0.csv",1,1 ' Zur richtigen Zeile springen ' skip to the correct line For il = 1 To SmartTags("SkipIndex") If f.EOF = True Then Exit For temp = f.LineInputString Next ' Zeilen aus Datei auslesen ' read lines from file For i = 1 To SmartTags("Linenumbers") If f.EOF = True Then Exit For Line(i) = f.LineInputString 'SPLIT CURRENT LINE IN COLUMNS Columns = Split(Line(i),";",-1,1) 'CHECK IF VARIABLE 1 LINE If StrComp(Columns(0),"VARIABLE 1") Then If iv <= 100 Then Line_VARIABLE1(iv) = Line(i) 'ASSIGN LINE STRINGS iv = iv + 1 Else iv = 1 Line_VARIABLE1(iv) = Line(i) End If End If 'CHECK IF VARIABLE 2 LINE If StrComp(Columns(0),"VARIABLE 2") Then If icd <= 100 Then Line_VARIABLE2(icd) = Line(i) 'ASSIGN LINE STRINGS icd = icd + 1 Else icd = 1 Line_VARIABLE2(icd) = Line(i) End If End If 'CHECK IF VARIABLE 3 LINE If StrComp(Columns(0),"VARIABLE3") Then If idd <= 100 Then Line_VARIABLE3(idd) = Line(I) 'ASSIGN LINE STRINGS idd = idd + 1 Else idd = 1 Line_VARIABLE3(idd) = Line(I) End If End If 'CHECK IF VARIABLE 4 LINE If StrComp(Columns(0),"VARIABLE4") Then If ipm <= 100 Then Line_VARIABLE4(ipm) = Line(i) 'ASSIGN LINE STRINGS ipm = ipm + 1 Else ipm = 1 Line_VARIABLE4(ipm) = Line(i) End If End If 'CHECK IF VARIABLE 5 LINE If StrComp(Columns(0),"VARIABLE5") Then If icm <= 100 Then Line_VARIABLE5(icm) = Line(i) 'ASSIGN LINE STRINGS icm = icm + 1 Else icm = 1 Line_VARIABLE5(icm) = Line(i) End If End If Next f.close For ix = 1 To (i-1) ' Zeile in Spalten zerlegen ' Split line In column Columns = Split(Line_VARIABLE1(ix),";",-1,1) 'Textfelder befüllen/ fill text field Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VAR1"& ix) fs.Text = Columns(2) ' Split line In column Columns = Split(Linia_VARIABLE2(ix),";",-1,1) 'Fill text field Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VAR2"& ix) fs.Text = Columns(2) ' Split line In column Columns = Split(Line_VARIABLE3(ix),";",-1,1) 'Fill text field Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VAR3"& ix) fs.Text = Columns(2) ' Split line In column Columns = Split(Line_VARIABLE4(ix),";",-1,1) 'Fill text field Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VAR4"& ix) fs.Text = Columns(2) ' Split line In column Columns = Split(Line_VARIABLE5(ix),";",-1,1) 'Fill text field Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VAR5"& ix) fs.Text = Columns(2) Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("TIMESTAMP"& ix) fs.Text = Columns(1)
Luchini_9 Posts: 6 Rating: (0)
Suggestion To thank Quote Answer

4/2/2019 4:04 AM	Rate (0)
Prof. Frink Platinum Expert Joined: 7/5/2013 Last visit: 1/16/2025 Posts: 3123 Rating: (518)	Hello Luchini, Luchini_9 Good afternoon I tried this code without successful. Could you share your complete program ? the posted code looks like a complete program. Are you running it on a panel or in simulation on your computer? The latter one will not work, because the script is prepared for use on a panel. If you need some more help, we need some more information about your system and about what is not working. Regards, Frink
	Pi is exactly three! All you have to do is think of things which people need but which don’t exist yet.
Suggestion To thank Quote Answer

4/2/2019 10:53 PM	Rate (0)
Luchini_9 Posts: 6 Rating: (0)	Good afternoon Prof. Frink I appreciate your response and interest, please I would like to consult you the following questions: 1. It is known that the datalog generates a file (.csv), this file has columns such as: VarName, TimeString, VarValue, Validity and Time_ms. Is it possible to modify the datalog and generate more columns? for example: VarName 1, VarName 2, TimeString 1, TimeString 2, VarValue 1, VarValue 2, etc. 2. Currently I have achieved to generate a datalog with 2 variables and I have achieved to generate a HMI table with the first application in this way: VarName TimeString VarValue Variable_1 01/04/2019 15:24 7 Variable_2 01/04/2019 15:24 9 Variable_1 01/04/2019 15:26 2 Variable_2 01/04/2019 15:26 3 Variable_1 01/04/2019 15:30 2 Variable_2 01/04/2019 15:30 4 Variable_1 01/04/2019 15:35 3 Variable_2 01/04/2019 15:35 5 Variable_1 01/04/2019 15:37 6 Variable_2 01/04/2019 15:37 4 Variable_1 01/04/2019 15:39 7 Variable_2 01/04/2019 15:39 8 How would you modify the script? Because in my application a need to publish a HMI table in this way: Variable 1 TimeString Varvalue 1 (Variable 2 VarValue) Variable_1 01/04/2019 15:24 7 9 Variable_1 01/04/2019 15:26 2 3 Variable_1 01/04/2019 15:30 2 4 Variable_1 01/04/2019 15:35 3 5 Variable_1 01/04/2019 15:37 6 4 Variable_1 01/04/2019 15:39 7 8 3.-I have tried to publish two tables in one HMI, but with only one table the scrooll works. How to modify the script to work with two files (.csv)? To get the following table: VarName TimeString VarValue VarName TimeString VarValue Tag_01 02/04/2019 10:54 701 Tag_02 02/04/2019 11:00 2181 Tag_01 02/04/2019 10:54 702 Tag_02 02/04/2019 11:00 2182 Tag_01 02/04/2019 10:54 703 Tag_02 02/04/2019 11:00 2183 Tag_01 02/04/2019 10:54 704 Tag_02 02/04/2019 11:00 2184 Tag_01 02/04/2019 10:54 705 Tag_02 02/04/2019 11:00 2185 Tag_01 02/04/2019 10:54 706 Tag_02 02/04/2019 11:00 2186 Tag_01 02/04/2019 10:54 707 Tag_02 02/04/2019 11:00 2187 Tag_01 02/04/2019 10:54 708 Tag_02 02/04/2019 11:00 2188 Tag_01 02/04/2019 10:54 709 Tag_02 02/04/2019 11:00 2189 Tag_01 02/04/2019 10:54 710 Tag_02 02/04/2019 11:00 2190 Tag_01 02/04/2019 10:54 711 Tag_02 02/04/2019 11:00 2191 Tag_02 02/04/2019 10:54 712 Tag_02 02/04/2019 11:00 2192 4.- How to modify the latter script of to be able to simulate? I will be attentive to your answers Best Regards Prof. Frink Hello Luchini, Luchini_9 Good afternoon I tried this code without successful. Could you share your complete program ? the posted code looks like a complete program. Are you running it on a panel or in simulation on your computer? The latter one will not work, because the script is prepared for use on a panel. If you need some more help, we need some more information about your system and about what is not working. Regards, Frink
Luchini_9 Posts: 6 Rating: (0)
Suggestion To thank Quote Answer

4/3/2019 6:51 AM	Rate (0)
Prof. Frink Platinum Expert Joined: 7/5/2013 Last visit: 1/16/2025 Posts: 3123 Rating: (518)	Hello Luchini, Luchini_9 1. It is known that the datalog generates a file (.csv), this file has columns such as: [...] Is it possible to modify the datalog and generate more columns? in my opinion it is not possible to modify the layout of an automatically generated log-file. Luchini_9 2. Currently I have achieved to generate a datalog with 2 variables and I have achieved to generate a HMI table with the first application in this way: [...] How would you modify the script? Because in my application a need to publish a HMI table in this way: The script already checks the entry in the first column to be "VARIABLE 1", "VARIABLE 2", ... If number = 2 then add string to Line_VARIABLE1 [Line_VARIABLE1 = Line_VARIABLE1 & ";" & Columns(2)]. Luchini_9 3.-I have tried to publish two tables in one HMI, but with only one table the scrooll works. How to modify the script to work with two files (.csv)? To get the following table: Set f1 = CreateObject("FileCtl.File") f1.open Storage_Path & "\" & Data_Log_Name1 & "0.csv",1,1 Set f2 = CreateObject("FileCtl.File") f2.open Storage_Path & "\" & Data_Log_Name2 & "0.csv",1,1 Luchini_9 4.- How to modify the latter script of to be able to simulate? In any case would be useful if you post your current script. And sorry for my assumption to have a complete script in the second post - when having a detailed look, I saw that at least at the end something is missing (for ... next). Regards, Frink
	Pi is exactly three! All you have to do is think of things which people need but which don’t exist yet.
Suggestion To thank Quote Answer

4/3/2019 8:32 PM	Rate (0)
Luchini_9 Posts: 6 Rating: (0)	Good afternoon Prof. Frink In this oportunity I share you my modified code of Read_Line script To consider the attachment N° 1, in this attachment I declared the news columns with the miscellaneous "Column" and "Vertical" It is this attachment also shows the error in runtime . Dim fso, fs, f, i, ix, il, FName, HMIO, Zeile(100), Zeilen, Screen_Name, Storage_Path, temp, text_stream 'News variables ************************************ Dim Zeile_VARIABLE1(100), Zeile_VARIABLE2(200), icd, iv, ir ' declaration of the screen name Screen_Name = "Screen_01" ' Announcing "sand-glass" as long as the data are selected. Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("wait") HMIO.Visible = True ' Define Storage path Storage_Path = "C:\Storage_Data\Logs\Engine_01\Tag_Values" ' creating the FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") ' check if path and file exists If fso.FileExists(Storage_Path & "\" & Data_Log_Name & "0.csv") = False Then ShowSystemAlarm ("path or file not available") ' lock buttons Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("down") HMIO.Enabled = False Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("up") HMIO.Enabled = False Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("down_0") HMIO.Enabled = False Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("up_0") HMIO.Enabled = False Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("pos1") HMIO.Enabled = False Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("ende") HMIO.Enabled = False Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("wait") HMIO.Visible = False ' Delete entries in the table For ix = 1 To SmartTags("Linenumbers") ' clear list Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VarNameTextfeld"& ix) fs.Text = "" Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("ZeitTextfeld"& ix) fs.Text ="" Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VarTextfeld"& ix) fs.Text = "" Next ' Set Entry Number to "o" SmartTags("SkipIndex") = 0 Exit Sub End If ' open the file Set f = fso.GetFile(Storage_Path & "\" & Data_Log_Name & "0.csv") Set text_stream = f.OpenAsTextStream(1, -2) ' skip to the correct line For il = 1 To SmartTags("SkipIndex") If text_stream.AtEndOfStream = True Then Exit For temp = text_stream.ReadLine Next ' read lines from file For i = 1 To SmartTags("Linenumbers") If text_stream.AtEndOfStream = True Then Exit For Zeile(i) = text_stream.ReadLine For ix = 1 To (i-1) ' Split line In column Zeilen = Split(Zeile(ix),",",-1,1) 'Textfelder befüllen/ fill text fields Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VarNameTextfeld"& ix) fs.Text = Zeilen(0) Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("ZeitTextfeld"& ix) fs.Text = Zeilen(1) Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("VarTextfeld"& ix) fs.Text = Zeilen(2) Next ' START MODIFICATIONS OF ORIGINAL CODE****************************************************** 'CHECK IF VARIABLE 1 LINE If StrComp(Zeilen(0),"VARIABLE 1") Then If iv <= 100 Then Zeile_VARIABLE1(iv) = Zeile(ix) 'ASSIGN LINE STRINGS iv = iv + 1 Else iv = 1 Zeile_VARIABLE1(iv) = Zeile(ix) End If End If 'CHECK IF VARIABLE 2 LINE If StrComp(Zeilen(0),"VARIABLE 2") Then If icd <= 100 Then Zeile_VARIABLE2(icd) = Zeile(ix) 'ASSIGN LINE STRINGS icd = icd + 1 Else icd = 1 Zeile_VARIABLE2(icd) = Zeile(ix) End If End If Next text_stream.Close For ir = 1 To (ix-1) 'Split Zeile In column Zeilen = Split(Zeile_VARIABLE1(ir),",",-1,1) 'fill text field Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("Column"& ir) fs.Text = Zeilen(2) 'Split Zeile In column Zeilen = Split(Zeile_VARIABLE2(ir),",",-1,1) 'Fill text field Set fs = HmiRuntime.Screens(Screen_Name).ScreenItems("Vertical"& ir) fs.Text = Zeilen(2) Next ' FINISH MODIFICATIONS OF ORIGINAL CODE****************************************************************** ' Schaltflächen freigeben ' release buttons Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("down") HMIO.Enabled = True Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("up") HMIO.Enabled = True Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("down_0") HMIO.Enabled = True Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("up_0") HMIO.Enabled = True Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("pos1") HMIO.Enabled = True Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("ende") HMIO.Enabled = True ' Objecte entleeren ' clear objects Set f = Nothing Set fs = Nothing Set fso = Nothing Set HMIO = Nothing Button_Visible(SmartTags("Data_Log_Name_String")) ' Sanduhr wieder ausblenden ' Removing sand-glass again Set HMIO = HmiRuntime.Screens(Screen_Name).ScreenItems("wait") HMIO.Visible = False I have the following questions: 1. In the next script modified. How are "VARIABLE 1", "Zeile_VARIABLE" ? Where do I declare it? 'CHECK IF VARIABLE 1 LINE If StrComp(Zeilen(0),"VARIABLE 1") Then If iv <= 100 Then Zeile_VARIABLE1(iv) = Zeile(ix) 'ASSIGN LINE STRINGS iv = iv + 1 Else iv = 1 Zeile_VARIABLE1(iv) = Zeile(ix) End If End If 2. In my script modified I have the error in the line 102 shown in Attachment No. 1 Why is this error? Line 102 : If StrComp(Zeilen(0),"VARIABLE 1") Then 3.- I have not managed to open two csv, because it does not recognize me "Data_Log_Name1" and "Data_Log_Name2" Where do I declare them?** I have tried to create them in the tag list, but in the tag list there is a Data_Log_Name_String I created Data_Log_Name1_String, Data_Log_Name_String1 without success Prof. Frink Set f1 = CreateObject("FileCtl.File") f1.open Storage_Path & "\" & Data_Log_Name1 & "0.csv",1,1 Set f2 = CreateObject("FileCtl.File") f2.open Storage_Path & "\" & Data_Log_Name2 & "0.csv",1,1 Currently I work with WinCC Flexible 2008 SP3 and I need to simulated this project previously. The future hardware will be WinCC Flexible Runtime Thank you for your support I will be attentive to your answers Best Regards Attachment 1.jpg (299 Downloads)
Luchini_9 Posts: 6 Rating: (0)	Last edited by: Luchini_9 at: 4/3/2019 9:55:06 PM
Suggestion To thank Quote Answer

4/4/2019 4:27 AM	Rate (1)
Prof. Frink Platinum Expert Joined: 7/5/2013 Last visit: 1/16/2025 Posts: 3123 Rating: (518)	Hello Luchini, Luchini_9 1. In the next script modified. How are "VARIABLE 1", "Zeile_VARIABLE" ? Where do I declare it? 'CHECK IF VARIABLE 1 LINE If StrComp(Zeilen(0),"VARIABLE 1") Then If iv <= 100 Then Zeile_VARIABLE1(iv) = Zeile(ix) 'ASSIGN LINE STRINGS iv = iv + 1 Else iv = 1 Zeile_VARIABLE1(iv) = Zeile(ix) End If End If not sure, if I understand what you mean. "VARIABLE 1" is the name of the logged HMI tag. "Zeile_VARIABLE1" is a script variable. Luchini_9 2. In my script modified I have the error in the line 102 shown in Attachment No. 1 Why is this error? Line 102: If StrComp(Zeilen(0),"VARIABLE 1") Then Having a look to the script, you write to 'Zeilen' here: ' read lines from file For i = 1 To SmartTags("Linenumbers") If text_stream.AtEndOfStream = True Then Exit For Zeile(i) = text_stream.ReadLine For ix = 1 To (i-1) I guess 'Linenumbers' is always >=1. For <i=1> the second For-loop is <ix=1 to 0>. I'm not sure if this works. Besides here the second For-loop doesn't make sense, because you read all lines again and again. Should work without so that: ' read lines from file For i = 1 To SmartTags("Linenumbers") If text_stream.AtEndOfStream = True Then Exit For Zeile(i) = text_stream.ReadLine ' Split line In column Zeilen = Split(Zeile(i),",",-1,1) If still having problem create an output of 'Zeilen(0)', e.g. by use of SystemAlarm. Luchini_9 3.- I have not managed to open two csv, because it does not recognize me "Data_Log_Name1" and "Data_Log_Name2" Where do I declare them? I have tried to create them in the tag list, but in the tag list there is a Data_Log_Name_String I created Data_Log_Name1_String, Data_Log_Name_String1 without success Currently I have not WinCC flexible, but as in TIA there is also a branch name "Historical data" or "Archives". The data logs are defined there. Regards, Frink
	Pi is exactly three! All you have to do is think of things which people need but which don’t exist yet.
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Luchini_9

1/27/2023 1:19 PM	Rate (0)
Akshay Chakrapani Joined: 9/5/2022 Last visit: 11/19/2024 Posts: 8 Rating: (0)	Hello! Sory to disturb you but do you have any code that i can use to fetch data from the "nth" row of a CSV file I currently run this code but it fetches the last row of the CSV file ------------------------------------------------------------------------------------------------------------------------------------ After declaring the variables ....... mode=1 path ="\Storage Card USB\ABC.csv" delimiter="," Set fo= CreateObject("FileCtl.File") fo.open path, mode While fo.EOF = False data=fo.LineInputString Wend data=Replace(data,delimiter) splitdata=Split(data,delimiter) SmartTags("tag1")=splitdata(1) SmartTags("tag2")= splitdata(2) fo.close Set fo = Nothing ----------------------------------------------------------------------------------------------------------------------------- From this case i get the values from the last row and 1st and 2nd column. But I'm struggling to figure out how to fetch the data from 9th row and 11th column Kindly do help me when you have time, thank you Prof. Frink Hello Luchini, Luchini_9 1. In the next script modified. How are "VARIABLE 1", "Zeile_VARIABLE" ? Where do I declare it? 'CHECK IF VARIABLE 1 LINE If StrComp(Zeilen(0),"VARIABLE 1") Then If iv <= 100 Then Zeile_VARIABLE1(iv) = Zeile(ix) 'ASSIGN LINE STRINGS iv = iv + 1 Else iv = 1 Zeile_VARIABLE1(iv) = Zeile(ix) End If End If not sure, if I understand what you mean. "VARIABLE 1" is the name of the logged HMI tag. "Zeile_VARIABLE1" is a script variable. Luchini_9 2. In my script modified I have the error in the line 102 shown in Attachment No. 1 Why is this error? Line 102: If StrComp(Zeilen(0),"VARIABLE 1") Then Having a look to the script, you write to 'Zeilen' here: ' read lines from file For i = 1 To SmartTags("Linenumbers") If text_stream.AtEndOfStream = True Then Exit For Zeile(i) = text_stream.ReadLine For ix = 1 To (i-1) I guess 'Linenumbers' is always >=1. For <i=1> the second For-loop is <ix=1 to 0>. I'm not sure if this works. Besides here the second For-loop doesn't make sense, because you read all lines again and again. Should work without so that: ' read lines from file For i = 1 To SmartTags("Linenumbers") If text_stream.AtEndOfStream = True Then Exit For Zeile(i) = text_stream.ReadLine ' Split line In column Zeilen = Split(Zeile(i),",",-1,1) If still having problem create an output of 'Zeilen(0)', e.g. by use of SystemAlarm. Luchini_9 3.- I have not managed to open two csv, because it does not recognize me "Data_Log_Name1" and "Data_Log_Name2" Where do I declare them? I have tried to create them in the tag list, but in the tag list there is a Data_Log_Name_String I created Data_Log_Name1_String, Data_Log_Name_String1 without success Currently I have not WinCC flexible, but as in TIA there is also a branch name "Historical data" or "Archives". The data logs are defined there. Regards, Frink

Suggestion To thank Quote Answer

1/27/2023 2:45 PM	Rate (0)
K_Ohjus Gold Expert Joined: 3/5/2017 Last visit: 1/17/2025 Posts: 779 Rating: (129)	Count the lines and assign to data when you reach the target line. Dim tmpLine, line.............. mode=1 path ="\Storage Card USB\ABC.csv" delimiter="," Set fo= CreateObject("FileCtl.File") fo.open path, mode While fo.EOF = False tmpLine = fo.LineInputString ' Or maybe just fo.LineInputString without tmpLine line = line + 1 If line = nth data=Replace(tmpLine, delimiter) splitData=Split(data, delimiter) column=spliData(10) End If Wend SmartTags("tag1")=data SmartTags("tag2")=column fo.close Set fo = Nothing
	Last edited by: K_Ohjus at: 01/27/2023 14:46:54 Last edited by: K_Ohjus at: 01/27/2023 14:47:55 Last edited by: K_Ohjus at: 01/29/2023 14:55:52 Added 11th column Last edited by: K_Ohjus at: 01/29/2023 14:58:38 - Trying is the first step towards failure. - Singing while you work is not happiness, it's mental illness. - Kaikki on paskaa, paitsi kusi.
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

TIA WinCC Adv System functions/Scripting

Follow us on