Bonjour j’aimerais savoir si quelqu’un connais des tutorials pour apprendre la lecture et l’écriture des fichier ini. Si oui j’aimerais bien que vous m’envoyez le lien de bonne place ou on peut apprendre le plus éfficassement possible la lecture et l’écriture des fichiers .ini Merci beaucoup
PS: Apprendre a lire et écrire les fichier .ini en VB6 lol
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
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public FilePath As String
Public Section As String
Private Sub Class_Initialize()
FilePath = IniPath
End Sub
Public Function ReadINI(ByVal KeyName As String, Optional ByVal mySection As String, Optional ByVal myFilePath As String) As String
Dim sRet As String
If mySection = "" Then mySection = Section
If myFilePath = "" Then myFilePath = FilePath
sRet = String(255, Chr(0))
ReadINI = Left(sRet, GetPrivateProfileString(mySection, ByVal KeyName, "", sRet, Len(sRet), myFilePath))
End Function
Public Function WriteINI(ByVal KeyName As String, ByVal NewString As String, Optional ByVal mySection As String, Optional ByVal myFilePath As String) As Integer
If mySection = "" Then mySection = Section
If myFilePath = "" Then myFilePath = FilePath
WriteINI = WritePrivateProfileString(mySection, KeyName, NewString, myFilePath)
End Function