UpdateDefinition Method Example

The following example updates the definitions contained in a tag group file.

Dim sTokenList(4) as String, TokenList as Variant

Dim sReplacementList(4) as String, ReplacementList as Variant

Dim sDescriptionList(4) as String, DescriptionList as Variant

Dim TGD As Object

Set TGD = CreateObject("TagGroupDefinitionInterfaceDll.TagGroupDefinitionInterface")

TGD.RetrieveDefinition "Test", 4, TokenList, ReplacementList, DescriptionList

TokenList(2) = "Tag3"

TokenList(3) = "Tag4"

ReplacementList (2) = "FIX32.NODE2.AI1.F_CV"

ReplacementList (3) = "FIX32.NODE2.AI2.F_CV"

DescriptionList (2) = "Temperature for Node 2"

DescriptionList (3) = "Pressure for Node 2"

' Create the tag group file object

Set TGD = CreateObject("TagGroupDefinitionInterfaceDll.TagGroupDefinitionInterface")

TGD.UpdateDefinition "Test", 4, TokenList, ReplacementList, DescriptionList

Set TGD = Nothing