- Ze Officiel Site Oueb-

fait par des personnes qui veulent se faire plaisir
- Fichier INI -

Mis à jour le 24/05/2002

Par Sébastien Curutchet

Voici le code du module mod_IniFile.bas :

Option Explicit
'API Lecture dans un fichier INI
Private Declare Function GetPrivateProfileString Lib "Kernel32" _
      Alias "GetPrivateProfileStringA" _
      (ByVal lpAppName As String, ByVal lpKeyName As String, _
      ByVal lpDefault As String, ByVal lpReturnedString As String, _
      ByVal nSize As Integer, ByVal filename As String) As Integer

'API Ecriture dans un fichier INI
Private Declare Function WritePrivateProfileString Lib "Kernel32" _
      Alias "WritePrivateProfileStringA" _
      (ByVal lpAppName As String, ByVal lpKeyName As String, _
      ByVal lpString As String, ByVal filename As String) As Integer

'Lecture dans un fichier INI
Public Function getString(filename As String, section As String, _
                           key As String, defaultValue As String) As String
    Dim Texte As String * 255, I%
    I% = GetPrivateProfileString(section, key, defaultValue, Texte$, 255, Afilename)
End Function

'Ecriture dans un fichier INI
Public Sub setString(filename As String, section As String, key As String, value As String)
    I% = WritePrivateProfileString(section, key, value, filename)
End Sub

Pour nous contacter : Webmaster