EgtDOORCreator/Utility.vb

Imports System.Collections.ObjectModel
Imports System.Globalization
Imports EgtUILib
Imports System.Text.RegularExpressions
Imports System.IO

Public Module Utility
   Public Function SearchFileConfig(ByRef FrameCompoFile As String, ByRef FrameCompoFileConfig As String) As Boolean
      Dim bFileConfig As Boolean = False
      FrameCompoFile = IniFile.m_CompoDir & "\" & FrameCompoFile
      FrameCompoFileConfig = FrameCompoFile
      If Not File.Exists(FrameCompoFileConfig) Then
         FrameCompoFileConfig = FrameCompoFileConfig & ".lua"
      End If
      If File.Exists(FrameCompoFileConfig) Then
         FrameCompoFileConfig = FrameCompoFileConfig.Remove(FrameCompoFileConfig.LastIndexOf("\"))
         While Not bFileConfig And Not FrameCompoFileConfig.Count < 2
            Dim CurrDirectory() As String = Directory.GetFiles(FrameCompoFileConfig)
            Dim Index As Integer = 0
            FrameCompoFileConfig &= "\" & ConstCompo.CONFIGINI_FILE_NAME
            For Index = 0 To CurrDirectory.Count - 1
               If CurrDirectory(Index) = FrameCompoFileConfig Then
                  bFileConfig = True
                  Exit While
               End If
            Next
            FrameCompoFileConfig = FrameCompoFileConfig.Remove(FrameCompoFileConfig.LastIndexOf("\"))
            FrameCompoFileConfig = FrameCompoFileConfig.Remove(FrameCompoFileConfig.LastIndexOf("\"))
         End While
      End If
      Return bFileConfig
   End Function

   ' aggiuge un asterisco al nome dell'assemblato da stampare nel bottone
   Public Function SetNameCurrAssemblyAsNew(ByVal value As String) As String
      If Not IsNothing(value) Then
         If Not value.Contains("*") Then
            If value.EndsWith(".ddf") Then
               value = value.Insert(value.Count - 4, "*")
            End If
         End If
      End If
      Return value
   End Function

   ' elimina l'asterisco dal nome dell'assemblato
   Public Function SetNameCurrAssemblyAsSaved(ByVal value As String) As String
      If Not IsNothing(value) Then
         If value.Contains("*") Then
            value = value.Remove(value.IndexOf("*"))
            value &= DDF_EXTENSION
         End If
      End If
      Return value
   End Function

   Friend Function StringToChar(ByVal sValue As String) As Char()
      Dim cValue(sValue.Count) As Char
      For Index As Integer = 0 To sValue.Count - 1
         cValue(Index) = sValue(Index)
      Next
      Return cValue
   End Function

   Friend Function CharToString(ByVal cValue() As Char, ByVal sValue As String) As String
      sValue = String.Empty
      For Index As Integer = 0 To cValue.Count - 1
         sValue &= cValue(Index)
      Next
      Return sValue
   End Function

   Friend Function DoubleToString(ByVal dVal As Double, ByVal nNumDec As Integer) As String
      Dim sFormat As String = ConstGen.PART_FRAME + Math.Abs(nNumDec).ToString()
      Dim sVal As String = dVal.ToString(sFormat, CultureInfo.InvariantCulture)
      If nNumDec > 0 Then
         Return sVal.TrimEnd("0".ToCharArray()).TrimEnd(".".ToCharArray)
      Else
         Return sVal
      End If
   End Function

   Friend Function StringToDouble(ByVal sVal As String, ByRef dVal As Double) As Boolean
      Return EgtLuaEvalNumExpr(sVal, dVal)
   End Function

   Friend Function LenToString(ByVal dVal As Double, ByVal nNumDec As Integer) As String
      Return DoubleToString(EgtToUiUnits(dVal), nNumDec)
   End Function

   Friend Function StringToLen(ByVal sVal As String, ByRef dVal As Double) As Boolean
      If EgtLuaEvalNumExpr(sVal, dVal) Then
         dVal = EgtFromUiUnits(dVal)
         Return True
      Else
         Return False
      End If
   End Function

   ' salto gli spazi vuoti fino alla prima riga piena
   Friend Function SkipWhiteSpace(Array() As String, ByRef Index As Integer) As Integer
      While Index < Array.Count
         Dim sTmp As String = RemoveComment(Array(Index))
         If Not String.IsNullOrWhiteSpace(sTmp) Then Exit While
         Index += 1
      End While
      Return Index
   End Function

#Region "PARAM LUA"

   ' elimina i commenti nel file lua
   Friend Function DeleteLuaComment(sLine As String) As String
      sLine = Trim(sLine)
      If sLine.Contains("--") Then
         If sLine.StartsWith("--") Then Return String.Empty
         sLine = Regex.Match(sLine, "\s*(.*?)\s*\--\s*\.*").Groups(1).Value
         Return sLine
      Else
         Return sLine
      End If
   End Function

   ' controllo che il valore in lettura sia una misura
   Friend Function GetMeasure(sValue As String) As String
      Dim dVal As Double = 0.0
      If sValue.Contains("(") And sValue.Contains(")") Then
         sValue = Regex.Match(sValue, "\s*\((.*?)\s*\)\s*\.*").Groups(1).Value
         If String.IsNullOrEmpty(sValue) Then Return "0.0000"
         ' ricevo un valore in inches 
         Select Case OptionModule.m_SelectedMeasureUnit
            Case ConstGen.VAL_INCHES    ' se la configurazione è inches non faccio conversioni
               If StringToDouble(sValue, dVal) Then
                  Return sValue
               Else
                  Return "0.0000"
               End If
            Case ConstGen.MM      ' se la configurazione è in mm faccio la conevrsione 
               If InchesToMm(sValue) Then
                  Return sValue
               Else
                  Return "0.0000"
               End If
         End Select
      End If
      ' il valore che ricevo è in mm
      Select Case OptionModule.m_SelectedMeasureUnit
         Case ConstGen.VAL_INCHES    ' se la configurazione è inches faccio conversione
            If MmToInches(sValue) Then
               Return sValue
            Else
               Return "0.0000"
            End If
         Case ConstGen.MM      ' se la configurazione è in mm non faccio la conevrsione 
            If StringToDouble(sValue, dVal) Then
               Return sValue
            Else
               Return "0.0000"
            End If
      End Select
      ' se non è nessuno dei casi restituisco zero
      Return "0.0000"
   End Function

   Friend Function InchesToMm(ByRef sMeasure As String) As Boolean
      Dim dVal As Double = 0.0
      If Not StringToDouble(sMeasure, dVal) Then Return False
      dVal = dVal * 25.4
      sMeasure = DoubleToString(dVal, 4)
      Return True
   End Function

   Friend Function MmToInches(ByRef sMeasure As String) As Boolean
      Dim dVal As Double = 0.0
      If Not StringToDouble(sMeasure, dVal) Then Return False
      dVal = dVal / 25.4
      sMeasure = DoubleToString(dVal, 4)
      Return True
   End Function

   Friend Function ConvertCheckBox(sValue As String) As Boolean
      If Trim(sValue.ToLower) = "true" Then Return True Else Return False
   End Function

   ' elimina gli apici di una variabile
   Friend Function DeleteSuperScript(sLine As String) As String
      Return sLine.Replace("'"c, " "c)
   End Function

   Friend Function FindNameParam(sLine As String) As String
      sLine = RegexFunction.GetNameParamInFileTempl(sLine)
      If String.IsNullOrEmpty(sLine) Then Return String.Empty
      Return sLine
   End Function

#End Region    ' Param lua

   ' Converte il valore Boolean in una stringa ON/OFF (attributo machining)
   Friend Function ConvertBooleanToOnOff(bValue As Boolean) As String
      Return If(bValue, DDF_ON, DDF_OFF)
   End Function

   ' converto una stringa in boolean 
   Friend Function ConvertOnOffToBoolean(sItem As String) As Boolean
      Return (sItem = DDF_ON)
   End Function

   Friend Function ConvertMmUnitsToString(bMmUnit As Boolean) As String
      Return If(bMmUnit, ConstGen.MM, ConstGen.VAL_INCHES.ToLower)
   End Function

   Friend Function ConvertStringToMmUnits(sUnit As String) As Boolean
      If Trim(sUnit) = ConstGen.MM Then
         Return True
      ElseIf Trim(sUnit) = ConstGen.VAL_INCHES Then
         Return False
      Else
         Return OptionModule.m_bIsMmUnit
      End If
   End Function

   Friend Sub UpdateUI()
      ' Costringo ad aggiornare UI
      Dim nDummy As Integer
      Application.Current.Dispatcher.Invoke(Windows.Threading.DispatcherPriority.Background, _
                                             New Action(Function() nDummy = 0))
   End Sub

   Friend Function ConcatErrorString(sErrorList As String, sNewErr As String) As String
      If String.IsNullOrEmpty(sErrorList) Then Return sNewErr
      Return sErrorList & vbCrLf & sNewErr
   End Function

   Friend Sub ClearObservableCollection(Of T)(Ob As ObservableCollection(Of T))
      For Index = Ob.Count - 1 To 0 Step -1
         Ob.RemoveAt(Index)
      Next
   End Sub

   Friend Sub GetDirectoryCompoFiles(DirectoryPath As String, ByRef FileList As ObservableCollection(Of String), bRemoveNge As Boolean)
      RecursiveGetDirectoryCompoFiles(DirectoryPath, DirectoryPath, FileList, bRemoveNge)
   End Sub

   Friend Sub GetDirectoryCompoModel(HardwareDirPath As String, FolderList As ObservableCollection(Of CompoBrandDir), Optional FrameFolderList As ObservableCollection(Of CompoBrandDir) = Nothing, Optional HardwareFolderList As ObservableCollection(Of CompoBrandDir) = Nothing)
      'FrameFolderList = New ObservableCollection(Of CompoBrandDir)
      Dim BaseDirName As String = Path.GetFileName(HardwareDirPath)
      Dim FolderArray() As String = Directory.GetDirectories(HardwareDirPath)
      Dim CurrFolder As CompoBrandDir = Nothing
      For Each Folder In FolderArray
         Folder = Folder.Replace("/", "\")
         CurrFolder = New CompoBrandDir(Folder, BaseDirName)
         GetDirectoryCompoFiles(Folder, CurrFolder.ModelFileList, False)
         If CurrFolder.ModelFileList.Count > 0 Then
            If Folder.ToLower.Contains(FRAME_FOLDER) Then
               FrameFolderList.Add(CurrFolder)
            Else
               FolderList.Add(CurrFolder)
            End If
         End If
         CurrFolder = New CompoBrandDir(Folder, BaseDirName)
         If Not Folder.ToLower.Contains(FRAME_FOLDER) Then
            HardwareFolderList.Add(CurrFolder)
         End If
         GetDirectoryCompoFiles(Folder, CurrFolder.ModelFileList, True)
      Next
      Dim FileArray() As String = Directory.GetFiles(HardwareDirPath)
      CurrFolder = Nothing
      Dim CurrFrameFolder As CompoBrandDir = Nothing
      Dim CurrHardwareFolder As CompoBrandDir = Nothing
      For Each File In FileArray
         File = File.Replace("/", "\")
         If Not Path.GetExtension(File) = INI_EXTENSION And Not Path.GetExtension(File) = TEMPL_EXTENSION And
            (Path.GetExtension(File) = LUA_EXTENSION Or Path.GetExtension(File) = NGE_EXTENSION) And
            Not File.Contains(MATCHING_FILE_NAME) And Not File.ToLower().Contains("currhardware") Then
            If File.Contains(FRAME_FOLDER) Then
               If IsNothing(CurrFrameFolder) Then
                  CurrFrameFolder = New CompoBrandDir(Path.GetFileName(HardwareDirPath), BaseDirName & FRAME_FOLDER)
                  FrameFolderList.Add(CurrFrameFolder)
               End If
               CurrFrameFolder.ModelFileList.Add(If(Path.GetExtension(File) = NGE_EXTENSION, Path.GetFileName(File), Path.GetFileNameWithoutExtension(File)))
            Else
               If IsNothing(CurrFolder) Then
                  CurrFolder = New CompoBrandDir(Path.GetFileName(HardwareDirPath), BaseDirName)
                  FolderList.Add(CurrFolder)
               End If
               CurrFolder.ModelFileList.Add(If(Path.GetExtension(File) = NGE_EXTENSION, Path.GetFileName(File), Path.GetFileNameWithoutExtension(File)))
               If Not File.Contains(NGE_EXTENSION) Then
                  If IsNothing(CurrHardwareFolder) Then
                     CurrHardwareFolder = New CompoBrandDir(Path.GetFileName(HardwareDirPath), BaseDirName)
                     HardwareFolderList.Add(CurrHardwareFolder)
                  End If
                  CurrHardwareFolder.ModelFileList.Add(If(Path.GetExtension(File) = NGE_EXTENSION, Path.GetFileName(File), Path.GetFileNameWithoutExtension(File)))
               End If
            End If
         End If
      Next
   End Sub

   Private Sub RecursiveGetDirectoryCompoFiles(DirectoryPath As String, BaseDirectory As String, ByRef FileList As ObservableCollection(Of String), bRemoveNge As Boolean)
      Dim SubDir() As String = Directory.GetDirectories(DirectoryPath)
      For Index = 0 To SubDir.Count - 1
         RecursiveGetDirectoryCompoFiles(SubDir(Index), BaseDirectory, FileList, bRemoveNge)
      Next
      Dim Files() As String = Directory.GetFiles(DirectoryPath)
      For Index = 0 To Files.Count - 1
         Dim FileExt As String = Path.GetExtension(Files(Index).ToLower())
         ' Se file lua o disegni nge
         If (FileExt = LUA_EXTENSION And Not Files(Index).ToLower().Contains("currhardware")) Or
            (FileExt = NGE_EXTENSION And Not bRemoveNge) Then
            ' Elimino il direttorio base dei componenti
            Dim sFile As String = Files(Index).Replace(BaseDirectory & "\", "")
            ' Elimino estensione lua
            If FileExt = LUA_EXTENSION Then sFile = Path.ChangeExtension(sFile, Nothing)
            ' Inserisco in lista
            FileList.Add(sFile)
         End If
      Next
   End Sub

End Module

Public Class CompoBrandDir

   Private m_ModelDirGraphic As String
   Public ReadOnly Property ModelDirGraphic As String
      Get
         Return m_ModelDirGraphic
      End Get
   End Property

   Private m_ModelDir As String
   Public Property ModelDir As String
      Get
         Return m_ModelDir
      End Get
      Set(value As String)
         m_ModelDir = value
      End Set
   End Property

   Private m_ModelFileList As New ObservableCollection(Of String)
   Public Property ModelFileList As ObservableCollection(Of String)
      Get
         Return m_ModelFileList
      End Get
      Set(value As ObservableCollection(Of String))
         m_ModelFileList = value
      End Set
   End Property

   Sub New(Model As String, BaseDirName As String)
      m_ModelDir = Model
      m_ModelDirGraphic = RegexFunction.SubStractDirFromPath(Model, BaseDirName)
   End Sub

End Class