[VS2003][.NET 1.1][VB.NET] un seul fichier .exe.config pour plusieurs applications ?

**lucie.houel** · 25/01/2007, 16h01

Bonjour à tous et à toutes,

J'espère que je poste au bon endroit.

Ma question est la suivante, j'ai plusieurs petites "applications windows" qui utilisent les mêmes paramètres de configuration (les fichiers App.config et monapplication.exe.config ont les mêmes contenus). Je voulais savoir s'il était possible de spécifier le chemin vers le fichier de conf, en fait de ne pas utiliser le monapplication.exe.config, mais un autre qui serait en fait commun à tous .... j'suis flemmarde et lors des mises en prod, ça me saoule de me taper la même modification plusieurs fois

Merci d'avance pour votre aide précieuse

**lucie.houel** · 26/01/2007, 10h28

personne n'a d'infos pour moi ?

**N.Anis** · 26/01/2007, 22h44

Salut,

le fichier de configuration doit être placer dans le rep de l'executable et on ne peut pas spécifier le chemain de fichier de configuration -> donc impossible de partagé le fichier on plus le nom de fichier est doit êre nonExecuatble.exe.config.mais tu peux voir le fichier de configuration de la machine machine.config mais il touche a tous les application DotNet installé sur la machine (web + windows). c'est le fichier pére des tous les fichiers de configuration. mais je te conseille pas.

**lucie.houel** · 29/01/2007, 09h12

Bah merci pour ta réponse

**cacalex** · 02/02/2007, 14h03

Y'a moyen...

Remplace seulement la function CheminExecutable pour donner le chemin d'accès au fichier config...

Ex. :
Return "C:\Dossier\Fichier.config"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
'Module de lecture/écriture
'Du fichier d'options 
'(prog.exe.config)
'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Imports System.IO
Imports System.Xml
Imports System.Reflection.Assembly
Module Options
 
    Private XmlDocument As XmlDocument
 
    'CheminProg & "\" & NomProg & ".exe.config"
    'Cette String devient Donc "C:\(...)\NomProg.exe.config"
    Private Function CheminExecutable_NomFichier() As String
        Return Application.StartupPath & "\" & GetExecutingAssembly.GetName.Name & ".exe.config"
    End Function
 
    'Enregistrer une valeur du fichier d'option :
    'Options.EnregistrerOptions(NomOption, ValOption)
    Public Function EnregistrerOption(ByVal NomOption As String, ByVal ValOption As String)
        If File.Exists(CheminExecutable_NomFichier) Then
            'Creer fichier pour manipulation dans XML DOM.
            Dim FichierOption As New System.Xml.XmlDocument
            'Charger le fichier d'options
            FichierOption.Load(CheminExecutable_NomFichier)
            'Creer une Node (Noeud) XML pour lecture
            Dim Node As System.Xml.XmlNode
            'Vérifier les lignes du fichier d'options
            For Each Node In FichierOption.Item("configuration").Item("appSettings")
                If Node.Name = "add" Then
                    ' Trouver la ligne d'options
                    If Node.Attributes.GetNamedItem("key").Value = NomOption Then
                        'Si la ligne est differentes de la valeur voulue
                        If (Node.Attributes.GetNamedItem("key").Value).ToString <> CType(ValOption, String) Then
                            'Changer la valeur de l'option pour  la valeur voulue
                            Node.Attributes.GetNamedItem("value").Value = CType(ValOption, String)
                            ' Enregistrer la configuration
                            FichierOption.Save(CheminExecutable_NomFichier)
                            Exit For
                            'vider tout
                            FichierOption = Nothing
                            Node = Nothing
                            Exit Function
                        End If
                    End If
                End If
            Next Node
        End If
    End Function
 
    'Lire Une valeur du fichier d'option :
    'Options.LireOptions(NomOption)
    Public Function LireOption(ByVal NomOption As String, Optional ByVal Rubrique As String = "appSettings") As String
        Dim StrFichier As String = CheminExecutable_NomFichier()
        If File.Exists(StrFichier) Then
            Dim XmlNode As XmlNode
            XmlDocument = New XmlDocument
            XmlDocument.Load(StrFichier)
            XmlNode = _
            XmlDocument.DocumentElement.SelectSingleNode("/configuration/" & Rubrique & "/add[@key=""" & NomOption & """]")
            Return Trim(XmlNode.Attributes.GetNamedItem("value").Value)
        End If
    End Function
 
End Module

**lucie.houel** · 05/02/2007, 11h31

Merci pour ton aide .... tu l'appelles où cette fonction qui te retourne le bon chemin ?

**cacalex** · 07/02/2007, 16h17

Tout simplement dans les function EnregistrerOption et LireOptions...

Donc, un fois la function CheminExecutable_NomFichier modifié, tu ne t'occupe plus de rien...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Public Function EnregistrerOption(ByVal NomOption As String, ByVal ValOption As String)
        If File.Exists(CheminExecutable_NomFichier) Then
            'Creer fichier pour manipulation dans XML DOM.
            Dim FichierOption As New System.Xml.XmlDocument
            'Charger le fichier d'options
            FichierOption.Load(CheminExecutable_NomFichier)

Je rajouterais que ceci te permet seulement d'utiliser le fichier app.config comme un fichier d'options... Evidement, si tu t'en sert autrement, ça risque de ne pas fonctionner...