EgtDOORCreator 2.2j2:

-> aggiunto la possibilità di configurare di non comunicare il messaggio di Configurazione sbagliata (AskMeAgaingConfirm = 0).
This commit is contained in:
Nicola Pievani
2020-10-28 14:17:49 +00:00
parent d27244dc3e
commit a2bcb0b785
11 changed files with 86 additions and 22 deletions
+11 -1
View File
@@ -51,7 +51,13 @@ Module RegexFunction
Friend Function RemoveComment(sLine As String) As String
sLine = sLine.Replace(DDF_METADATA, "§")
If sLine.Contains("#"c) Then
If Not Part.bFirstConfigRead Then
Dim bIgnoreConfig As Boolean = False
If Not IsNothing(Map.refAssemblyManagerVM) AndAlso Not IsNothing(Map.refAssemblyManagerVM.CurrProject) AndAlso
Not IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) AndAlso
Not OptionModule.m_AskMeAgainConfirm Then
bIgnoreConfig = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.Name = Part.LastPartName
End If
If Not bIgnoreConfig AndAlso Not Part.bFirstConfigRead Then
Part.bFirstConfigRead = ReadConfig(sLine)
End If
sLine = Regex.Match(sLine, "\s*(.*?)\s*#.*$").Groups(1).Value
@@ -67,6 +73,8 @@ Module RegexFunction
' legge la configurazione scritta nelle linee di commento
Friend Function ReadConfig(sLine As String) As Boolean
' annullo l'ultiam selezione fatta
Part.LastPartName = String.Empty
' Se non c'è Config esco
If Not sLine.Contains("Config") Then Return False
' Processo il tipo di configurazione
@@ -94,6 +102,8 @@ Module RegexFunction
EgtExit()
Application.Current.MainWindow.Close()
End
Else
Part.LastPartName = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.Name
End If
End If
End If