NicolaP
303 lines
13 KiB
VB.net
303 lines
13 KiB
VB.net
Imports EgtUILib
|
|
Imports System.IO
|
|
|
|
Friend Module CSVFile
|
|
|
|
Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
|
|
|
|
'-----------------------------------------------------------------------------------------------
|
|
Friend Class CsvPart
|
|
Public m_sPath As String = String.Empty
|
|
Public m_sName As String = String.Empty
|
|
Public m_sOrd As String = String.Empty
|
|
Public m_sDist As String = String.Empty
|
|
Public m_sMaterial As String = String.Empty
|
|
Public m_bActive As Boolean = True
|
|
Public m_nCount As Integer = 0
|
|
Public m_nAdd As Integer = 0
|
|
Public m_nToNest As Integer = 0
|
|
Public m_bIsRect As Boolean = True
|
|
Public m_dDimX As Double = 0
|
|
Public m_dDimY As Double = 0
|
|
Public m_dTh As Double = 0
|
|
Public m_dAng1 As Double = 0
|
|
Public m_dHeel1 As Double = 0
|
|
Public m_dAng2 As Double = 0
|
|
Public m_dHeel2 As Double = 0
|
|
Public m_dAng3 As Double = 0
|
|
Public m_dHeel3 As Double = 0
|
|
Public m_dAng4 As Double = 0
|
|
Public m_dHeel4 As Double = 0
|
|
Public m_nOriInd As Integer = 0
|
|
Public m_nId As Integer = GDB_ID.NULL
|
|
' definsco il riferimento al gruppo
|
|
Public m_sRefGuid As String = System.Guid.NewGuid.ToString
|
|
' definisco il colore del gruppo che sto inserendo
|
|
Public m_cColor As Color3d = CompoColor(m_MainWindow.GetIniFile())
|
|
End Class
|
|
|
|
'-----------------------------------------------------------------------------------------------
|
|
Friend Function ReadCsvFile(sFile As String, bFull As Boolean, ByRef sCsvPath As String, ByRef CsvPartList As List(Of CsvPart)) As Boolean
|
|
' Definizione variabili
|
|
EgtLuaCreateGlobTable("CSV")
|
|
EgtLuaSetGlobStringVar("CSV.FILE", sFile)
|
|
' Path script da eseguire
|
|
Dim sReader As String = String.Empty
|
|
GetPrivateProfileString(S_CSV, K_READER, "CsvRead.lua", sReader, m_MainWindow.GetIniFile())
|
|
Dim sLuaScript As String = m_MainWindow.GetCsvAutoDir() & If(bFull, "\" & sReader, "\CsvSimplRead.lua")
|
|
' Esecuzione
|
|
Dim nErr As Integer = 999
|
|
If EgtLuaExecFile(sLuaScript) AndAlso
|
|
EgtLuaCallFunction("CSV.Read") Then
|
|
' Verifica stato di errore
|
|
EgtLuaGetGlobIntVar("CSV.ERR", nErr)
|
|
End If
|
|
If nErr <> 0 Then
|
|
EgtOutLog("Error in CsvRead : " & nErr.ToString())
|
|
Return False
|
|
End If
|
|
' Assegno path
|
|
sCsvPath = sFile
|
|
' Preparo lista dei pezzi
|
|
Dim nNbr As Integer = 0
|
|
EgtLuaGetGlobIntVar("CSV.NBR", nNbr)
|
|
For i As Integer = 1 To nNbr
|
|
Dim OnePart As New CsvPart
|
|
Dim sN As String = i.ToString()
|
|
OnePart.m_sPath = sFile
|
|
EgtLuaGetGlobStringVar("CSV.NAME" & sN, OnePart.m_sName)
|
|
OnePart.m_bActive = True
|
|
EgtLuaGetGlobStringVar("CSV.ORD" & sN, OnePart.m_sOrd)
|
|
EgtLuaGetGlobStringVar("CSV.DIST" & sN, OnePart.m_sDist)
|
|
EgtLuaGetGlobStringVar("CSV.MAT" & sN, OnePart.m_sMaterial)
|
|
EgtLuaGetGlobIntVar("CSV.COUNT" & sN, OnePart.m_nCount)
|
|
OnePart.m_nToNest = OnePart.m_nCount
|
|
EgtLuaGetGlobBoolVar("CSV.RECT" & sN, OnePart.m_bIsRect)
|
|
EgtLuaGetGlobNumVar("CSV.DIMX" & sN, OnePart.m_dDimX)
|
|
EgtLuaGetGlobNumVar("CSV.DIMY" & sN, OnePart.m_dDimY)
|
|
EgtLuaGetGlobNumVar("CSV.TH" & sN, OnePart.m_dTh)
|
|
EgtLuaGetGlobNumVar("CSV.A1_" & sN, OnePart.m_dAng1)
|
|
EgtLuaGetGlobNumVar("CSV.H1_" & sN, OnePart.m_dHeel1)
|
|
EgtLuaGetGlobNumVar("CSV.A2_" & sN, OnePart.m_dAng2)
|
|
EgtLuaGetGlobNumVar("CSV.H2_" & sN, OnePart.m_dHeel2)
|
|
EgtLuaGetGlobNumVar("CSV.A3_" & sN, OnePart.m_dAng3)
|
|
EgtLuaGetGlobNumVar("CSV.H3_" & sN, OnePart.m_dHeel3)
|
|
EgtLuaGetGlobNumVar("CSV.A4_" & sN, OnePart.m_dAng4)
|
|
EgtLuaGetGlobNumVar("CSV.H4_" & sN, OnePart.m_dHeel4)
|
|
OnePart.m_nOriInd = i
|
|
If OnePart.m_nCount > 1 Then
|
|
OnePart.m_sRefGuid = System.Guid.NewGuid.ToString
|
|
End If
|
|
' inserisco in lista
|
|
CsvPartList.Add(OnePart)
|
|
Next
|
|
EgtLuaResetGlobVar("CSV")
|
|
' Ordinamento lista dei pezzi (ordine crescente su materiale e spessore)
|
|
CsvPartList.Sort(Function(x, y)
|
|
Dim nComp As Integer = String.Compare(x.m_sMaterial, y.m_sMaterial, True)
|
|
If nComp = 0 Then
|
|
If Math.Abs(x.m_dTh - y.m_dTh) < EPS_SMALL Then
|
|
Return (x.m_nOriInd - y.m_nOriInd)
|
|
Else
|
|
Return CInt(Math.Ceiling(x.m_dTh - y.m_dTh))
|
|
End If
|
|
Else
|
|
Return nComp
|
|
End If
|
|
End Function)
|
|
Return True
|
|
End Function
|
|
|
|
Friend Function ReadCsvPartList(sFile As String, ByRef sCsvPath As String, ByRef CsvPartList As List(Of CsvPart)) As Boolean
|
|
' Gestione file
|
|
Try
|
|
' Apro file
|
|
Dim Reader As New IO.StreamReader(sFile, False)
|
|
' Lettura intestazione
|
|
Dim sLine As String = Reader.ReadLine()
|
|
While sLine <> Nothing
|
|
If sLine = "[General]" Then
|
|
' non devo fare alcunché
|
|
ElseIf sLine.Length() >= 5 AndAlso sLine.Substring(0, 5) = "Path=" Then
|
|
Dim sItems() As String = sLine.Split("=".ToCharArray)
|
|
If sItems.Count() >= 2 Then
|
|
sCsvPath = sItems(1)
|
|
End If
|
|
Else
|
|
Exit While
|
|
End If
|
|
sLine = Reader.ReadLine()
|
|
End While
|
|
' Ciclo di lettura dei pezzi
|
|
Dim nI As Integer = 1
|
|
Dim sPart As String = "[P" & nI.ToString() & "]"
|
|
Dim OnePart As New CsvPart
|
|
While sLine <> Nothing
|
|
' Inizio pezzo o fine del file
|
|
If sLine = sPart Or sLine = "[END]" Then
|
|
' se esiste pezzo precedente, lo salvo
|
|
If nI > 1 Then
|
|
' inserisco in lista
|
|
CsvPartList.Add(OnePart)
|
|
End If
|
|
' predisposizioni per prossimo pezzo
|
|
nI += 1
|
|
sPart = "[P" & nI.ToString() & "]"
|
|
OnePart = New CsvPart
|
|
' Dato
|
|
Else
|
|
Dim sItems() As String = sLine.Split("=".ToCharArray)
|
|
If sItems.Count() >= 2 Then
|
|
If sItems(0) = "Path" Then
|
|
OnePart.m_sPath = sItems(1)
|
|
ElseIf sItems(0) = "Nam" Then
|
|
OnePart.m_sName = sItems(1)
|
|
ElseIf sItems(0) = "Ord" Then
|
|
OnePart.m_sOrd = sItems(1)
|
|
ElseIf sItems(0) = "Dist" Then
|
|
OnePart.m_sDist = sItems(1)
|
|
ElseIf sItems(0) = "Mat" Then
|
|
OnePart.m_sMaterial = sItems(1)
|
|
ElseIf sItems(0) = "Act" Then
|
|
OnePart.m_bActive = If(sItems(1) = "0", False, True)
|
|
ElseIf sItems(0) = "Cnt" Then
|
|
StringToInt(sItems(1), OnePart.m_nCount)
|
|
ElseIf sItems(0) = "Add" Then
|
|
StringToInt(sItems(1), OnePart.m_nAdd)
|
|
ElseIf sItems(0) = "ToN" Then
|
|
StringToInt(sItems(1), OnePart.m_nToNest)
|
|
ElseIf sItems(0) = "Rct" Then
|
|
OnePart.m_bIsRect = If(sItems(1) = "0", False, True)
|
|
ElseIf sItems(0) = "DX" Then
|
|
StringToDouble(sItems(1), OnePart.m_dDimX)
|
|
ElseIf sItems(0) = "DY" Then
|
|
StringToDouble(sItems(1), OnePart.m_dDimY)
|
|
ElseIf sItems(0) = "Th" Then
|
|
StringToDouble(sItems(1), OnePart.m_dTh)
|
|
ElseIf sItems(0) = "A1" Then
|
|
StringToDouble(sItems(1), OnePart.m_dAng1)
|
|
ElseIf sItems(0) = "H1" Then
|
|
StringToDouble(sItems(1), OnePart.m_dHeel1)
|
|
ElseIf sItems(0) = "A2" Then
|
|
StringToDouble(sItems(1), OnePart.m_dAng2)
|
|
ElseIf sItems(0) = "H2" Then
|
|
StringToDouble(sItems(1), OnePart.m_dHeel2)
|
|
ElseIf sItems(0) = "A3" Then
|
|
StringToDouble(sItems(1), OnePart.m_dAng3)
|
|
ElseIf sItems(0) = "H3" Then
|
|
StringToDouble(sItems(1), OnePart.m_dHeel3)
|
|
ElseIf sItems(0) = "A4" Then
|
|
StringToDouble(sItems(1), OnePart.m_dAng4)
|
|
ElseIf sItems(0) = "H4" Then
|
|
StringToDouble(sItems(1), OnePart.m_dHeel4)
|
|
ElseIf sItems(0) = "OIn" Then
|
|
StringToInt(sItems(1), OnePart.m_nOriInd)
|
|
ElseIf sItems(0) = "Guid" Then
|
|
OnePart.m_sRefGuid = sItems(1).Trim
|
|
End If
|
|
End If
|
|
End If
|
|
sLine = Reader.ReadLine()
|
|
End While
|
|
' Chiudo il file
|
|
Reader.Close()
|
|
Return True
|
|
' Errore
|
|
Catch ex As Exception
|
|
EgtOutLog("Error reading " & sFile)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Friend Function WriteCsvPartList(sFile As String, sCsvPath As String, CsvPartList As List(Of CsvPart)) As Boolean
|
|
' Gestione file
|
|
Try
|
|
' Apro file
|
|
Dim Writer As New IO.StreamWriter(sFile, False)
|
|
' Intestazione
|
|
Writer.WriteLine("[General]")
|
|
Writer.WriteLine("Path=" & sCsvPath)
|
|
' Ciclo sui pezzi
|
|
For i As Integer = 1 To CsvPartList.Count()
|
|
Dim CurrPart As CsvPart = CsvPartList(i - 1)
|
|
Writer.WriteLine("[P" & i.ToString() & "]")
|
|
Writer.WriteLine("Path=" & CurrPart.m_sPath)
|
|
Writer.WriteLine("Nam=" & CurrPart.m_sName)
|
|
Writer.WriteLine("Ord=" & CurrPart.m_sOrd)
|
|
Writer.WriteLine("Dist=" & CurrPart.m_sDist)
|
|
Writer.WriteLine("Mat=" & CurrPart.m_sMaterial)
|
|
Writer.WriteLine("Act=" & If(CurrPart.m_bActive, "1", "0"))
|
|
Writer.WriteLine("Cnt=" & CurrPart.m_nCount.ToString())
|
|
Writer.WriteLine("Add=" & CurrPart.m_nAdd.ToString())
|
|
Writer.WriteLine("ToN=" & CurrPart.m_nToNest.ToString())
|
|
Writer.WriteLine("Rct=" & If(CurrPart.m_bIsRect, "1", "0"))
|
|
Writer.WriteLine("DX=" & DoubleToString(CurrPart.m_dDimX, 4))
|
|
Writer.WriteLine("DY=" & DoubleToString(CurrPart.m_dDimY, 4))
|
|
Writer.WriteLine("Th=" & DoubleToString(CurrPart.m_dTh, 4))
|
|
Writer.WriteLine("A1=" & DoubleToString(CurrPart.m_dAng1, 4))
|
|
Writer.WriteLine("H1=" & DoubleToString(CurrPart.m_dHeel1, 4))
|
|
Writer.WriteLine("A2=" & DoubleToString(CurrPart.m_dAng2, 4))
|
|
Writer.WriteLine("H2=" & DoubleToString(CurrPart.m_dHeel2, 4))
|
|
Writer.WriteLine("A3=" & DoubleToString(CurrPart.m_dAng3, 4))
|
|
Writer.WriteLine("H3=" & DoubleToString(CurrPart.m_dHeel3, 4))
|
|
Writer.WriteLine("A4=" & DoubleToString(CurrPart.m_dAng4, 4))
|
|
Writer.WriteLine("H4=" & DoubleToString(CurrPart.m_dHeel4, 4))
|
|
Writer.WriteLine("OIn=" & CurrPart.m_nOriInd.ToString())
|
|
Writer.WriteLine("Guid=" & CurrPart.m_sRefGuid)
|
|
Next
|
|
' Terminatore
|
|
Writer.WriteLine("[END]")
|
|
' Chiudo file
|
|
Writer.Close()
|
|
Return True
|
|
' Errore
|
|
Catch ex As Exception
|
|
EgtOutLog("CSV List error writing " & sFile)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
' dato l'elenco completo dei file salvo ogni singolo epl
|
|
Friend Function WriteCsvMergePartList(CsvPartList As List(Of CsvPart)) As Boolean
|
|
Dim bOk As Boolean = True
|
|
Dim LocalPartList As New List(Of CsvPart)
|
|
Dim Index As Integer = 0
|
|
' devo dividere la lista in tante parti quanti sono i file che lo costituiscono
|
|
While Index < CsvPartList.Count
|
|
Dim CurrFile As String = CsvPartList(Index).m_sPath
|
|
Dim sFile As String = Path.ChangeExtension(CurrFile, ".epl")
|
|
LocalPartList.Clear()
|
|
While CurrFile = CsvPartList(Index).m_sPath
|
|
LocalPartList.Add(CsvPartList(Index))
|
|
Index += 1
|
|
' se terminata la lista
|
|
If Index = CsvPartList.Count Then
|
|
Exit While
|
|
End If
|
|
End While
|
|
' salvo l'elenco corrente
|
|
bOk = WriteCsvPartList(sFile, CurrFile, LocalPartList) And bOk
|
|
End While
|
|
Return bOk
|
|
End Function
|
|
|
|
Friend Function RemoveNotToNestParts(ByRef CsvPartList As List(Of CsvPart)) As Boolean
|
|
For i As Integer = CsvPartList.Count() - 1 To 0 Step -1
|
|
If CsvPartList(i).m_nToNest = 0 Then
|
|
CsvPartList.RemoveAt(i)
|
|
End If
|
|
Next
|
|
Return True
|
|
End Function
|
|
|
|
Friend Function RemoveWrongParts(ByRef CsvPartList As List(Of CsvPart)) As Boolean
|
|
For i As Integer = CsvPartList.Count() - 1 To 0 Step -1
|
|
If Not CsvPartList(i).m_bIsRect Or CsvPartList(i).m_dDimX < EPS_SMALL Or CsvPartList(i).m_dDimY < EPS_SMALL Then
|
|
CsvPartList.RemoveAt(i)
|
|
End If
|
|
Next
|
|
Return True
|
|
End Function
|
|
|
|
End Module
|