======[VB] Ini Datei Handler======
Ein Beispiel wie man dank den API-Finktionen einfach auf Ini-files zugreiffen kann.
Als erstes mal unsere INi-Datei.
# Kommentar
[DATEISTEUERUNG]
InputOrdner = (eingabe)
OutputHistory = (eingabe)
Dateialt = (eingabe)
Dateineu = (eingabe)
Ausgabe = (eingabe)
Modul ini_handler (kannst du gleich so kopieren können)
'http://www.shadoware.de/vb/ini.html
'API-Funktionen deklarieren
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Sub SaveINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Value As Variant)
Call WritePrivateProfileString(Key, Setting, Value, Filename)
End Sub
Function GetINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Default As Variant) As Variant
Dim Temp As String * 1024
Call GetPrivateProfileString(Key, Setting, Default, Temp, Len(Temp), Filename)
GetINISetting = Mid(Temp, 1, InStr(1, Temp, Chr(0)) - 1)
End Function
Anwendung:
InputOrdner= GetINISetting("PathToFile\Konfig.ini", "DATEISTEUERUNG", "InputOrdner", "C:\Temp")
----
{{tag>VBA}}