cs_Commissaire
Messages postés1Date d'inscriptionvendredi 9 juillet 2004StatutMembreDernière intervention12 septembre 2006 12 sept. 2006 à 16:35
Merci pr ce code qui m'a sauvé la vie.
Patrio LEBVOUA From Congo-Bzv
XelectroX
Messages postés209Date d'inscriptionsamedi 11 novembre 2000StatutMembreDernière intervention 6 novembre 2009 19 mai 2006 à 18:48
Super ton code
Je l'ai remodifier à ma manière mais il est vraiment interressant.
Bonne continuation.
warreng69
Messages postés12Date d'inscriptionjeudi 21 novembre 2002StatutMembreDernière intervention13 avril 2004 8 déc. 2002 à 19:31
Votre code est tres bien.
je voudrai juste demander si kelk un possederai une source avec une fonction de lecture d'un fichier ini avec seulement le nom du fichier en parametres.
merci
et je souhaiterai egalement savoir comment le fichier ini peut etre lu (chargé) par une application.
pour ma part je prefere ce moyen là:
en creant un module contenant:
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
Function LireINI(Entete As String, Variable As String) As String
Dim Retour As String
Fichier = App.Path & "" & App.EXEName & ".ini"
Retour = String(255, Chr(0))
LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), Fichier))
End Function
Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String
Fichier = App.Path & "" & App.EXEName & ".ini"
WriteINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function
' Pour l'executer ex :
'nommodule.EcrireINI"MonEntete", "MaVariable", "MaValeur"
nommodule.LireINI "MonEntete", "MaVariable"
12 sept. 2006 à 16:35
Patrio LEBVOUA From Congo-Bzv
19 mai 2006 à 18:48
Je l'ai remodifier à ma manière mais il est vraiment interressant.
Bonne continuation.
8 déc. 2002 à 19:31
je voudrai juste demander si kelk un possederai une source avec une fonction de lecture d'un fichier ini avec seulement le nom du fichier en parametres.
merci
et je souhaiterai egalement savoir comment le fichier ini peut etre lu (chargé) par une application.
14 nov. 2001 à 18:20
en creant un module contenant:
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
Function LireINI(Entete As String, Variable As String) As String
Dim Retour As String
Fichier = App.Path & "" & App.EXEName & ".ini"
Retour = String(255, Chr(0))
LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), Fichier))
End Function
Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String
Fichier = App.Path & "" & App.EXEName & ".ini"
WriteINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function
' Pour l'executer ex :
'nommodule.EcrireINI"MonEntete", "MaVariable", "MaValeur"
nommodule.LireINI "MonEntete", "MaVariable"
4 oct. 2001 à 03:59
22 sept. 2001 à 15:40
paske ca aussi on en a besoin !!
mais ton code est bien !!!!
c du bon code !!