MS

GUIs.ZooFlow/ClassInit.vb

@@ -275,6 +275,32 @@ Public Class ClassInit
                 For Each oLine In oLines
                     _Logger.Debug(oLine.Trim)
                 Next
+            Case "WORKING_MODE"
+                Dim oLines = oValue.ToString.Split("|"c)
+                _Logger.Debug("WORKING_MODEs for Module {0}", ModuleName)
+                For Each oLine In oLines
+                    _Logger.Debug(oLine.Trim)
+                    If oLine = "NO_BASICCONF" Then
+                        NOBASIC_CONF = True
+                    ElseIf oLine.StartsWith("SEARCH_STRING_ATTRID") Then
+                        Try
+                            Dim oResult = oLine.Replace("SEARCH_STRING_ATTRID=", "")
+                            SEARCH_STRING_ATTRID = oResult
+                        Catch ex As Exception
+                            SEARCH_STRING_ATTRID = ""
+                        End Try
+                    ElseIf oLine.StartsWith("SEARCH_INT_ATTRID") Then
+                        Try
+                            Dim oResult = oLine.Replace("SEARCH_INT_ATTRID=", "")
+                            SEARCH_INTEGER_ATTRID = oResult
+                        Catch ex As Exception
+                            SEARCH_INTEGER_ATTRID = ""
+                        End Try
+
+                    Else
+                        _Logger.Info($"Wrong WorkingMode: {oLine}")
+                    End If
+                Next
         End Select
     End Sub
 End Class