Hallo Senro,
Wenn ich Sie richtig verstanden habe, ist Ihr Problem nicht im DataPlugin sondern in den verfuegbaren Ladevorgaengen im NAVIGATOR. Hier ist ein VBScript das die gesuchten Kanaele bei Ursprungsgruppe laedt:
Call DataDelAll
'Set Selection = Navigator.Display.CurrDataFinder.ResultsList.ElementsSelection ' for selected channels
Set Selection = Navigator.Display.CurrDataFinder.ResultsList.Elements ' for all of them
Call LoadChannelsByGroup(Selection)
Sub LoadChannelsByGroup(Selection)
Dim i, j, k, n, iMax, nMax, NewGroup, StartGroup, ChanGroupMap, ChanIdxs, Channels, ChNum, SelGroup, Msg, PortalShow, LastTime, TestName
PortalShow = PtlShow
PtlShow = 0
ChanGroupMap = GetChannelGroupMap(Selection)
iMax = UBound(ChanGroupMap)
FOR i = 1 TO iMax
IF (Timer - LastTime < 0) OR (Timer - LastTime > 1) THEN
Msg = Left("Loading Group " & i & " of " & iMax, 1000)
Call MsgBoxDisp(Msg, "MB_NOBUTTON", "MsgTypeNote", 0, 0, 1)
LastTime = Timer
END IF
ChanIdxs = Split(" " & ChanGroupMap(i), " ")
k = ChanIdxs(1)
StartGroup = GroupCount + 1
Set SelGroup = Selection(k).ChannelGroup
On Error Resume Next
TestName = SelGroup.Root.Name
TestName = SelGroup.Parent.Name
On Error Goto 0
Call Navigator.LoadData(SelGroup, "Register")
IF GroupCount >= StartGroup AND GroupChnCount(GroupCount) >= UBound(ChanIdxs) THEN
FOR n = SelGroup.Children.Count TO 1 Step - 1
FOR j = 1 TO UBound(ChanIdxs)
k = ChanIdxs(j)
IF Selection(k).Name = SelGroup.Children(n).Name THEN Exit For ' j
NEXT ' j
ChNum = CNo("[" & GroupCount & "]/" & SelGroup.Children(n).Name)
IF ChNum > 0 THEN
IF j > UBound(ChanIdxs) THEN
Call ChnDelete(ChNum)
ELSE
Call ChnValExpand(ChNum)
END IF
END IF ' Channel was loaded
NEXT ' Channel
Call GroupDefaultSet(GroupCount)
END IF ' SelGroup loaded
NEXT ' i, SelGroup
Call MsgBoxCancel
PtlShow = PortalShow
End Sub ' LoadChannelsByGroup()
Function GetChannelGroupMap(Selection)
Dim i, k, ChanGroupMap, FilePath, PathDict
Set PathDict = CreateObject("Scripting.Dictionary")
ReDim ChanGroupMap(Selection.Count)
FOR i = 1 TO Selection.Count
FilePath = Selection(i).ChannelGroup.Root.Properties("fullpath").Value
FilePath = FilePath & "\" & Selection(i).ChannelGroup.Name
IF FilePath <> "" THEN
IF PathDict.Exists(FilePath) THEN
k = PathDict.Item(FilePath)
ChanGroupMap(k) = ChanGroupMap(k) & " " & i
ELSE PathDict.Exists(FilePath)
k = k + 1
ReDim Preserve SelGroups(k)
ChanGroupMap(k) = i
PathDict.Add FilePath, k
END IF
END IF ' FilePath <> "" THEN
NEXT ' i
ReDim Preserve ChanGroupMap(k)
GetChannelGroupMap = ChanGroupMap
End Function ' GetChannelGroupMap()
Brad Turpin
DIAdem Product Support Engineer
National Instruments
