Dim metin
Dim tagler(5)
Set tagler(1) = HMIRuntime.Tags("tag1") ' tanimlanan taglerin isimleri
Set tagler(2) = HMIRuntime.Tags("tag2") 'tag1 yerine basinc tag2 yerine sicaklik vs..
Set tagler(3) = HMIRuntime.Tags("tag3")
Set tagler(4) = HMIRuntime.Tags("tag4")
Set metin = ScreenItems("Control1") ' Control1 sende Control(x) de olabilir.Nesnenin özellikler k?sm?ndan bakabilirsin.
metin.MultiLine =True
metin.ScrollBars = 2
Dim fso, Path, MyZf, f, aranan, uzunluk, veri, x2, satir
Path= "c:\asd.txt" 'buraya ilgili metin dosyasinin yolu girilecek
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fs
penTextFile(Path, 1, 0, -2)
satir = 0
Do While f.AtEndOfStream <> True
satir=satir +1
MyZf = f.ReadLine
metin.Text =metin.Text + MyZf & vbNewLine
uzunluk=Len(MyZf)
aranan=InStr(1, MyZf , ":") 'satirin icindeki ":" isaretini buluyoruz
x2=uzunluk-aranan
veri=Right(MyZf,x2) ' ":" isaretinden sonraki degerleri buluyoruz
tagler(satir).value=veri 'hangi satir numarasindaysak o numarali tage degeri atiyoruz
tagler(satir).write
Loop
f.Close
Set f = Nothing
Set fso = Nothing