Lire un fichier ini à partir d'un moduleRésolu

Question

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!

Moritus · Accepted Answer

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

Utilisateur anonyme · Answer

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

Lire un fichier ini à partir d'un module

2 réponses

Votre réponse

Discussions similaires