Beiträge von H4ckHunt3r

Option Explicit On


Public Class INIDatei
    'Funktionen(DLL)zum LESEN einer *.INI deklarieren
    Private Declare Ansi Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
        ByVal lpApplicationName As String, ByVal lpSchlüsselName As String, ByVal lpDefault As String, _
        ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer


    'Funktion(DLL)zum SCHREIBEN in eine *.INI deklarieren
    Private Declare Ansi Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
        ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, _
        ByVal lpFileName As String) As Integer


    'Funktion(DLL)zum Löschen einer gesammten Sektion deklarieren
    Private Declare Ansi Function DeletePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
        ByVal Section As String, ByVal NoKey As Integer, ByVal NoSetting As Integer, _
        ByVal FileName As String) As Integer


    ' Öffentliche Klassenvariablen (Der Pfad zur *.INI)
    Public INIpfad As String


    Public Function WertLesen(ByVal Sektion As String, ByVal Schlüssel As String, Optional ByVal Standardwert As String = "", Optional ByVal BufferSize As Integer = 1024) As String
        ' Testen, ob ein Pfad zur INI in die Variable INIpfad eingetragen wurde
        If INIpfad = "" Then
            MsgBox("Es ist kein Pfad zur INI angegeben. Deshalb ist das Auslesen des Wertes nicht möglich." _
                & vbCrLf & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Angeforderter Schlüssel: " _
                & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            WertLesen = "Lesefehler"
            Exit Function
        End If


        ' Testen, ob die *.INI Datei existiert
        If IO.File.Exists(INIpfad) = False Then
            MsgBox("Die angegebene INI-Datei exstiert auf diesem Rechner nicht. Deshalb ist das " _
                & "Auslesen des Wertes nicht möglich." & vbCrLf & vbCrLf & "INI-Datei: " & INIpfad _
                & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Angeforderter Schlüssel: " _
                & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            WertLesen = "Lesefehler"
            Exit Function
        End If


        ' Auslesen des Wertes
        Dim sTemp As String = Space(BufferSize)
        Dim Length As Integer = GetPrivateProfileString(Sektion, Schlüssel, Standardwert, sTemp, BufferSize, INIpfad)
        Return Left(sTemp, Length)
    End Function


    Public Sub WertSchreiben(ByVal Sektion As String, ByVal Schlüssel As String, ByVal Wert As String)
        ' Testen, ob ein Pfad zur INI in die Variable INIpfad eingetragen wurde
        If INIpfad = "" Then
            MsgBox("Es ist kein Pfad zur INI angegeben. Deshalb ist das Schreiben des Wertes nicht möglich." _
                & vbCrLf & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Zu schreibender Schlüssel: " _
                & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            Exit Sub
        End If


        ' Testen, ob der Order, in dem die *.INI liegen soll, existiert
        Dim Ordner As String
        Ordner = IO.Path.GetDirectoryName(INIpfad)
        If IO.Directory.Exists(Ordner) = False Then
            MsgBox("Die angegebene Ordner für die INI-Datei exstiert auf diesem Rechner nicht. Deshalb ist das " _
                & "Schreiben des Wertes nicht möglich." & vbCrLf & vbCrLf & "Fehlender Ordner: " & Ordner _
                & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Zu schreibender Schlüssel: " _
                & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei existiet nicht")
            Exit Sub
        End If


        ' Schreiben in die *.INI durchführen
        WritePrivateProfileString(Sektion, Schlüssel, Wert, INIpfad)
    End Sub


    Public Sub SchlüsselLöschen(ByVal Sektion As String, ByVal Schlüssel As String)
        ' Testen, ob ein Pfad zur INI in die Variable INIpfad eingetragen wurde
        If INIpfad = "" Then
            MsgBox("Es ist kein Pfad zur INI angegeben. Deshalb ist das Löschen des Schlüssels nicht möglich." _
                & vbCrLf & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Zu löschender Schlüssel: " _
                & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            Exit Sub
        End If


        ' Testen, ob die der Order, in dem die *.INI liegen soll, existiert
        Dim Ordner As String
        Ordner = IO.Path.GetDirectoryName(INIpfad)
        If IO.Directory.Exists(Ordner) = False Then
            MsgBox("Die angegebene Ordner für die INI-Datei exstiert auf diesem Rechner nicht. Deshalb ist das " _
                & "Löschen des Wertes nicht möglich." & vbCrLf & vbCrLf & "Fehlender Ordner: " & Ordner _
                & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Zu löschender Schlüssel: " _
                & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei existiert nicht")
            Exit Sub
        End If


        ' Löschen des Schlüssels durch eine Schreiboperation durchführen
        WritePrivateProfileString(Sektion, Schlüssel, Nothing, INIpfad)
    End Sub


    Public Sub SektionLöschen(ByVal Sektion As String)
        ' Testen, ob ein Pfad zur INI in die Variable INIpfad eingetragen wurde
        If INIpfad = "" Then
            MsgBox("Es ist kein Pfad zur INI angegeben. Deshalb ist das Löschen der Sektion nicht möglich." _
                & vbCrLf & vbCrLf & "Angeforderte Sektion: " & Sektion, MsgBoxStyle.Exclamation, _
                "Pfad zur INI-Datei fehlt")
            Exit Sub
        End If


        ' Testen, ob die *.INI Datei existiert
        If IO.File.Exists(INIpfad) = False Then
            MsgBox("Die angegebene INI-Datei exstiert auf diesem Rechner nicht. Deshalb ist das " _
                & "Löschen der Sektion nicht möglich." & vbCrLf & vbCrLf & "INI-Datei: " & INIpfad _
                & vbCrLf & "Angeforderte Sektion: ", MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            Exit Sub
        End If


        'Löschen der Sektion
        DeletePrivateProfileSection(Sektion, 0, 0, INIpfad)
    End Sub


    Public Sub BackupAnlegen(ByVal Zielpfad As String, Optional ByVal FehlermeldungAnzeigen As Boolean = False)


        ' Testen, ob ein Pfad zur *.INI vorhanden ist
        If INIpfad = "" Then
            If FehlermeldungAnzeigen = True Then
                MsgBox("Es ist kein Pfad zur INI, von der ein Backup angelegt werden soll, angegeben." _
                    & "Das Backup konnte NICHT angelegt werden.", MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            End If
            Exit Sub
        End If


        ' Testen, ob der Ordner des Zielpfades existiert
        Dim Ordner As String
        Ordner = IO.Path.GetDirectoryName(INIpfad)
        If IO.Directory.Exists(Ordner) = False Then
            If FehlermeldungAnzeigen = True Then
                MsgBox(Zielpfad & vbCrLf & vbCrLf & "Dieser Ordner existiert nicht." _
                   & vbCrLf & vbCrLf & "Das Backup konnte NICHT angelegt werden.", MsgBoxStyle.Exclamation, _
                   "Zielordner existiert nicht")
            End If
            Exit Sub
        End If
        ' Kopie der *.INI erstellen
        IO.File.Copy(INIpfad, Zielpfad)
    End Sub


    Private Sub DateiLöschen(Optional ByVal FehlermeldungAnzeigen As Boolean = False)
        ' Testen, ob ein Pfad zur *.INI vorhanden ist
        If INIpfad = "" Then
            If FehlermeldungAnzeigen = True Then
                MsgBox("Es ist kein Pfad zur INI, die gelöscht werden soll, angegeben." _
                    & "Das Löschen konnte NICHT durchgeführt werden.", MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            End If
            Exit Sub
        End If


        ' Testen, ob die *.INI Datei existiert
        If IO.File.Exists(INIpfad) = False Then
            If FehlermeldungAnzeigen = True Then
                MsgBox(INIpfad & vbCrLf & vbCrLf & "Diese Datei existiert bereits nicht mehr. " _
                    & "Das Löschen hat sich damit erübrigt.", MsgBoxStyle.Exclamation, _
                   "Datei existiert nicht mehr")
            End If
            Exit Sub
        End If


        ' Löschen durchführen
        IO.File.Delete(INIpfad)
 End Sub


End Class