. Eine INI-Datei ist eine strukturierte Textdatei, die Einstellungen speichert für Benutzer konfigurierbaren Programmfunktionen . Zum Beispiel ist eine INI-Datei ein Mechanismus für die Erinnerung , dass ein Benutzer Text in einer anderen Sprache als Englisch anzeigen möchte . Das Original Windows Application Programmer Interface (API) unterstützt Funktionen, die das Lesen und Schreiben INI-Dateien zu erleichtern. Microsoft hat INI-Dateien für die Windows-Registry und neuere XML - basierte Dateiformate veraltet. Die Windows- API-Funktionen , die zwar nicht direkt unterstützt , verfügbar bleiben, um Visual Basic 9 Programmierer, die ältere Software zu unterstützen. Anleitung
1

hinzufügen Declare-Anweisung an die Spitze des Moduls zu ermöglichen Aufrufen der Windows -API-Funktion zum Schreiben ini-Dateien : .

Private Declare Ansi Function WritePrivateProfileString _
< p> Lib " kernel32.dll " Alias ​​" WritePrivateProfileStringA " _

(ByVal lpApplicationName As String , _ ByVal

lpKeyName As String , ByVal lpString As String , _ ByVal

lpFileName As String ) As Integer
2

hinzufügen Declare Funktion an der Spitze des Moduls zu ermöglichen Aufrufen der Windows -API-Funktion zum Lesen ini-Datei Wert : .

private Declare Ansi 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

3

erstellen oder bearbeiten Sie eine INI-Datei durch den Aufruf der Funktion WritePrivateProfileString , Bereitstellen von Werten für die wichtigsten , Anwendungs-und Dateinamen . Vereinbarungsgemäß INI-Dateien verwenden die . Ini . Die Anwendung Parameter entspricht einem Abschnitt in der INI-Datei. Wenn einer der angegebenen Parameter nicht vorhanden sind, werden sie erstellt werden. Dies schließt die Datei selbst , solange die angegebene Verzeichnis existiert. Die WritePrivateProfile String Funktion zuvor über - schreiben vorhandene Werte .

WritePrivateProfileString ( " Abschnitt ", " key", " Wert ", " . /Data.ini " )
4

spülen Sie den Cache , wenn Sie INI-Datei Änderungen vorgenommen haben, wodurch das Risiko von Datenverlust im Falle eines außergewöhnlichen Programm herunterfahren . Pass Null-Werte an den WritePrivateProfileString Funktion für alle Parameter außer der INI-Datei Namen. Dies weist Windows an, Änderungen auf die Festplatte schreiben : ( " . /Data.ini " 0 , 0, 0 , )

WritePrivateProfileString
5

einen Puffer ausreicht, um die maximale halten Größe von einem Wert in der INI -Datei gespeichert. Ein Puffer von 256 Zeichen in der Regel ausreichend . Erstellen Sie eine ganze Zahl , um die tatsächliche Größe der Wert, der aus der INI-Datei abgerufen wurde erhalten . Verwenden Sie Dunkel, um die Variablen und die Space-Funktion deklarieren , um Speicher für den String zuweisen :

Dim strValue As String Dim

INTLEN As Integer

strValue = Raum (256)
6

Abrufen Werte in der INI-Datei , indem Sie mit den Variablen GetPrivateProfileString zusammen mit den wichtigsten Abschnitt , und den Dateinamen Werte verwendet werden, wenn das Schreiben der INI -Datei gespeichert. Geben Sie die Größe des Puffers , die Sie bereitstellen und einen Wert zurückgegeben, wenn der festgelegte Wert nicht gefunden wird :

INTLEN = GetPrivateProfileString ( " Abschnitt ", " key", " nicht gefunden" , strValue , 256 , "Dateiname" )