Lecture fichier ini
Nochasse
Messages postés
13
Date d'inscription
mardi 1 février 2005
Statut
Membre
Dernière intervention
24 février 2005
-
10 févr. 2005 à 18:18
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 - 10 févr. 2005 à 20:57
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 - 10 févr. 2005 à 20:57
A voir également:
- Writeprivateprofilesection
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier class ✓ - Forum Java
- Ouvrir un fichier java - Forum Java
- Fichier javascript - Conseils pratiques -Javascript
- C'ini ✓ - Forum C / C++ / C++.NET
4 réponses
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
10 févr. 2005 à 18:30
10 févr. 2005 à 18:30
Avec les API GetPrivateProfileString, GetPrivateProfileInt,
GetPrivateProfileSection pour lire et WritePrivateProfileString et
WritePrivateProfileSection.
Si Dark passe par là, il te donnera volontier un lien vers son excelent
site qui contient pas mal d'infos sur les API (entre autre)
Je suis impardonnable, je n'ai toujours pas retenu ce lien
GetPrivateProfileSection pour lire et WritePrivateProfileString et
WritePrivateProfileSection.
Si Dark passe par là, il te donnera volontier un lien vers son excelent
site qui contient pas mal d'infos sur les API (entre autre)
Je suis impardonnable, je n'ai toujours pas retenu ce lien
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
23
10 févr. 2005 à 20:53
10 févr. 2005 à 20:53
Avec les 4 fonctions qui suivent, tu fais à peu près tout ce que tu veux.
A recopier dans un module.
=============================================
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
Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias _
"WritePrivateProfileSectionA" ( _
ByVal lpAppName As String, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long
'Fonction pour lire une valeur dans un fichier INI
Function INIRead(Entete As String, Variable As String, Optional Fichier As String) As String
Fichier IIf(Fichier "", App.Path & "" & App.EXEName & ".ini", Fichier)
INIRead = String(255, Chr(0))
INIRead = Left$(INIRead, GetPrivateProfileString(Entete, ByVal Variable, "", INIRead, Len(INIRead), Fichier))
End Function
'Fonction pour écrire une valeur dans un fichier INI
'La section spécifiée est créée automatiquement si elle n'existe pas déjà
Function INIWrite(Entete As String, Variable As String, Valeur As String, Optional Fichier As String) As String
Fichier IIf(Fichier "", App.Path & "" & App.EXEName & ".ini", Fichier)
EcrireINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function
'Fonction pour supprimer une valeur dans un fichier INI
Function INIDelete(Entete As String, Variable As String, Optional Fichier As String) As String
Fichier IIf(Fichier "", App.Path & "" & App.EXEName & ".ini", Fichier)
SupprINI = WritePrivateProfileString(Entete, Variable, 0&, Fichier)
End Function
'Fonction pour supprimer une section dans un fichier INI
Function INIDeleteSection(Entete As String, Optional Fichier As String) As String
Fichier IIf(Fichier "", App.Path & "" & App.EXEName & ".ini", Fichier)
SupprSectionINI = WritePrivateProfileSection(Entete, 0&, Fichier)
End Function
===========================
Pour un fichier ini écrit comme ceci :
[Entete]
Variable=Valeur
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
A recopier dans un module.
=============================================
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
Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias _
"WritePrivateProfileSectionA" ( _
ByVal lpAppName As String, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long
'Fonction pour lire une valeur dans un fichier INI
Function INIRead(Entete As String, Variable As String, Optional Fichier As String) As String
Fichier IIf(Fichier "", App.Path & "" & App.EXEName & ".ini", Fichier)
INIRead = String(255, Chr(0))
INIRead = Left$(INIRead, GetPrivateProfileString(Entete, ByVal Variable, "", INIRead, Len(INIRead), Fichier))
End Function
'Fonction pour écrire une valeur dans un fichier INI
'La section spécifiée est créée automatiquement si elle n'existe pas déjà
Function INIWrite(Entete As String, Variable As String, Valeur As String, Optional Fichier As String) As String
Fichier IIf(Fichier "", App.Path & "" & App.EXEName & ".ini", Fichier)
EcrireINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function
'Fonction pour supprimer une valeur dans un fichier INI
Function INIDelete(Entete As String, Variable As String, Optional Fichier As String) As String
Fichier IIf(Fichier "", App.Path & "" & App.EXEName & ".ini", Fichier)
SupprINI = WritePrivateProfileString(Entete, Variable, 0&, Fichier)
End Function
'Fonction pour supprimer une section dans un fichier INI
Function INIDeleteSection(Entete As String, Optional Fichier As String) As String
Fichier IIf(Fichier "", App.Path & "" & App.EXEName & ".ini", Fichier)
SupprSectionINI = WritePrivateProfileSection(Entete, 0&, Fichier)
End Function
===========================
Pour un fichier ini écrit comme ceci :
[Entete]
Variable=Valeur
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
23
10 févr. 2005 à 20:54
10 févr. 2005 à 20:54
casy> http://www.progotop.com pour le site de DARKSIDIOUS.
Tu n'auras plus d'excuse la prochaine fois ... eh eh
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Tu n'auras plus d'excuse la prochaine fois ... eh eh
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
10 févr. 2005 à 20:57
10 févr. 2005 à 20:57
mci bien
j'aurais plus qu'a le noter au boulot aussi pis c'est bon
j'aurais plus qu'a le noter au boulot aussi pis c'est bon