Zugriff auf ini-Dateien mit VBA

Sie haben mit Sicherheit schon mal was von ini-Dateien gehört und vielleicht auch schon welche gesehen. Die Dateien werden hier nur nach ihrer Endung benannt, sonst sind es erstmal Textdateien, die mit dem Editor in Windows geöffnet werden können.

Diese Dateien werden in Windows für Einstellungen genutzt. Selbst Windows benutzt diese Dateien für das Betriebssystem. Noch immer gibt es die System.ini und die Win.ini. Und wer mehr sal ein Betriebssystem installiert hat wird eine Boot.ini finden.

Eine Strukur einer ini-Datei sieht so aus:

Hier sehen Sie, dass es Sektionen in eckigen Klammern gibt. In den Sektionen wiederum stehen einzelne Einträge mit zugeordneten Werten. Diese Einträge nennt amn Keys. Die Einträge können aber auch leer sein.

Der Zugriff auf ini-Dateien ist recht einfach. Dabei handelt es sich zunächst um eine wordspezifische Lösung. In anderen Officeprodukten steht diese Möglichkeit in VBA nicht zur Verfügung. Der Wordprogrammierer ist hier von Microsoft verwöhnt worden.

Die Befehle für den Zugriff lauten folgendermaßen:

System.PrivateProfileString

Sie werden sich nun wundern. Wo ist denn der Befehl zum Lesen von Werten? Und wie schreibe ich damit in die ini-Datei?

Nichts einfacher als das. Der Befehl ist immer gleich. Dei Befehlszeile mit den Parametern lautet so:

System.PrivateProfileString(FileName As String, Section As String, Key As String) As String

Unter FileName tragen Sie den Namen Ihrer ini-Datei mit vollständigen Pfad ein. Die Section ist die Sektion - also das, was später in eckigen Klammern steht. Der Key ist der Eintrag, der innerhalb der Sektion steht.

Das Lesen ist einfach. Sie geben die Prameter an und ordnene Sie diesen Befehl Ihrer Variablen zu:

MeinInhalt = System.PrivateProfileString(...)

Sollte der Eintrag nicht vorhanden sein, so wird keine Fehlermeldung ausgegeben. Der Code läuft einfach weiter und würde hier einen leeren String zurückgeben.

Das Schreiben von Werten in die ini-Datei ist genauso einfach:

System.PrivateProfileString(...) = MeinEintrag

Hier wird der Inhalt von MeinEintrag in die ini-Datei geschrieben. Hier ist aber die Fehlerbehandlung ganz anders. Sollte die Datei nicht vorhanden sein, so wird sie angelegt. Dann wird auch die Sektion, soweit nicht vorhanden, angelegt - und genauso verhält es sich mit dem Eintrag.

Daraus sehen Sei aber auch, dass Sie sehr vorsichtig damit umgehen sollten und die Schreibweisen immer überprüfen müssen. Sonst wundern Sie sich, dass Ihre Variablen keine Werte mehr haben!