01-12-2008 03:01 PM
01-14-2008 02:09 AM
01-14-2008 09:28 AM - edited 01-14-2008 09:29 AM
01-14-2008 09:45 AM
01-14-2008 09:50 AM
That won't work because I have multiple groups. There are 300+ groups and 12 channels per group. I only want 1 channel in each of the groups to do histogram analysis. I have a loop like this for each plugin type that does this. For ex, TDM.....
Case "TDM"
Select Case Trim(ChannelSet)
Case "", "1-"
Call DataFileLoad(FilePaths(i), DataPlugin)
Case Else
Set oDataFileHeader = DataFileHeaderAccess(FilePaths(i), "TDM",True)
oDataFileGroupCount = oDataFileHeader.GroupCount
for j = 1 to oDataFileGroupCount
oDataFileGroupName = oDataFileHeader.GroupNameGet(j)
Msg = "Loading Group" & " " & j & " of " & oDataFileGroupCount
Call MsgBoxDisp(Msg, "MB_NOBUTTON", "MsgTypeNote", 0, 0, 1)
Call GroupCreate(oDataFileGroupName)
Call GroupDefaultSet(GroupCount)
Call DataFileLoadSel(FilePaths(i), DataPlugin, "[" & j & "]/" & ChannelSet, "Register")
if (ChnPropValGet("[" & GroupCount & "]/" & ChannelSet, "Count")) =0 then
Msg = "Removing zero length data group" & " " & j
Call MsgBoxDisp(Msg, "MB_NOBUTTON", "MsgTypeNote", 0, 0, 1)
GroupDel(GroupCount)
else
ChnDel("[" & GroupCount & "]/" & ChannelSet)
Call DataFileLoadSel(FilePaths(i), DataPlugin, "[" & j & "]/" & ChannelSet)
end if
next
End Select
Case "PALM_USERLOGPLUGIN"
Select Case Trim(ChannelSet)
Case "", "1-"
Call DataFileLoad(FilePaths(i), DataPlugin)
Case Else
Set oDataFileHeader = DataFileHeaderAccess(FilePaths(i), DataPlugin,True)
oDataFileGroupCount = oDataFileHeader.GroupCount
for j = 1 to oDataFileGroupCount
oDataFileGroupName = oDataFileHeader.GroupNameGet(j)
Msg = "Loading Group" & " " & j & " of " & oDataFileGroupCount
Call MsgBoxDisp(Msg, "MB_NOBUTTON", "MsgTypeNote", 0, 0, 1)
Call GroupCreate(oDataFileGroupName)
Call GroupDefaultSet(GroupCount)
Call DataFileLoadSel(FilePaths(i), DataPlugin, "[" & j & "]/" & ChannelSet, "Register")
if (ChnPropValGet("[" & GroupCount & "]/" & ChannelSet, "Count")) =0 then
Msg = "Removing zero length data group" & " " & j
Call MsgBoxDisp(Msg, "MB_NOBUTTON", "MsgTypeNote", 0, 0, 1)
GroupDel(GroupCount)
else
ChnDel("[" & GroupCount & "]/" & ChannelSet)
Call DataFileLoadSel(FilePaths(i), DataPlugin, "[" & j & "]/" & ChannelSet)
end if
next
End Select
01-14-2008 11:35 AM
01-15-2008 01:35 AM