read the txt file content as per enter value in HMI internal tag

Hi,

I tried to read txt file on TP700 HMI and file connection is established.But I required to read specific data and display on HMI.

example. In txt file format

[0]

C1 = 22

[1]

C1 = 23

[2]

C1 = 24

HMI :

If I enter 1 value on HMI, It's shows 23 .

If I enter 2 value on HMI, It's shows 24 . 

In Vb2010.net this scripting is possible.How to write script in TP700 .

Please help...

------------------------------------------------------------------------------------------
Split from Read content of .txt file with VBS Comfort Panel.

Hey.
I am not sure where you have a problem?

Did you want to read out a "txt-file" with a value?

Or did you want to select a value and depend of the value you will set a function?
(In this sample I use the function ShowSystemAlarm)

Select case SmartTags("Your Tag")
    Case 0 ShowSystemAlarm 22

    Case 1 ShowSystemAlarm 23        

    Case 2 ShowSystemAlarm 24

    Case Else

                ShowSystemAlarm "Value not allow...."

End Select

If you put the value "2" In the "SmartTag("YourTag") => the value 24 will be show in the alarm view.

Sir,

Thanks for your valuable reply. We want to read the txt file content as per enter value in HMI internal tag.

examle : In txt file

[0]

C1 = 22

W1 = 1500

S1 = 2

L1 = 50

[1]

C1 = 23

W1 = 1600

S1 = 3

L1 = 30

[2]

C1 = 23

W1 = 1600

S1 = 1

L1 = 2

.

.

.

.

[300]

C1 = 651

W1 = 18000

S1 = 3

L1 = 10

HMI :

If I Enter 2 value on HMI Internal Tag_1 ,then using VB scripting,search 2 number in text file after read the contents across 2.like 

HMI Internal Tag_2 = 23

HMI Internal Tag_3 = 1600

HMI Internal Tag_4 = 1

HMI Internal Tag_5 = 2

If I Enter 300 value on HMI Internal Tag_1 ,then using VB scripting search 300 number in text file after read the contents across 300 .like 

HMI Internal Tag_2 = 651

HMI Internal Tag_3 = 18000

HMI Internal Tag_4 = 3

HMI Internal Tag_5 = 10

In Vb2010.net program is like shown in below

If I enter 2 value in Textbox1.text

Dim i As INT16

i = Text box1.text

Lable1.text = INIRead.GetString(i, "C1", "")

Lable2.text = INIRead.GetString(i, "W1", "")

Lable3.text = INIRead.GetString(i, "S1", "")

Lable4.text = INIRead.GetString(i, "L1", "")

Hey guys,

                 We have developed the code for to read CSV file data as per enter value in HMI.

This smart tag search in CSV file and read the content across such ID.

Code is define in below.

Sub VBFunction_1()
Dim fo
Dim path
Dim mode
Dim delimiter
Dim data
Dim splitdata
Dim i
Dim SearchIDNo
delimiter=","

On Error Resume Next
Set fo= CreateObject("FileCtl.File")
SearchIDNo = SmartTags("ID")
fo.Open "\\D:\Recipe\Recipe.csv",1,1

For i = 1 To 300
data=fo.LineInputString

data=Replace(data,vbTab & vbTab,delimiter)

splitdata=Split(data,delimiter)

If i<> 1 Then '' this is used for ignore the header name in csv file
SmartTags("IDDumy")= splitdata(0)
SmartTags("IDName")= splitdata(1)
SmartTags("A1")=splitdata(2)
SmartTags("A2")=splitdata(3)
SmartTags("A3")=splitdata(4)
SmartTags("A4")=splitdata(5)
SmartTags("A5")=splitdata(6)
SmartTags("B1")=splitdata(7)
SmartTags("B2")=splitdata(8)
SmartTags("B3")=splitdata(9)
SmartTags("B4")=splitdata(10)
SmartTags("B5")=splitdata(11)
SmartTags("C1")=splitdata(12)
SmartTags("C2")=splitdata(13)
SmartTags("C3")=splitdata(14)
SmartTags("C4")=splitdata(15)
SmartTags("C5")=splitdata(16)
SmartTags("D1")=splitdata(17)
SmartTags("D2")=splitdata(18)
SmartTags("D3")=splitdata(19)
SmartTags("D4")=splitdata(20)
SmartTags("D5")=splitdata(21)
SmartTags("CountOfLoops")=SmartTags("CountOfLoops")+1
End If
If SearchIDNo=SmartTags("IDDumy") Then
SmartTags("IDName_Read")=SmartTags("IDName")
SmartTags("A1_Read")=SmartTags("A1")
SmartTags("A2_Read")=SmartTags("A2")
SmartTags("A3_Read")=SmartTags("A3")
SmartTags("A4_Read")=SmartTags("A4")
SmartTags("A5_Read")=SmartTags("A5")
SmartTags("B1_Read")=SmartTags("B1")
SmartTags("B2_Read")=SmartTags("B2")
SmartTags("B3_Read")=SmartTags("B3")
SmartTags("B4_Read")=SmartTags("B4")
SmartTags("B5_Read")=SmartTags("B5")
SmartTags("C1_Read")=SmartTags("C1")
SmartTags("C2_Read")=SmartTags("C2")
SmartTags("C3_Read")=SmartTags("C3")
SmartTags("C4_Read")=SmartTags("C4")
SmartTags("C5_Read")=SmartTags("C5")
SmartTags("D1_Read")=SmartTags("D1")
SmartTags("D2_Read")=SmartTags("D2")
SmartTags("D3_Read")=SmartTags("D3")
SmartTags("D4_Read")=SmartTags("D4")
SmartTags("D5_Read")=SmartTags("D5")

Exit For
End If
Next
fo.Close
i =0
CountOfLoops =0
Set fo = Nothing
ShowSystemAlarm "Done"
End Sub