Option Strict On
Option Explicit On
 
Public Class clsDateizugriff
 
#Region " Deklarationen "
 
  ' Eintrag aus einer INI-Datei lesen
  Private Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias _
    "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
    lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As _
    String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
 
  ' Eintrag in eine INI-Datei schreiben
  Private Declare Function WritePrivateProfileString Lib "kernel32.dll" Alias _
    "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
    lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) _
    As Integer
 
#End Region
 
#Region " Funktionen "
 
  Public Shared Function WertLesen(ByVal strDateiname As String, ByVal _
    strAbschnitt As String, ByVal strSchluessel As String, Optional ByVal _
    strStandardwert As String = "") As String
 
    ' Typ:           Globale Funktion
    ' Zweck:         Wert eines Eintrags aus einer INI-Datei lesen
    ' Parameter:     strDateiname ...... Name einer INI-Datei
    '                strSchluessel ..... Schlüssel des Wertes
    '                strAbschnitt ...... Abschnitt wo der Schlüssel steht
    '                strStandardwert ... Standardwert, wenn kein Schlüssel im 
    ' Abschnitt vorhanden ist
    ' Rückgabewert:  Wert des Eintrags
 
    Dim intGeleseneZeichen As Integer               ' Anzahl der eingelesenen 
    ' Zeichen
    Dim strEintrag As String = Strings.Space(256)   ' Wert des Eintrags
 
    ' Eintrag einlesen
    intGeleseneZeichen = GetPrivateProfileString(strAbschnitt, strSchluessel, _
      strStandardwert, strEintrag, strEintrag.Length, strDateiname)
 
    ' Eintrag zurückgeben
    Return Strings.Left(strEintrag, intGeleseneZeichen)
 
  End Function
 
#End Region
 
#Region " Prozeduren "
 
  Public Shared Sub WertSchreiben(ByVal strDateiname As String, ByVal _
    strAbschnitt As String, ByVal strSchluessel As String, ByVal strWert As _
    String)
 
    ' Typ:           Globale Prozedur
    ' Zweck:         Wert eines Eintrags in eine INI-Datei schreiben
    ' Parameter:     strDateiname ...... Name einer INI-Datei
    '                strSchluessel ..... Schlüssel des Wertes
    '                strAbschnitt ...... Abschnitt wo der Schlüssel geschrieben 
    ' wird
    ' Rückgabewert:  -
 
    ' Eintrag schreiben
    WritePrivateProfileString(strAbschnitt, strSchluessel, strWert, _
      strDateiname)
 
  End Sub
 
#End Region
 
End Class