LIRE/ECRIRE/SUPPRIMER DANS UN FICHIER INI GRÂCE AUX APIS WINDOWS
cs_Titant
Messages postés
103
Date d'inscription
mardi 2 juillet 2002
Statut
Membre
Dernière intervention
21 juillet 2008
-
13 juil. 2003 à 20:13
gmni Messages postés 91 Date d'inscription mercredi 6 novembre 2002 Statut Membre Dernière intervention 20 mars 2009 - 16 juin 2008 à 03:23
gmni Messages postés 91 Date d'inscription mercredi 6 novembre 2002 Statut Membre Dernière intervention 20 mars 2009 - 16 juin 2008 à 03:23
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7885-lire-ecrire-supprimer-dans-un-fichier-ini-grace-aux-apis-windows
https://codes-sources.commentcamarche.net/source/7885-lire-ecrire-supprimer-dans-un-fichier-ini-grace-aux-apis-windows
16 juin 2008 à 03:23
30 avril 2008 à 18:14
ciao
11 oct. 2006 à 11:23
On ce rapelle pas toujours avec exactitude les paramètres d'une fonction dans une api.
La un petit module que l'on rajoute et on peu ajouter, modifier, supprimer, l'intérieur d'un fichier ini.
Sans vouloir être méchant certaine personne disans "y marche même pas chez moi, c'est de la gr..." ferais mieux d'apprendre a programmer avant de mettre ce genre de commentaire.
Cependant il est regretable que ces fonctions ne gère pas les erreurs correctement et que les types de données ne correspondent pas a ceux de l'api qu'il utlise.
Par exemple
# '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)
# INIWrite = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
# End Function
# 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
Il est regrettable que le type de donnée renvoyé est une String au lieu d'un Long, et il aurais peut etre été plus judicieux de mettre un booleen.
2 mai 2006 à 23:38
je ovis que personne ne te reponds !
alors tu connais les fichiers ini, ils sont composés de section, de clés, et de valeurs.
exemple (le fichier s'appelle 'essai.ini' :
----------
[SECTION]
cle=valeur
----------
et bien avec ce prog, pour lire la valeur, faut faire :
-------------
Dim reponse as string
reponse = INIRead( "SECTION" , "cle" , "essai.ini" )
-------------
et reponse aura pour valeur "valeur".
t'as compris pour lire ?
pour ecrire c'est pareil :
rien = INIWrite( "SECTION, qui sera crée si existe pas", "clé", "valeur" , "essai.ini"
"rien" ne sert a rien, mais vu que c'est une fonction, ça renvoie une valeur, donc faut mettre qqch !
pour supprimer rien de plus simple :
1) supprimer une clé
rien = INIDelete( "SECTION" , "cle" , "essai.ini")
2) supprimer une section :
rien = INIDeleteSection( "SECTION" , "essai.ini")
voila voila !!
j'espere que t'a compris !!
en tout cas moi j'utilise cette source des que j'ai des fichiers ini, donc merci Chrystalyst !!
salut !
Gagou
2 mai 2006 à 11:28
Cro fort !
21 nov. 2005 à 21:10
J'attend sans plus y croire aujourd'hui une réponse, merci tout de même........
21 nov. 2005 à 01:03
19 nov. 2005 à 23:43
5 nov. 2005 à 22:55
et je dois dire que c'est sans doute ce que je cherchais mais je ne sais pas quoi remplacer et ou.
Je voudrais juste faire le test sur une listbox
merci pour les info.................
1 nov. 2005 à 16:40
voila merci quand meme !!!
salut
31 oct. 2005 à 21:02
arf, c'est juste une erreur!
au début j'avais donné des noms en français aux fonctions puis j'ai modifié pour le mettre sur le site et j'ai oublié de tout modifier, c'est tout
désolé
31 oct. 2005 à 01:00
ouai pour moi c'est parfait chui entrain de faire un gros truc ça va me servir !
09/10 car je comprend pas pourkoi quand j'appelle une fonction genre iniread je suis OBLIGÉ de faire un truc du genre :
...
rien = INIRead(machin...)
...
c'est assez chiant mais bon je m'en debrouille !
sinon pourkoi dans :
Function INIWrite(machin...) As String
Fichier IIf(Fichier "", App.Path & "" & App.EXEName & ".ini", Fichier)
EcrireINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function
tu appelle la fonction INIWrite et tu met EcrireINI = machin...
je comprend pas !!
voila voila
merci !!
a+
12 août 2005 à 11:55
PS: darkteam, au lieu de critiquer bêtement, soit constructif et propose une correction du code !
17 juil. 2005 à 09:27
26 mai 2005 à 02:58
@+Sator 2
5 févr. 2005 à 20:41
Merci Chrystalyst
21 mai 2004 à 19:26
tu sera dans mes greatz!! lol
6 mai 2004 à 14:32
25 déc. 2003 à 23:25
10/10 il y a tout ce qu'il faut.
11 déc. 2003 à 20:15
C'est pas parce que cela ne marche pas chez toi que c'est de la grosse merde.
Faudrait voir à ne pas oublier les règles de courtoisie.
11 déc. 2003 à 10:25
et en plus c'estde la grosse merde !!!
11 nov. 2003 à 21:52
6 nov. 2003 à 09:46
16 sept. 2003 à 15:01
13 juil. 2003 à 22:34
13 juil. 2003 à 22:31
13 juil. 2003 à 20:13