Imports FlexCell Public Class ReportingScenario Sub New(_UserName As String, _HotleID As String, _RoomTypeID As String, filename As String, Version As String， grd As FlexCell.Grid, Devicemodel As Dictionary(Of String， DeviceModel）, ActionConfiguration As List(Of TableRowTag)) UserName = _UserName RoomTypeID = _RoomTypeID HotleID = _HotleID DevColList = New List(Of MTableSet) ' DevRowList = New List(Of MTableSet) ConfigurationName = filename ConfigurationVersion = Version Tgrd = grd TDevicemodel = Devicemodel 'Runing(grd， Devicemodel, ActionConfiguration) End Sub Sub New(grd As FlexCell.Grid, Devicemodel As Dictionary(Of String， DeviceModel）) Tgrd = grd TDevicemodel = Devicemodel End Sub '配置名称 Public ConfigurationName As String '配置版本 Public ConfigurationVersion As String Public HotleID As String Public RoomTypeID As String Public UserName As String Public Tgrd As FlexCell.Grid Public DevColList As List(Of MTableSet) Public TDevicemodel As Dictionary(Of String， DeviceModel） '列集合 '{ ' 设备名 ' 设备节点集合 ' { 节点类型 ' 节点名 ' 节点下属回路集合 键值对 k:回路 v : 回路别名 ' } ''} Public DevRowList As List(Of MTableSet) '行集合 '{ ' 设备名 '' 设备节点集合 '' { 节点类型 '' 节点名 '' 节点下属回路集合 键值对 k:回路 v : 回路别名 '' } '} #Region "数据处理" Public Function getDateDisposeRuning() As List(Of MDevNodeMessage) Return DateDisposeRuning(Tgrd, TDevicemodel) End Function Public Function DateDisposeRuning(_grd As FlexCell.Grid， _Devicemodel As Dictionary(Of String， DeviceModel)) As List(Of MDevNodeMessage) If IsNothing(_grd) Then Return Nothing Dim ACtabRange As CtabRange Dim rt As New RoomTypeConfig(RoomTypeID) Dim ot As String = "1" Dim result As New List(Of MDevNodeMessage） Dim dic As New Dictionary(Of String, MDevNodeMessage) Dim NodeLoopname As String Dim NCtabRange As CtabRange Dim NodeLoop As String = String.Empty For Each Dev In _Devicemodel '遍历设备 For Each DevNode In Dev.Value.Nodes '遍历设备下属子节点 Dim devAddr As String = GetActionDeviceAddr(Dev.Value, DevNode.Name).ToString If DevNode.Interface.Equals("DO") OrElse DevNode.Interface.Equals("LIGHT") Then '判断是否为输出设备 If DevNode.DEV_TYPE_DATA.Equals("4") Then '服务设备节点特殊处理 For ni As Integer = 0 To 14 NodeLoopname = DevNode.Nodes.Item(ni).Name NodeLoop = DevNode.Nodes.Item(ni).LoopAddr NodeLoop = $"{DevNode.DEV_TYPE_DATA.PadLeft(3, "0")}{devAddr.PadLeft(3, "0")}{NodeLoop.PadLeft(3, "0")}" If dic.ContainsKey(NodeLoop) Then Continue For ot = Dev.Value.Name ot = ot.Replace(vbLf, "").Replace(vbCr， "").Replace(":"， "").Replace("\"， "").Replace("/"， "").Replace("|"， "").Replace("'", "").Replace("'", "").Replace("?", "").Replace("!", "").Replace("`", "") Dim datenode As New MDevNodeMessage(result.Count, NodeLoop, ot, NodeLoopname, DevNode.DEV_TYPE_DATA, rt) dic.Add(NodeLoop, datenode) result.Add(datenode) Next For ri As Integer = TableInteraction.TableRowNumber.Max To _grd.Rows - 1 ' 遍历每行找到服务起始行 ACtabRange = New CtabRange(_grd, ri, TableInteraction.TableColNumber.DeviceName) If ACtabRange.devname.Equals("HOSTSERVICE") Then '找到服务集合 For cj As Integer = ACtabRange.fr To ACtabRange.lr NodeLoopname = _grd.Cell(cj, TableInteraction.TableColNumber.KeyName).Text.Replace(vbLf, "").Replace(vbCr， "").Replace(":"， "").Replace("\"， "").Replace("/"， "").Replace("|"， "").Replace("'", "").Replace("'", "").Replace("?", "").Replace("!", "").Replace("`", "") NodeLoop = _grd.Cell(cj, TableInteraction.TableColNumber.KeyVal).Text NodeLoop = $"{DevNode.DEV_TYPE_DATA.PadLeft(3, "0")}{devAddr.PadLeft(3, "0")}{NodeLoop.PadLeft(3, "0")}" If dic.ContainsKey(NodeLoop) Then Continue For ot = Dev.Value.Name ot = ot.Replace(vbLf, "").Replace(vbCr， "").Replace(":"， "").Replace("\"， "").Replace("/"， "").Replace("|"， "").Replace("'", "").Replace("'", "").Replace("?", "").Replace("!", "").Replace("`", "") Dim datenode As New MDevNodeMessage(result.Count, NodeLoop, ot, NodeLoopname, DevNode.DEV_TYPE_DATA, rt) dic.Add(NodeLoop, datenode) result.Add(datenode) Next End If Next Exit For '完成遍历退出服务输出的处理 Else '正常输出节点 For i As Integer = TableInteraction.TableColNumber.InsertColumn To _grd.Cols - 2 ACtabRange = New CtabRange(_grd, TableInteraction.TableRowNumber.DeviceName, i) If ACtabRange.devname.Equals(Dev.Key) Then '在表格找到对应设备 For j As Integer = ACtabRange.fc To ACtabRange.lc '遍历设备下属节点集合 NCtabRange = New CtabRange(_grd, TableInteraction.TableRowNumber.FunctionName, j) If NCtabRange.devname.ToUpper.Equals("LIGHT") Then NCtabRange.devname = "DO" End If If NCtabRange.devname.ToUpper.Equals("DRY_CURTAIN") Then NCtabRange.devname = "CURTAIN" End If If DevNode.Name.ToUpper.Equals(NCtabRange.devname.ToUpper) Then '找到当前设备的当前节点 For k = NCtabRange.fc To NCtabRange.lc '遍历当前节点下属回路集合 If _grd.Column(k).Visible = True Then '过滤隐藏的回路 NodeLoopname = _grd.Cell(TableInteraction.TableRowNumber.FunctionChildNodeAnother, k).Text.Replace(vbLf, "").Replace(vbCr， "").Replace(":"， "").Replace("\"， "").Replace("/"， "").Replace("|"， "").Replace("'", "").Replace("'", "").Replace("?", "").Replace("!", "").Replace("`", "") If DevNode.Nodes.Count = 1 Then NodeLoop = 0 Else NodeLoop = _grd.Cell(TableInteraction.TableRowNumber.FunctionChildNodeID, k).Text End If NodeLoop = $"{DevNode.DEV_TYPE_DATA.PadLeft(3, "0")}{devAddr.PadLeft(3, "0")}{NodeLoop.PadLeft(3, "0")}" If dic.ContainsKey(NodeLoop) Then Continue For ot = Dev.Value.Name ot = ot.Replace(vbLf, "").Replace(vbCr， "").Replace(":"， "").Replace("\"， "").Replace("/"， "").Replace("|"， "").Replace("'", "").Replace("'", "").Replace("`", "").Replace("?", "").Replace("!", "").Replace(" ", "") Dim datenode As New MDevNodeMessage(result.Count, NodeLoop, ot, NodeLoopname, DevNode.DEV_TYPE_DATA, rt) dic.Add(NodeLoop, datenode) result.Add(datenode) End If Next Exit For End If j = NCtabRange.lc Next Exit For End If i = ACtabRange.lc Next End If End If Next Next Return result End Function 'Public Sub Runing(_grd As FlexCell.Grid， _Devicemodel As Dictionary(Of String， DeviceModel), _ActionConfiguration As List(Of TableRowTag)) ' If IsNothing(_grd) Then Return ' Dim nodename As String = String.Empty ' Dim ACtabRange As CtabRange ' Dim NCtabRange As CtabRange ' Dim CdevMode As DeviceModel ' Dim CdevModeNode As DeviceChildNodeClass ' Dim AnotherName As String = String.Empty ' Dim Result As String = String.Empty ' Dim NodeLoop As String = String.Empty ' Dim NodeLoopname As String = String.Empty ' Dim scene As String = String.Empty ' For i As Integer = TableInteraction.TableColNumber.InsertColumn To _grd.Cols - 2 ' ACtabRange = New CtabRange(_grd, TableInteraction.TableRowNumber.DeviceName, i) ' '遍历设备 ' If Not String.IsNullOrEmpty(ACtabRange.devname) AndAlso _Devicemodel.ContainsKey(ACtabRange.devname) Then ' CdevMode = _Devicemodel.Item(ACtabRange.devname) ' Dim nMTableSet As New MTableSet(ACtabRange.devname) ' DevColList.Add(nMTableSet) ' '遍历设备节点 ' For j As Integer = ACtabRange.fc To ACtabRange.lc ' NCtabRange = New CtabRange(_grd, TableInteraction.TableRowNumber.FunctionName, j) ' CdevModeNode = Nothing ' For Each index In CdevMode.Nodes ' If index.Name.Equals(NCtabRange.devname) Then ' CdevModeNode = index ' Exit For ' End If ' Next ' If Not IsNothing(CdevModeNode) Then ' Result = CdevModeNode.DEV_TYPE_DATA.PadLeft(3, "0") ' Dim Mdnm As New MDevNodeMessage(CdevModeNode.Name, Result) ' nMTableSet.DevNode.Add(Mdnm) ' '遍历遍历设备节点下属回路 ' For k = NCtabRange.fc To NCtabRange.lc ' If _grd.Column(k).Visible = True Then ' Dim dic As New Dictionary(Of String, String) ' NodeLoop = _grd.Cell(TableInteraction.TableRowNumber.FunctionChildNodeID, k).Text ' NodeLoopname = _grd.Cell(TableInteraction.TableRowNumber.FunctionChildNodeAnother, k).Text ' If Mdnm.DevNodeDic.ContainsKey(NodeLoop) Then ' Continue For ' Else ' dic.Add("回路别名", NodeLoopname) ' Mdnm.DevNodeDic.Add(NodeLoop, dic) ' End If ' End If ' Next ' End If ' j = NCtabRange.lc ' Next ' End If ' i = ACtabRange.lc ' Next ' Dim rowtag As TableRowTag ' For i As Integer = TableInteraction.TableRowNumber.Max To _grd.Rows - 1 ' ACtabRange = New CtabRange(_grd, i, TableInteraction.TableColNumber.DeviceName) ' If ACtabRange.devname.Equals("HOSTSERVICE") Then ' ACtabRange.devname = _Devicemodel.Keys(0) ' End If ' If Not String.IsNullOrEmpty(ACtabRange.devname) AndAlso (_Devicemodel.ContainsKey(ACtabRange.devname)) Then ' CdevMode = _Devicemodel.Item(ACtabRange.devname) ' Dim nMTableSet As New MTableSet(ACtabRange.devname) ' DevRowList.Add(nMTableSet) ' '遍历设备 ' For j As Integer = ACtabRange.fr To ACtabRange.lr ' If j >= TableInteraction.TableRowNumber.Max AndAlso (i - TableInteraction.TableRowNumber.Max < _ActionConfiguration.Count) Then ' rowtag = _ActionConfiguration.Item(j - TableInteraction.TableRowNumber.Max) ' CdevModeNode = Nothing ' For Each index In CdevMode.Nodes ' If index.Name.Equals(rowtag.G_DevNodeName) Then ' CdevModeNode = index ' Exit For ' End If ' Next ' If Not IsNothing(CdevModeNode) Then ' Result = CdevModeNode.DEV_TYPE_DATA.PadLeft(3, "0") ' NodeLoop = _grd.Cell(j, TableInteraction.TableColNumber.KeyVal).Text ' Dim Tisbol As Boolean = True ' For Each Tindex In nMTableSet.DevNode ' If Tindex.DevNodeName.Equals(CdevModeNode.Name) AndAlso Tindex.DevNodeDic.ContainsKey(NodeLoop) Then ' Tisbol = False ' Continue For ' End If ' Next ' If Tisbol = False Then Continue For ' Dim Mdnm As New MDevNodeMessage(CdevModeNode.Name, Result) ' nMTableSet.DevNode.Add(Mdnm) ' '遍历遍历设备节点下属回路 ' If _grd.Row(j).Visible = True Then ' Dim dic As New Dictionary(Of String, String) ' NodeLoopname = _grd.Cell(j, TableInteraction.TableColNumber.KeyName).Text ' scene = _grd.Cell(j, TableInteraction.TableColNumber.SceneID).Text ' If Mdnm.DevNodeDic.ContainsKey(NodeLoop) Then ' Continue For ' Else ' dic.Add("回路别名", NodeLoopname) ' dic.Add("场景号", scene) ' Mdnm.DevNodeDic.Add(NodeLoop, dic) ' End If ' End If ' End If ' End If ' Next ' End If ' i = ACtabRange.lr ' Next 'End Sub 'Public Sub Runing(_grd As FlexCell.Grid， _Devicemodel As Dictionary(Of String， DeviceModel), _ActionConfiguration As List(Of TableRowTag)) ' If IsNothing(_grd) Then Return ' Dim ACtabRange As CtabRange ' Dim NCtabRange As CtabRange ' Dim NodeLoopname As String ' Dim NodeLoop As String = String.Empty ' For Each Dev In _Devicemodel '遍历设备 ' Dim nMTableSet As New MTableSet(Dev.Key) ' DevColList.Add(nMTableSet) ' For Each DevNode In Dev.Value.Nodes '遍历设备下属子节点 ' If DevNode.Interface.Equals("DO") Then '判断是否为输出设备 ' If DevNode.DEV_TYPE_DATA.Equals("4") Then '服务设备节点特殊处理 ' For ri As Integer = TableInteraction.TableRowNumber.Max To _grd.Rows - 1 ' 遍历每行找到服务起始行 ' ACtabRange = New CtabRange(_grd, ri, TableInteraction.TableColNumber.DeviceName) ' If ACtabRange.devname.Equals("HOSTSERVICE") Then '找到服务集合 ' Dim devAddr As String = GetActionDeviceAddr(Dev.Value, DevNode.Name).ToString ' Dim devnodename As String = TableInteraction.GetAnotherName(DevNode.Name) ' Dim MDevNode As New MDevNodeMessage(devAddr, devnodename, DevNode.DEV_TYPE_DATA) ' nMTableSet.DevNode.Add(MDevNode) ' For cj As Integer = ACtabRange.fr To ACtabRange.lr '遍历服务集合 ' NodeLoopname = _grd.Cell(cj, TableInteraction.TableColNumber.KeyName).Text ' NodeLoop = _grd.Cell(cj, TableInteraction.TableColNumber.KeyVal).Text ' If MDevNode.DevNodeDic.ContainsKey(NodeLoop) Then ' Continue For ' Else ' Dim dic As New Dictionary(Of String, String) ' dic.Add("回路别名", NodeLoopname) ' dic.Add("回路地址", NodeLoop) ' MDevNode.DevNodeDic.Add(NodeLoop, dic) ' End If ' Next ' Exit For '完成遍历退出服务输出的处理 ' End If ' Next ' Else '正常输出节点 ' For i As Integer = TableInteraction.TableColNumber.InsertColumn To _grd.Cols - 2 ' ACtabRange = New CtabRange(_grd, TableInteraction.TableRowNumber.DeviceName, i) ' If ACtabRange.devname.Equals(Dev.Key) Then '在表格找到对应设备 ' For j As Integer = ACtabRange.fc To ACtabRange.lc '遍历设备下属节点集合 ' NCtabRange = New CtabRange(_grd, TableInteraction.TableRowNumber.FunctionName, j) ' If DevNode.Name.Equals(NCtabRange.devname) Then '找到当前设备的当前节点 ' Dim devAddr As String = GetActionDeviceAddr(Dev.Value, DevNode.Name).ToString ' Dim devnodename As String = TableInteraction.GetAnotherName(DevNode.Name) ' Dim MDevNode As New MDevNodeMessage(devAddr, devnodename, DevNode.DEV_TYPE_DATA) ' nMTableSet.DevNode.Add(MDevNode) ' For k = NCtabRange.fc To NCtabRange.lc '遍历当前节点下属回路集合 ' NodeLoopname = String.Empty ' If _grd.Column(k).Visible = True Then '过滤隐藏的回路 ' NodeLoopname = _grd.Cell(TableInteraction.TableRowNumber.FunctionChildNodeAnother, k).Text ' NodeLoop = _grd.Cell(TableInteraction.TableRowNumber.FunctionChildNodeID, k).Text ' Dim dic As New Dictionary(Of String, String) ' dic.Add("回路别名", NodeLoopname) ' dic.Add("回路地址", NodeLoop) ' MDevNode.DevNodeDic.Add(NodeLoop, dic) ' End If ' Next ' Exit For ' End If ' j = NCtabRange.lc ' Next ' Exit For ' End If ' i = ACtabRange.lc ' Next ' End If ' End If ' Next ' Next 'End Sub Private Function GetActionDeviceAddr(Dev As DeviceModel, DevNodeName As String) As Integer For Each index In Dev.Config If index.Name.Equals($"{DevNodeName }设备组信息") Then For Each node In index.Attributes If node.Name.Equals("DeviceAddr") Then Return CInt(node.DataDefault) End If Next End If If index.Name.Equals($"设备存在") Then For Each node In index.Attributes If node.Name.Equals("拨码地址") Then Return CInt(node.Value) End If Next End If Next Return -1 End Function #End Region End Class Public Class MTableSet Public Sub New(name As String) DevNode = New List(Of MDevNodeMessage) DevName = name End Sub ' 设备名 Public DevName As String ' 设备下所有输出节点 Public DevNode As List(Of MDevNodeMessage) End Class Public Class MDevNodeMessage Public Sub New(addr As String, NodeName As String, NodeType As String) End Sub Public Sub New(yid As Integer, Ma As String, ol As String, Nm As String, Ty As String, RTy As RoomTypeConfig) ID = yid ModalAddress = Ma outlet = ol Name = Nm Type = Ty RoomType = RTy End Sub '序号 Dim ID As Integer ' 设备地址 Public ModalAddress As String '设备输出节点名 Public outlet As String '设备输出节点类型 Public Name As String '设备输出节点下所有回路和相关信息 Public Type As String Public RoomType As RoomTypeConfig End Class Public Class RoomTypeConfig Sub New(tID As String) ID = tID End Sub Public ID As String End Class