title image


Smiley Re: INI-Dateien
Form:Schreiben eines Eintrages x = WriteINI("c:\test.ini", "SEKTION", "EINTRAG", "0815") 'x liefert 1, wenn die Aktion erfolgreich war, ansonsten 0 Lesen eines Eintrages s = GetINIString("c:\test.ini", "Sektion", "Eintrag") 's enthält den Wert des Eintrages in der Datei Löschen eines Eintrages x = WritePrivateProfileString("Sektion", "Eintrag", _ ByVal 0&, "c:\test.ini") 'x liefert 1, wenn die Aktion erfolgreich war, ansonsten 0 Löschen einer Sektion x = WritePrivateProfileString("Sektion", ByVal 0&, _ ByVal 0&, "c:\test.ini") 'x liefert 1, wenn die Aktion erfolgreich war, ansonsten 0Modul dazu:Private Declare Function GetPrivateProfileString Lib "Kernel32" _ Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As _ String, ByVal lpKeyName As Any, ByVal lpDefault As String, _ ByVal lpReturnedString As String, ByVal nSize As Long, _ ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileString Lib "Kernel32" _ Alias "WritePrivateProfileStringA" (ByVal lpApplicationName _ As String, ByVal lpKeyName As Any, ByVal lpString As Any, _ ByVal lpFileName As String) As Long Public Function WriteINI(Dateiname As String, DieSektion As String, _ DerEintrag As String, Wert As String) As Long WriteINI = WritePrivateProfileString(DieSektion, DerEintrag, Wert, Dateiname) End Function Function GetINIString(Dateiname As String, DieSektion As String, _ DerEintrag As String) As String Temp$ = String(255, 0) x = GetPrivateProfileString(DieSektion, DerEintrag, "", _ Temp$, 255, Dateiname) Temp$ = Left$(Temp$, x) GetINIString = Temp$ End Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: