LIRE ET ECRIRE DANS UN FICHIER .INI
Idris
-
23 févr. 2001 à 00:33
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 18 juin 2009 à 06:36
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 18 juin 2009 à 06:36
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/32-lire-et-ecrire-dans-un-fichier-ini
https://codes-sources.commentcamarche.net/source/32-lire-et-ecrire-dans-un-fichier-ini
18 juin 2009 à 06:36
Alors déjà, le code proposé par Imrahjel est du .Net plus que bancal (Strings.Left, Dir ?????)
Ajoutons a cela des déclarations d'APIs non adaptées à .Net, et vous aurez toutes les peines du monde a faire tourner ce code convenablement.
17 juin 2009 à 18:49
merci pour le code, j'utilise vb.net
j'ai une erreur ici : LireINI = Strings.Left$(l_szRetour, l_lRetour)
l'erreur est sur l_lRetour , il me dit que Option Strict On interdit les convertions implicites de 'long' en 'integer'
quelqu'un à une solution ?
je début en vb.net
merci
10 févr. 2009 à 18:04
J'utilise VB.NET 2003, mais ça foire, ma variable l_lRetour prend une valeur énorme : 2251799813685264
ce qui me donne une exception :
System.OverflowException: Arithmetic operation resulted in an overflow.
à la ligne suivante : LireINI = Left$(l_szRetour, l_lRetour)
Auriez-vous une solution ??
Merci d'avance !
19 sept. 2008 à 13:19
28 juil. 2008 à 13:58
j'ai un petit problème avec le dernier post.
vous avez dit de remplacer
LireINI Left$(l_szRetour, l_lRetour) par LireINI Strings.Left$(l_szRetour, l_lRetour)
mais il me met l'avertissement suivant:
il me met qu'une eception de reference null peut se produire au moment de l'execution.
auriez vous une idée
merci
jon51
13 mars 2008 à 09:16
12 mars 2008 à 23:42
chez moi ca me dit
Erreur 2 'Public Property Left() As Integer' n'a aucun paramètre et son type de retour ne peut pas être indexé.
ca bug ici
LireINI = Left$(l_szRetour, l_lRetour)
avec le Left$
savez vous comment faire ?
Merci
25 févr. 2008 à 15:01
8 janv. 2008 à 17:35
Merci à Imrahjel pour la convertion en .NET.
10 août 2007 à 20:51
Pour ceux qui cherche encore comment supprimer une clé du fichier, il suffit d'écrire cette clé avec une valeur nulle.
N.B. Les fichier n'ont pas besoin d'être en . INI. Ça marche aussi avec les .TXT, .REG, etc...
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
' Fonction à ajouter :
Sub DetruitVariableINI( _
Entete As String, _
Variable As String, _
Fichier as strig)
if WritePrivateProfileString _
(Entete, Variable, "", Fichier) = 0 then
MsgBox "Erreur lors de l'écriture"
End Function
private Fichier as string
' Pour l'executer ex :
Fichier = App.Path & "" & App.EXEName & ".txt"
'Ajouter Fichier dans la fonction d'origine EcrireINI
'et la tranformaer en sub avec un teste d'erreur
'WritePrivateProfileString retourne 0 si problème ecriture
EcrireINI("MonEntete", "MaVariable", "MaValeur",Fichier)
DetruitVariableINI "MonEntete", "MaVariable", Fichier
13 juin 2007 à 15:54
Erreur 1 Mot clé non valide en tant qu'identificateur.
Ma déclaration je la fait comme ci dessous :
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
Merci de m'aider je bloque...
Vincent
15 août 2006 à 07:46
donc me demandais un peu ca si on pouvais plus me l'approfondir se serais sympa ^^
disons que j'ai deux entetes avec chacune 2 variables comme je fais pour lire la premiere variable de la premiere entete et mettre sa valeur dans text1 puis mettre la deuxieme valeur de la deuxieme variable de la premiere entete dans text2 puis premiere variable de la deuxieme entete text3 et pour la deuxieme valeur de la deuxiee variable de la deuxieme entete mettre en text4 siouplait ^^
car si je met a la suite 4 lireini bah je recup a la fin que la derniere valeur ou alors faut que je dise lireini puis premiere valeur premiere variable ensuite a la ligne stock sa dans text1 genre
dim E1V1 , E1V2, E2V1, E2V2 as string
E1V1 = LireINI "Entete1", "Variable1"
text1.text = E1V1
E1V2 = LireINI "Entete1", "Variable2"
text2.text = E1V1
E2V1 = LireINI "Entete2", "Variable1"
text3.text = E1V1
E2V2 = LireINI "Entete2", "Variable2"
text4.text = E1V1
il faudrais un truc du genre ?
ou y a t'il un moyen plus simple avec le system de parenthese ? ^^
merci d'avance
Diablaman
27 janv. 2006 à 12:23
10/10
29 déc. 2005 à 11:51
voici une adaptation pour vb.NET:
Copier entre les lignes d'etoiles et coller dans un module
Les appels aux fonctions se font en passant les variables entre parenthèses, séparées par des virgules.
'******** commencer à copier dessous
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Short, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Function LireINI(ByVal pEntete As String, ByVal pVariable As String) As String
Dim l_szRetour As String
Dim l_lRetour As Long
Dim l_szFichier As String
l_szFichier = Application.ExecutablePath.Substring(0, Application.ExecutablePath.LastIndexOf(""c)) & "\config.ini"
If Dir(l_szFichier) = "" Then
MsgBox("Fichier introuvable")
Else
l_szRetour = Space$(255)
l_lRetour = GetPrivateProfileString(pEntete, pVariable, "Error", l_szRetour, 255, l_szFichier)
LireINI = Left$(l_szRetour, l_lRetour)
End If
End Function
Function EcrireINI(ByVal pEntete As String, ByVal pVariable As String, ByVal pValeur As String) As Long
' la fonction retourne 0 (zéro) si elle échoue
' la fonction retourne autre chose si elle réussit
Dim l_szFichier As String
l_szFichier = Application.ExecutablePath.Substring(0, Application.ExecutablePath.LastIndexOf(""c)) & "\config.ini"
EcrireINI = WritePrivateProfileString(pEntete, pVariable, pValeur, l_szFichier)
End Function
'******** arrêter de copier dessus
En espérant avoir aider ceux qui passent sous .NET
Bonne année à tous,
Imrahjel.
29 nov. 2005 à 10:19
merci d'avance
9 oct. 2005 à 17:59
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
Le WriteINI il sert à rien et il vient de nulle part et çà n'a pas de sens de déclarer la fonction As String.
Je ne met qu'un 8/10 pour la peine !
13 avril 2005 à 16:32
je n'arrive pas a faire marché ce code. J'ai modifié le nom du fichier .ini mais rien à faire.
Dans le message que je renvoie, toujours vide !
au secours !
zékinan
4 janv. 2005 à 18:02
Comment puis je savoir le nombre et le nom des varaible pour une entete ?????
Merci
1 janv. 2005 à 16:56
30 oct. 2004 à 16:36
Mais je serais quand même curieux de savoir si il y aurait vraiment quelque chose à mettre à la place du 'RIEN' et qui ferait la même chose.
Donc, vous pouvez quand même essayer de répondre a la question...
MErci
30 oct. 2004 à 16:32
Comment je pourrais faire cela: (EXEMPLE)
(SI LA VARIABLE N'EXISTE PAS, FAIRE UNE ACTION)
Il faudrait remplacer 'RIEN' par quoi????
--------------------------------------------------------------------------
If LireINI("Ligne Un Entete", "NomVariable") = 'RIEN' Then
MsgBox "1"
End If
--------------------------------------------------------------------------
Merci
1 août 2004 à 13:16
12 nov. 2003 à 00:39
11 nov. 2003 à 20:22
Quelqu'un a eu la même erreur??
Après avoir eu cette erreur, le cursor se place à cet endroit :
"Open Nom_Fichier For Binary Access Read As #1"
5 oct. 2003 à 21:03
qui sauve la vie en 2 minutes !
Merci
19 juin 2003 à 16:13
9 juin 2003 à 20:47
EcrireINI "MonEntete", "MaVariable", "MaValeur"
Sauf quand tu veux LIRE que deux valeurs, il faut mettre les parentheses.
Sinon je met 10/10 !
8 juin 2003 à 20:35
13 mai 2003 à 13:29
31 mars 2003 à 20:33
Merci !
23 mars 2003 à 14:35
5 janv. 2003 à 16:59
C'est rapide, efficace et utile, et çà remplace 2 pages de mon code...
8 déc. 2002 à 19:22
merci
et je souhaiterai egalement savoir comment le fichier ini peut etre lu (chargé) par une application.
7 sept. 2002 à 14:01
Ch'suis nouveau sur ce site sympas.
Y'a déjà un pb, est ce que quelqu'un peut m'expliquer l'intérêt d'avoir le nom de la variable retourné par LireINI "MonEntete", "MaVariable" plutôt que sa valeur ?
Ce qui m'interesserais sera de pouvoir récupérer la valeur de cette variable après l'avoir écrite avec EcrireINI "MonEntete", "MaVariable", "MaValeur" ??
8 avril 2002 à 18:30
18 janv. 2002 à 15:24
Dim strTemp as String
strTemp = LireINI("MonEntete", "MaVariable")
OU au Form_Load() de ton prog ou d'une page affecte le résultat directement à une textBox par exemple :
text1.text = LireINI("MonEntete", "MaVariable")
Voilà, amuse toi bien !
14 janv. 2002 à 20:03
Quelqu'un peut me dire comment retourner le LireINI "Entete", "variable" dans une variable ?
J'ai essayer de plusieurs facons, sans jamais reussir, merci de me donner un petit exemple.
muskafr
14 nov. 2001 à 18:07
Pour repondre un peu à ceux qui se posent les mêmes question que assassins:
Le fichier ini a le nom de l'executable et se trouve dans le repertoire de se dernier...
Pour choisir autre chose il suffit de changer se qu'il y a derriere fichier=
l'exemple ne fonctionne pas il faut mettre:
EcrireINI "MonEntete", "MaVariable", "MaValeur"
LireINI "MonEntete", "MaVariable"
Voila c'est un code genial, mais qui ne permet pas d'effacer les clefs... mais c'est pas grave...es ce vraiment utile ? suffit de mettre "" à la valeur si on en veux plus...
Un grand merci
Ephaystos
30 sept. 2001 à 18:45
30 sept. 2001 à 18:30
26 avril 2001 à 09:45
15 mars 2001 à 18:30
13 mars 2001 à 17:39
23 févr. 2001 à 00:33
Cool