1.以下脚本为创建1D数组数据以用于测试。该创建数字将从1到1000000的数组。若创建较大型的数组将需要消耗一些时间。
Call Data.Root.Clear()
Call Data.Root.ChannelGroups.Add("MyChannelGroup")
Dim oMyGrp, oMyChn, i
Set oMyGrp = Data.Root.ChannelGroups(1)
Set oMyChn = oMyGrp.Channels.Add("Xaxis",DataTypeFloat64)
For i = 1 to 1000000
oMyChn(i) = i
Next
2.检查ChnFind函数。
Dim sFormula, aSymbol(2), aValues(2), Result
sFormula = "A >= B"
aSymbol(1) = "A"
aSymbol(2) = "B"
Set aValues(1) = Data.GetChannel("[1]/[1]")
aValues(2) = 11
Result = ChnFind(sFormula,,aSymbol, aValues)
Call MsgBox(Result)
当运行此脚本时，将会立即弹出一个消息框，并显示信息11。接下来，在DIAdem VIEW中，将数据门户中X-axis数据的第11个元素，手动更改为11以外的数字，并将最后一个元素设置为11，之后再次执行上述脚本。此搜索将会花费一些时间，然后该指数也会显示为11。如果有多个1，ChnFind也将会进行搜索该元素，直到检测到数据11个为止。