Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Kapitel 7
Technikwissen für Profis: Vorlagen erstellen, verteilen und automatisieren
Listing 7.3 Die Daten einer INI-Datei lassen sich mit wenig Aufwand auslesen
Sub pBenutzerdatenAusINIDateiLesen()
Dim strIniPfad As String
Dim strSection As String
strIniPfad = Application.NormalTemplate.Path & "\Benutzerdaten.ini"
strSection = "Benutzer"
gstrVorname = Trim(System.PrivateProfileString _
(FileName:=strIniPfad, Section:=strSection, Key:="Vorname"))
gstrNachname = Trim(System.PrivateProfileString _
(FileName:=strIniPfad, Section:=strSection, Key:="Nachname"))
gstrStraße = Trim(System.PrivateProfileString _
(FileName:=strIniPfad, Section:=strSection, Key:="Straße"))
gstrPLZ = Trim(System.PrivateProfileString _
(FileName:=strIniPfad, Section:=strSection, Key:="PLZ"))
gstrOrt = Trim(System.PrivateProfileString _
(FileName:=strIniPfad, Section:=strSection, Key:="Ort"))
End Sub
Alle hier aufgeführten Routinen zum Auslesen der INI-Datei finden Sie in der Datei VBA_INI-Datei-speichern-und-auslesen.docm.
Die Datei ist zusammen mit der Test-INI-Datei Benutzerdaten.ini im Ordner Kapitel07
zu finden.
Registry als Speicherort nutzen
Möchten Sie vermeiden, für die Benutzerdaten eine eigene INI-Datei anzulegen? Dann
steht Ihnen ein spezieller Bereich in der Windows-Registrierungsdatenbank – kurz
Registry – zur Verfügung, in der Sie benutzerbezogen beliebige Daten hinterlegen können.
Bei dem Bereich handelt es sich um den Zweig \\HKEY_CURRENT_USER\Software\VB
and VBA Program Settings, den Sie direkt per VBA ansprechen können.
Da die Daten im »Current User« gespeichert werden, bleiben sie auch bei servergesteuerten
Benutzerprofilen (»Roaming Profiles«) beim Wechsel des PCs erhalten. Nachteil:
Muss das Benutzerprofil aufgrund eines Systemabsturzes zurückgesetzt werden, gehen
auch die Daten verloren.
Wie beim Speichern der Benutzerdaten in einer INI-Datei benötigen Sie auch beim
Speichern der Daten in der Registry eine Möglichkeit, die zu speichernden Daten zu
bearbeiten. Hierzu können die gleiche Form und der gleiche Befehl wie in Abbildung
7.9 zum Einsatz kommen.
Zum Speichern der Daten in der Registry können Sie auf das Kommando SaveSetting
zurückgreifen, dem über die Variable strAnwendung und strSection der genaue Pfad unterhalb
des Schlüssels VB and VBA Program Settings mitgeteilt wird. Es folgen der Name
des Schlüssels (immer vom Typ Zeichenfolge) sowie der eigentliche Wert.
210