LIRE ET ECRIRE DANS UN FICHIER .INI

Commentaire de Kholera le 18/01/2002 15:24:52

Reponse pour muskafr88 : déclare une variable et affecte lui ce que te retourne la fonction, comme suit...

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 !

Commentaire de fly le 07/09/2002 14:01:33

Bonjour,
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" ??

Commentaire de Jin le 05/01/2003 16:59:28

Franchement, çà pête.
C'est rapide, efficace et utile, et çà remplace 2 pages de mon code...

Commentaire de bayhs le 31/03/2003 20:33:28

ça mérite 10/10

Merci !

Commentaire de Snake77 le 08/06/2003 20:35:44

J' avou que ce code m' a bien servit quand j avais vb6 mais est ce que quelqu un sait comment l' adapter a vb.net??? merci d' avance

Commentaire de Pestouille le 19/06/2003 16:13:39

Merci pour le code !!! 9/10

Commentaire de borton le 11/11/2003 20:22:12

Moi ça me dit : compile error : fin d'instruction attendue
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"

Commentaire de vbkleugg le 01/08/2004 13:16:59

10/10 ! C'est parfait, simple rapide et efficace, ce que je cherchais, merci ;op

Commentaire de danielgrd le 30/10/2004 16:36:44

Hop! Et bien j'ai trouvé la réponse à ma question moi-même! Je n'ai que rejouté un On Error Goto ... et ca marche.

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

Commentaire de dionysos6868 le 04/01/2005 18:02:14

Merci pour le travail j'ai néantmoin une question.

Comment puis je savoir le nombre et le nom des varaible pour une entete ?????

Merci

Commentaire de ntm113 le 09/10/2005 17:59:02

Le prog n'est pas totalement propre :

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 !

Commentaire de Imrahjel le 29/12/2005 11:51:21

Bonjour,
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.

Commentaire de diablamanshadow le 15/08/2006 07:46:54

moi j'ai lu dans les com qu'on disais que pour lire une valeur (se qui est peut probable au vu que le bu d'un ini ses un fichier de config enfin moi perso fichier de config ses plusieur valeur ^^) il fallais pas les parenthese et quand on dois en lire plusieur comme le dit z980x la il faut mettre les parenthese :s

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

Commentaire de zoubi57 le 10/08/2007 20:51:17

Pas mal...
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

Commentaire de quentincabo le 25/02/2008 15:01:21

Merci à Nix et lmrahjel pour ce bout de code bien pratique.