Egalware/EgtDOORCreator
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
Nicola Pievani
2018-08-03 16:40:16 +00:00
parent afcbe46488
commit d5f2c81876
1 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
RegexFunction.vb
+14 -13
View File
@@ -22,21 +22,22 @@ Module RegexFunction
Dim ConfigurationCompo As String = Regex.Match(sLine, "\s*:\s*(.*?)\s*$").Groups(1).Value
If Not String.IsNullOrWhiteSpace(ConfigurationCompo) AndAlso
ConfigurationCompo <> Path.GetFileName(IniFile.m_sDoorsDirPath) Then
Dim MsgBoxResult As MessageBoxResult = MessageBoxResult.No
' 50195=The current ddf configuration ({0}) is different from the current program configuration ({1}).
Dim sWarningMas As String = String.Format(EgtMsg(50195), ConfigurationCompo, Path.GetFileName(IniFile.m_sDoorsDirPath))
MsgBoxResult = MessageBox.Show(sWarningMas, "Warning", MessageBoxButton.YesNo, MessageBoxImage.Warning)
If MsgBoxResult = MessageBoxResult.Yes Then
If Directory.Exists("C:\EgtData\Doors\" & ConfigurationCompo) Then
If Not Directory.Exists("C:\EgtData\Doors\" & ConfigurationCompo) Then
' 50196=Configuration program ({0}) does not exist!
Dim sErrorMsg As String = String.Format(EgtMsg(50196), ConfigurationCompo)
MessageBox.Show(sErrorMsg, "Error", MessageBoxButton.OK, MessageBoxImage.Error)
Else
Dim MsgBoxResult As MessageBoxResult = MessageBoxResult.No
' 50195=The current ddf configuration ({0}) is different from the current program configuration ({1}).
Dim sWarningMas As String = String.Format(EgtMsg(50195), ConfigurationCompo, Path.GetFileName(IniFile.m_sDoorsDirPath))
MsgBoxResult = MessageBox.Show(sWarningMas, "Warning", MessageBoxButton.YesNo, MessageBoxImage.Warning)
If MsgBoxResult = MessageBoxResult.Yes Then
WriteMainPrivateProfileString("Doors", "BaseDir", "C:\EgtData\Doors\" & ConfigurationCompo)
Else
' 50196=Configuration program ({0}) does not exist!
Dim sErrorMsg As String = String.Format(EgtMsg(50196), ConfigurationCompo)
MessageBox.Show(sErrorMsg, "Error", MessageBoxButton.OK, MessageBoxImage.Error)
EgtExit()
Application.Current.MainWindow.Close()
' esci dall'applicazione
End
End If
EgtExit()
Application.Current.MainWindow.Close()
End
End If
End If
End If