'lit fichier ini (param = section clef chemin) 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 Integer, _ ByVal lpFileName As String) As Integer 'ecrit dans fichier ini (param = section clef chemin) Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _ (ByVal lpApplicationName As String, _ ByVal lpKeyName As String, _ ByVal lpString As String, _ ByVal lpFileName As String) As Integer 'liste toutes les section d'un fichier ini Private Declare Function GetPrivateProfileSectionNames Lib "kernel32.dll" Alias "GetPrivateProfileSectionNamesA" _ (ByVal lpszReturnBuffer As String, _ ByVal nSize As Integer, _ ByVal lpFileName As String) As Integer 'liste toutes les clef d'une section Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" _ (ByVal lpAppName As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Integer, _ ByVal lpFileName As String) As Integer 'pour suprimer une section d'un fichier ini Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" ( _ ByVal lpAppName As String, _ ByVal lpString As String, _ ByVal lpFileName As String) As Integer
Public Function LitDansFichierIni(ByVal Section As String, _ ByVal Cle As String, _ ByVal nom_fichier_ini As String) As String 'varriable de retour pour la valeur de la clef Dim strReturn As String = New String(Chr(0), 20000) 'lecture du fichier ini et remplissage de la valeur de la clef GetPrivateProfileString(Section, Cle, "", strReturn, Len(strReturn), nom_fichier_ini) 'fin de fonction assignation de la valeur de la clef a litdansfichierini Return Left(strReturn, InStr(strReturn, Chr(0)) - 1) End Function
Public Function EcritDansFichierIni(ByVal Section As String, _ ByVal Cle As String, _ ByVal valeur As String, _ ByVal nom_fichier_ini As String) As Boolean 'si nothing est passe comme param a valeur alors la clef est supprimer du fichier 'si la section la clef ou le fichier ini n'existe pas l'api se charge de les créer. 'ecriture dans in fichier du type ini a la section et clef passer en param Return WritePrivateProfileString(Section, Cle, valeur, nom_fichier_ini) End Function
Public Function ListeSectionIni(ByVal nom_fichier_ini As String) As String() 'strReturn est une varriable qui contient tout le contenu du fichier ini Dim strReturn As String = New String(Chr(0), 20000) 'liste les section dans strReturn GetPrivateProfileSectionNames(strReturn, Len(strReturn), nom_fichier_ini)) 'decoupe strReturn et palce les sections dans le retour de fonction Return Split(Left(strReturn, InStr(1, strReturn, vbNullChar & vbNullChar) - 1), vbNullChar) End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiondim X as Integer do while not EOF (enfin l'équivalent en FSO que je connais très peu) X=X+1 Lire ligne et récupérer dans un tableau ex: Tableau(X)=split(maligne,"=")(1) Attention, la ligne ci-dessus risque de planter s'il n'y a pas de valeur après le signe =. loop