Hello community,

  I'm playing with idea of trying WinCC VBscripts and I'm trying to write, read and find lines in text file. By searching on these forums, I found manuals how to create txt/csv file and write data from HMI tags to those file. I also found how to read last line and tried implement it. I succesfully test it out. Now I have problem with search whole text file and write found strings into HMI tags.

I found some VBscript's properties needed for this to happen, wrote it down into the script and test it but alarm log is saying those does not exist. I'm starting with VBscript, so please, yell at me for any mistakes, errors. I really have no idea how to move from this.

I'm using:

-Tia portal v13/WinCC comfort/advanced

-TP900 Comfort(13.0.1.0)

Here is whole test script:

Sub Find_line()
'Tip:
' 1. Use the <CTRL+SPACE> or <CTRL+I> shortcut to open a list of all objects and functions
' 2. Write the code using the HMI Runtime object.
'  Example: HmiRuntime.Screens("Screen_1").
' 3. Use the <CTRL+J> shortcut to create an object reference.
'Write the code as of this position:

Dim SearchedText
Dim objectFSO
Dim TextFile
Dim LineFromText
Dim SplitLine
Dim Delimiter

Const ForReading = 1
Delimiter = vbTab

'I'm searching for specific cake
SearchedText = SmartTags("CakeID_PLC")

'Open text file, where cake should be
Set objectFSO = CreateObject("FileCtl.File")
Set TextFile = objectFSO.OpenTextFile("\Storage Card SD\datafile.txt", ForReading)

'Search whole text file for my cake
Do Until TextFile.AtEndOfStream

LineFromText = TextFile.ReadLine()
'Searching for same cake as declared
If InStr(LineFromText, SearchedText) <> 0 Then
'Found, I will split it into info HMI tags
LineFromText = Replace(LineFromText,vbTab & vbTab,Delimiter)
SplitLine=Split(LineFromText,Delimiter)
SmartTags("Type_read")=SplitLine(0)
SmartTags("CakeID_read")= SplitLine(1)
SmartTags("Layers_read")=SplitLine(2)

Else
'Not such cake found, we have new cake on our hands, alarm cakemaster and set new registry for brand new cake
SmartTags("Flag_newCake") = 1
SmartTags("CakeID_PLC") = SmartTags("CakeID_create")

End If
Loop

TextFile.Close

End Sub

Thank you for any help and please excuse my bad english.

Jilikan

Update:Can I somehow read line by line by loop and checking lines with expresion i=i+1? I know for reading last line is loop while fo. EOF(or BOF for first) and parameter=fo.LineInputString but I tested it and can't make it work with function if.... Anyway now I'm trying to built that from Read and write scripts from here:How do you write data to a file or read data from a file by means of a script on a panel with SIMATIC WinCC (TIA Portal)?

Update2:Added info about Tia portal and hmi

I wish you nice weekend, I will try to build it from those...

Hello ones again,

So I tryed remade it by those link above so i added loop with If. Now Flag_newCake is set everytime i launch this script.

Sub Read_Line_02()
'Tip:
' 1. Use the <CTRL+SPACE> or <CTRL+I> keystroke to open a list of all objects and functions
' 2. Write the code using the HMIRuntime object.
' Example: HmiRuntime.Screens("Screen_1").
' 3. Use the <CTRL+J> keystroke to create an object reference.
'Write the code as of this position:

'Declaration of local tags
Dim fo            'file, where you are writing values
Dim path        'file path
Dim mode        'What we are going to do with data
Dim delimiter    'symbol or space between data
Dim data        'Line
Dim splitdata    'take line and split it to HMI tags)
Dim searchedText'text which i'm searching


'Initialization of Tags
mode=1    '1 = Input

'Selection of the storage path
path =    "\Storage Card SD\datafile.txt"
delimiter=vbTab

'Starting error routine
On Error Resume Next

'Create a file object
Set fo    = CreateObject("FileCtl.File")

'Check if any errors happend
If Err.Number    <> 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
Err.Clear
Exit Sub
End If

searchedText = SmartTags("Delete")
'Open or creat a file
fo.open path,mode

'take my file, check line by line, load line into tags
Do Until fo.AtEndOfStream = True
data=fo.ReadLine
data = Replace(data,vbTab & vbTab,delimiter)
splitdata=Split(data,delimiter)
SmartTags("Type_mem")=splitdata(0)
SmartTags("CakeID_mem")= splitdata(1)
SmartTags("Layers_mem")=splitdata(2)
'compare tags(from text file) and if Cake_id and ID I'm searching; if true convert those to new tags
If InStr(searchedText,SmartTags("CakeID_mem"))<>0 Then
SmartTags("Type_read")=SmartTags("Type_mem")
SmartTags("CakeID_read")=SmartTags("CakeID_mem")
SmartTags("Layers_read")=SmartTags("Layers_mem")
'Else flag it as new ID and set flag
Else
SmartTags("Flag_newCake") = True
End If

Loop

'Close the file
fo.Close

'Release the Object
Set fo = Nothing

ShowSystemAlarm "I have completed whole script!!"
End Sub

 If i understood parameters correctly, it should stop after it is on the end of my text file+ it should go line by line. I'm pretty sure, that it is stuck at loop, but I don't see how.

Thank you for any help,

Jilikan

Upd:Fixed some eye hurting grammar.

Upd2:Added screen

Hello ones again,

  so I solved that problem like this:

Sub Read_Line_04()
'Tip:
' 1. Use the <CTRL+SPACE> or <CTRL+I> keystroke to open a list of all objects and functions
' 2. Write the code using the HMIRuntime object.
' Example: HmiRuntime.Screens("Screen_1").
' 3. Use the <CTRL+J> keystroke to create an object reference.
'Write the code as of this position:

'Declaration of local tags
Dim fo            'file, where you are writing values
Dim path        'file path
Dim mode        'What we are going to do with data
Dim delimiter    'symbol or space between data
Dim data        'Line
Dim splitdata    'take line and split it to HMI tags)
Dim searchedText'text which i'm searching

'Declaration
searchedText = SmartTags("Searched_ID")
SmartTags("CountOfLoops")=0 'To null counter of loops
'Initialization of Tags
mode=1    '1 = Input

'Selection of the storage path
path =    "\Storage Card SD\datafile.txt"
delimiter=vbTab

'Starting error routine
On Error Resume Next

'Create a file object
Set fo    = CreateObject("FileCtl.File")

'Check if any errors happend
If Err.Number    <> 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
Err.Clear
Exit Sub
End If

'Open or creat a file
fo.open path,mode

'take my file, check line by line, load line into tags;
Do While fo.AtEndOfStream = False
data=fo.LineInputString
data = Replace(data,vbTab & vbTab,delimiter)
splitdata=Split(data,delimiter)
'memory to store line's data
SmartTags("Type_mem")=splitdata(0)
SmartTags("CakeID_mem")= splitdata(1)
SmartTags("Layers_mem")=splitdata(2)
'counting of loop
SmartTags("CountOfLoops")=SmartTags("CountOfLoops")+1

'compare- what ID I'm searching whit current
If searchedText=SmartTags("CakeID_mem") Then
SmartTags("Type_read")=SmartTags("Type_mem")
SmartTags("CakeID_read")=SmartTags("CakeID_mem")
SmartTags("Layers_read")=SmartTags("Layers_mem")

'Else flag it as new ID and set flag
Else
SmartTags("Flag_newCake") = True
SmartTags("found_match")=False

End If
' AtEndOfStream is cycling infinitly->stopped by number of loops; found_match and Flag is signalization
If SmartTags("CakeID_read")=SmartTags("Searched_ID") Then
SmartTags("found_match")=True
SmartTags("Flag_newCake") = False
Exit Do
Else
'If you did not find any data=> get ready for new cake; MAX 200 LINES in text file!->change if not enough
If SmartTags("CountOfLoops")=200 Then

SmartTags("found_match")=False
SmartTags("Flag_newCake") = True
SmartTags("Name") = SmartTags("Searched_ID")
Exit Do
End If

End If

Loop

'Close the file
fo.Close
'Release the Object
Set fo = Nothing

ShowSystemAlarm "I have completed whole script!!"
End Sub

Only problem is that loop is done infinitly. So I made function If for escaping that loop, because I have zero clue, where is problem.

Have a nice day,

Jilikan

New question published by Vinu100389 is split to a separate thread with the subject read the txt file content as per enter value in HMI internal tag.

Best regards
Jen_Moderator