Skip to Content

Register Login

Default Header

(header konnte nicht geladen werden)

Navigation

RawDataTag in VBS

Created by: Import-User-1 at: 9/5/2005 3:22 PM (2 Replies)

Rating (3)

Thanks 0

3 Entries

9/5/2005 3:22 PM	Rate (0)
Import-User-1 Posts: 3609 Rating: (29)	Hi, how i can read/write and extract value form a raw data tag using vbs (not CScript) ? It is possible ? Thank you Genky
Import-User-1 Posts: 3609 Rating: (29)
Suggestion To thank Quote Answer

9/5/2005 3:22 PM	Rate (2)
Import-User-2 Silver Member Joined: 8/10/2005 Last visit: 4/9/2024 Posts: 1486 Rating: (32)	Dear Sir, following an example. > Sub onclick_(ByVal Item) > '############################################ > 'Writing Values: > '############################################ > > Dim Roh > Dim i(3) > > i(0)=15 > i(1)=20 > i(2)=25 > i(3)=30 > > Set Roh = HMIRuntime.Tags("Daten") > > roh.Write(i) > End Sub > > > > Sub onclick_(ByVal Item) > '############################################ > 'Reading Values: > '############################################ > > Dim Roh > Dim value > Dim i > > Set Roh = HMIRuntime.Tags("Daten") > > Roh.Read > > Dim test > test = Roh.Value 'Accessing the Value directly causes problems -> > copy it into local variable > > HMIRuntime.Trace "LBound: "& LBound(test)&vbCrLf > HMIRuntime.Trace "UBound: "& UBound(test)&vbCrLf > > HMIRuntime.Trace "Array iteration:"+vbCrLf > > For i = LBound(test) To UBound(test) > > HMIRuntime.Trace CStr(test(i)) & vbCrLf > > Next > End Sub > best regards Technical Support for Automation & Drives

Suggestion To thank Quote Answer

10/21/2005 6:41 PM	Rate (1)
Olli_H Posts: 4 Rating: (1)	hello if i use the command xyz.read for the raw variable, at the first time when the script reads the value, i receive an error. After then, everything works fine. Now i use the command xyz.read(1). With this, everthing works also for the first read. best regards
Olli_H Posts: 4 Rating: (1)
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on