Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Benutzerdaten abrufen: INI-Datei, Registry oder Active Directory
Wenn die Benutzerdaten beim Klick auf OK beispielsweise in globalen Variablen abgelegt
werden, lassen sie sich anschließend mit der folgenden Routine in einer INI-Datei
speichern:
Listing 7.2 Routine zum Speichern der Benutzerdaten in einer INI-Datei
Sub pBenutzerdatenInINIDateiSchreiben()
Dim strIniPfad As String
Dim strSection As String
strIniPfad = Application.NormalTemplate.Path & "\Benutzerdaten.ini"
strSection = "Benutzer"
System.PrivateProfileString(FileName:=strIniPfad, _
Section:=strSection, Key:="Vorname") = gstrVorname
System.PrivateProfileString(FileName:=strIniPfad, _
Section:=strSection, Key:="Nachname") = gstrNachname
System.PrivateProfileString(FileName:=strIniPfad, _
Section:=strSection, Key:="Straße") = gstrStraße
System.PrivateProfileString(FileName:=strIniPfad, _
Section:=strSection, Key:="PLZ") = gstrPLZ
System.PrivateProfileString(FileName:=strIniPfad, _
Section:=strSection, Key:="Ort") = gstrOrt
End Sub
Der Name der INI-Datei wird am Anfang der Routine definiert und setzt sich im Beispiel
aus dem Pfad der Normal.dotm (= Application.NormalTemplate.Path – dieser Pfad ist
immer vorhanden und eignet sich zum Speichern der INI-Datei, da er sich standardmäßig
im persönlichen Profil befindet und somit eindeutig ist) sowie dem Dateinamen
Benutzerdaten.ini zusammen. Ist die INI-Datei nicht vorhanden, wird sie automatisch
beim ersten Speichern angelegt. Als Section kommt für alle Einträge der Text Benutzer
zum Einsatz, dabei handelt es sich um den Eintrag in der INI-Datei, der am Anfang
eines Parameterblocks in eckige Klammern gesetzt ist.
Abbildung 7.10 Sämtliche Einträge in der INI-Datei sind in der Section [Benutzer] zusammengefasst
Das Auslesen der Daten ist ähnlich einfach wie das Schreiben: Jeder Wert wird durch
Angabe des INI-Dateinamens, der Section und des Keys einzeln ausgelesen und der
jeweiligen Variablen übergeben:
209