UpdateDefinition方法示例
2015-12-15 22:24:08   来源：   评论：0 点击：

下列示例对标签组文件所含的定义进行更新。

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) = "节点2的温度"

DescriptionList (3) = "Pressure for Node 2"

' 创建标签组文件对象

Set TGD = CreateObject("TagGroupDefinitionInterfaceDll.TagGroupDefinitionInterface")

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

Set TGD = Nothing