Lire un fichier ini à partir d'un module [Résolu]

Signaler
Messages postés
130
Date d'inscription
jeudi 22 décembre 2005
Statut
Membre
Dernière intervention
23 novembre 2011
-
Messages postés
130
Date d'inscription
jeudi 22 décembre 2005
Statut
Membre
Dernière intervention
23 novembre 2011
-
Bonjour,


J'aimerais lire un fichier ini en appelant une fonction dans un module.


voici le code contenu dans mon module

.............................

Option Explicit

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 Sub get_ini(part As String, value As String, path As String)

Dim Taille As Long

Dim Donnée As String * 100

Dim temp


    Taille = GetPrivateProfileString(part, value, " ", Donnée, 100, path)

    temp = Mid(Donnée, 1, Taille)


End Sub


..................

Dans ma form, j'aimerais appeler cette fonction comme suit


mavariable = inifiles.get_ini( part, value,path)


J'ai essai de cherche sur le net et sur le forum mais je trouve rien de croustillant a me metre sur les dents..


merci!

2 réponses

Messages postés
130
Date d'inscription
jeudi 22 décembre 2005
Statut
Membre
Dernière intervention
23 novembre 2011

salut,

J'ai réussi a faire fonctionner mon modules en fouillant dans des modules existant que j'avais...

Pour ceux interesser voici le code

Option Explicit
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 get_ini(part As String, value As String, path As String) As String
Dim Taille As Long
Dim Donnée As String * 100

Taille = GetPrivateProfileString(part, value, " ", Donnée, 100, path)
get_ini = Mid(Donnée, 1, Taille)

End Function
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
30
Salut,

Je pense que en tapant "ini" dans le moteur de recherche, tu as ce que tu veut.
__________
Kenji
(
Nouveau forum VBA/Office