CompressPartsDatabase
Update
Frank Schöneck, 01.06.2012 V2.0.0
- Eplan eigene Action für CompressDataBase verwendet.
- Script kann geladen oder ausgeführt werden.
Danke nochmal an Frank!
Anbei ein kleines Script, welches unter Dienstprogramme/Artikel einen Menüpunkt “Artikeldatenbank komprimieren” hinzufügt. Das ganze funktioniert nur in Verbindung einer Access-Artikeldatenbank (Eplan-Standard) funktioniert.
Wenn die Komprimierung durchgeführt wird darf kein anderer Anwender auf die Datenbank zugreifen.
Durch die Kompression verringert sich die Größe enorm und die Geschwindigkeit nimmt zu :w00t:
Vielen Dank an FrankS!
CompressPartsDatabase 2.0.0 (3001 Downloads )
' CompressPartsDatabase, Version 2.0.0, vom 01.06.2012
'
' Führt eine Komprimierung der aktuell eingestellten Artikeldatenbank durch.
' Es wird eine Sicherheitskopie mit der Dateiendung '.Backup' angelegt.
'
' Copyright by Frank Schöneck, 2009
' letzte Änderung: Frank Schöneck, 31.08.2009 V1.0.0
' Frank Schöneck, 01.06.2012 V2.0.0, -Eplan eigene Action für CompressDataBase verwendet.
' -Script kann geladen oder ausgeführt werden.
'
' für Eplan Electric P8, ab V2.1.6
'
Imports System.IO
Public Class CompressPartsDatabase
_
Public Sub MyFunction()
CompressPartsDatabase()
End Sub
_
Public Sub CompressPartsDatabase_Menu()
Dim oMenu As New Eplan.EplApi.GUI.Menu()
oMenu.AddMenuItem("Artikeldatenbank komprimieren...", "CompressPartsDatabase", "Es wird die aktuell eingestellte Artikeldatenbank komprimiert", 35177, 1, True, False)
End Sub
_
Public Sub CompressPartsDatabase()
Dim oSettings As New Eplan.EplApi.Base.Settings()
Dim DatabaseName As String
Dim DatabaseNameBackup As String
Dim Result As DialogResult
Dim boReturn As Boolean
Dim NewLine As String = Environment.NewLine
Dim Meldung As String
'Einstellung 'Artikeldatenbank' auslesen
DatabaseName = oSettings.getStringSetting("USER.PartsManagementGui.Database", 0)
'Variablen auslesen und ersetzen
DatabaseName = PathMap.SubstitutePath(DatabaseName)
'Namen der Backup-Datei festlegen
DatabaseNameBackup = DatabaseName & ".Backup"
'Sicherheitsabfrage
Meldung = "Soll die folgende Artikeldatenbank komprimiert werden?" & NewLine
Meldung &= NewLine
Meldung &= "'" & DatabaseName & "'" & NewLine
Meldung &= NewLine
Meldung &= "(Es wird im gleichen Ordner eine Sicherheitskopie mit der Dateiendung 'Backup' angelegt.)" & NewLine
Result = MessageBox.Show(Meldung, "CompressPartsDatabase", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = System.Windows.Forms.DialogResult.Yes Then
'Cursur Warten anzeigen
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
'Artikeldatenbank komprimieren
boReturn = CompressParts(DatabaseName, DatabaseNameBackup)
'Cursor wieder Standard
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
'Ergebnismeldung anzeigen
If boReturn = True Then
Meldung = "Das komprimieren der Artikeldatenbank wurde erfolgreich durchgeführt." & NewLine
Meldung &= NewLine
Meldung &= "Dateigröße vorher: " & GetFileSize(DatabaseNameBackup) & NewLine
Meldung &= "Dateigröße nachher: " & GetFileSize(DatabaseName) & NewLine
MessageBox.Show(Meldung, "CompressPartsDatabase, Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
ElseIf boReturn = False Then
MessageBox.Show("Das komprimieren der Artikeldatenbank konnte nicht erfolgreich durchgeführt werden!", "CompressPartsDatabase, Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
End Sub
'Artikeldatenbank komprimieren
Private Function CompressParts(ByVal DatabaseFilename As String, ByVal DatabaseFilenameBackup As String) As Boolean
Try
Dim cmdLineItp As New CommandLineInterpreter()
Dim ACC As New ActionCallingContext
Dim overwrite As Boolean = True
'Backup anlegen
File.Copy(DatabaseFilename, DatabaseFilenameBackup, overwrite)
'PartsDatabase komprimieren
ACC.AddParameter("Database", DatabaseFilename)
cmdLineItp.Execute("XPamCompactDatabase", ACC)
Return True
Catch ex As Exception
MessageBox.Show(ex.InnerException.ToString(), "CompressParts, Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
Return False
End Function
'Anzeige der Dateigröße formatieren
Private Function GetFileSize(ByVal path As String) As String
Dim myFile As FileInfo
Dim mySize As Single
Try
myFile = New FileInfo(path)
If Not myFile.Exists Then
mySize = 0
Else
mySize = myFile.Length
End If
Select Case mySize
Case 0 To 1023
Return Microsoft.VisualBasic.Format(mySize, "#,###") & " Bytes"
Case 1024 To 1048575
Return Microsoft.VisualBasic.Format(mySize / 1024, "#,###0.00") & " KB (" & Microsoft.VisualBasic.Format(mySize, "#,###") & " Bytes)"
Case 1048576 To 1043741823
Return Microsoft.VisualBasic.Format(mySize / 1024 ^ 2, "#,###0.00") & " MB (" & Microsoft.VisualBasic.Format(mySize, "#,###") & " Bytes)"
Case Is > 1043741824
Return Microsoft.VisualBasic.Format(mySize / 1024 ^ 3, "#,###0.00") & " GB (" & Microsoft.VisualBasic.Format(mySize, "#,###") & " Bytes)"
End Select
Return "0 bytes"
Catch ex As Exception
Return "0 bytes"
End Try
End Function
End Class
