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