|
 |
 |
 |
| |
Lire dans un fichier INI 
Paramètres en entrée : Fichier (chaîne),Entete (chaîne),Section (chaîne)
Paramètres en sortie : LireDansINI (chaîne)
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
Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
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
Public Function LireDansINI(Fichier As String, Entete As String, Section As String)
Dim X As Long
Dim Temp As String * 50
Dim lpAppName As String, lpKeyName As String, lpDefault As String, lpFileName As String
lpAppName = Entete
lpKeyName = Section
lpDefault = no
lpFileName = Fichier
X = GetPrivateProfileString(lpAppName, lpKeyName, lpDefault, Temp, Len(Temp), lpFileName)
If X = 0 Then
MsgBox "Erreur de lecture dans le fichier INI", vbCritical
Else
LireDansINI = Trim(Temp)
End If
End Function
|
|
 |
|
 |
|
IDDN Certification
