Modif fichier INI

**Kamikazoide** · 01/08/2017, 02h30

Bonjour, j'utilise du code trouvé sur le net pour gérer les fichiers INI (oui c'est mal sauf que vue la complexité, c’était la meilleur chose à faire pour mon cas

)

Voici le code en entier (les fonctions pour supprimer la clé et la section sont à partir de la ligne 97) :

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
Imports System.Runtime.InteropServices.Marshal
 
Public Class FichierINI
    Private Declare Function GetPrivateProfileSection Lib "kernel32.dll" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedBuffer As IntPtr, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
    Private Declare Function GetPrivateProfileSectionNames Lib "kernel32.dll" Alias "GetPrivateProfileSectionNamesA" (ByVal lpszReturnBuffer As IntPtr, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
    Private Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedBuffer As IntPtr, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
    Private Declare Function WritePrivateProfileSection Lib "kernel32.dll" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
    Private Declare Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
 
    'Retourne un booléen indiquant l'existance ou non d'une section
    Public Function ExisteSection(ByVal File As String, ByVal Section As String) As Boolean
        Dim PtrCh As IntPtr
        Dim Lng As Integer
 
        PtrCh = StringToHGlobalAnsi(New String(vbNullChar, 1024))
        Lng = GetPrivateProfileSection(Section, PtrCh, 1024, File)
 
        Return Lng
    End Function
 
    'Retourne une collection contenant l'ensemble des sections du fichier "File"
    Public Function GetAllSections(ByVal File As String) As Collection
        Dim PtrCh As IntPtr
        Dim Sections As Collection
        Dim I, Lng As Integer
        Dim Chaine, SChaine As String
 
        PtrCh = StringToHGlobalAnsi(New String(vbNullChar, 1024))
        Lng = GetPrivateProfileSectionNames(PtrCh, 1024, File)
        Chaine = PtrToStringAnsi(PtrCh, Lng)
        FreeHGlobal(PtrCh)
 
        Sections = New Collection
        SChaine = ""
        For I = 0 To Lng - 1
            If Chaine.Chars(I) = vbNullChar Then
                Sections.Add(SChaine)
                SChaine = ""
            Else
                SChaine = SChaine & Chaine.Chars(I)
            End If
        Next
        GetAllSections = Sections
        Sections = Nothing
    End Function
 
    'Retourne une collection contenant l'ensemble des clés de la section "Section" du fichier "File"
    Public Function GetSectionCles(ByVal File As String, ByVal Section As String) As Collection
        Dim PtrCh As IntPtr
        Dim Cles As Collection
        Dim I, Lng As Integer
        Dim Chaine, SChaine As String
 
        PtrCh = StringToHGlobalAnsi(New String(vbNullChar, 1024))
        Lng = GetPrivateProfileSection(Section, PtrCh, 1024, File)
        Chaine = PtrToStringAnsi(PtrCh, Lng)
        FreeHGlobal(PtrCh)
 
        Cles = New Collection
        SChaine = ""
        For I = 0 To Lng - 1
            If Chaine.Chars(I) = vbNullChar Then
                Cles.Add(SChaine)
                SChaine = ""
            Else
                SChaine = SChaine & Chaine.Chars(I)
            End If
        Next
        GetSectionCles = Cles
        Cles = Nothing
    End Function
 
    'Retourne la valeur de la clé "Cle" de la section "Section" du fichier "File"
    Public Function GetCle(ByVal File As String, ByVal Section As String, ByVal Cle As String) As String
        Dim PtrCh As IntPtr
        Dim Lng As Integer
        Dim Chaine As String
 
        PtrCh = StringToHGlobalAnsi(New String(vbNullChar, 1024))
        Lng = GetPrivateProfileString(Section, Cle, "", PtrCh, 255, File)
        Chaine = PtrToStringAnsi(PtrCh, Lng)
        FreeHGlobal(PtrCh)
 
        GetCle = Chaine
    End Function
 
    'Insère une section dans le fichier "File"
    Public Function SetSection(ByVal File As String, ByVal Section As String, ByVal Valeur As String) As Boolean
        SetSection = WritePrivateProfileSection(Section, Valeur, File)
    End Function
 
    'Insère la clé "Cle" dans la section "Section" du fichier "File"
    Public Function SetCle(ByVal File As String, ByVal Section As String, ByVal Cle As String, ByVal Valeur As String) As Boolean
        SetCle = WritePrivateProfileString(Section, Cle, Valeur, File)
    End Function
 
    'Efface toute les clés de la section "Section"
    Public Function DelSection(ByVal File As String, ByVal Section As String) As Boolean
        DelSection = WritePrivateProfileSection(Section, "", File)
    End Function
 
    'Efface la valeur de la clé "Cle" de la section "Section"
    Public Function DelCle(ByVal File As String, ByVal Section As String, ByVal Cle As String) As Boolean
        DelCle = WritePrivateProfileString(Section, Cle, "", File)
    End Function
End Class

Sauf que pour effacer une clé ou une section, au lieu de la supprimer définitivement il me met une valeur nul pour la clé et pour la section il me supprime uniquement les clé

Exemple:

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
'De base
 
[Section]
Cle1=Valeur1
Cle2=Valeur2
 
'Après avoir supprimé les clés
 
[Section]
Cle1=
Cle2=
 
'Après avoir supprimé la section
 
[Section]

Et moi j'aimerai qu'il me supprime tout au lieu de me laisser la clé ou la section, est ce que que quelqu'un aurait une idée pour les modifications à effectuer dans le code ? (mes recherches sur le net étant infructueuses....)

Merci d'avance pour vos réponses

**Sun.Wu.Kong** · 01/08/2017, 11h58

Je pense que ça vient des chaîne vide que tu utilises dans les méthodes delete. Il faut utiliser null à la place je pense.

**ZenZiTone** · 01/08/2017, 12h22

Envoyé par Kamikazoide

Bonjour, j'utilise du code trouvé sur le net pour gérer les fichiers INI (oui c'est mal sauf que vue la complexité, c’était la meilleur chose à faire pour mon cas

)

Pourquoi ne pas utiliser un fichier XML? Tu design ton modèle de données et en deux lignes tu écris et lis ton fichier... Où est la complexité?

**Kamikazoide** · 01/08/2017, 15h21

Envoyé par ZenZiTone

Pourquoi ne pas utiliser un fichier XML? Tu design ton modèle de données et en deux lignes tu écris et lis ton fichier... Où est la complexité?

J'ai fait le choix d'un fichier INI plutôt que XML vue que mes fichiers contiendront plusieurs centaines de clés et des dizaines de sections différentes avec un nombre et nom de clés différents pour presque chaque section. Les fichiers INI me semble donc plus adapté pour mon cas.

Invité · 06/08/2017, 12h05

Bonjour,
Personnellement,j'avais opté pour un xml comme fichier de config Hors j'ai rencontré des problèmes de lectures écritures entre les différents utilisateurs.

Je me suis rabattu sur du SqlLite.

**clementmarcotte** · 06/08/2017, 23h36

Bonjour,

Tu peux toujours jeter un œil là-dessus

**Kamikazoide** · 07/08/2017, 02h57

Envoyé par clementmarcotte

Bonjour,

Tu peux toujours jeter un œil là-dessus

Yes merci, c'est exactement ce que je cherchais !

Envoyé par dysorthographie

Je me suis rabattu sur du SqlLite

Je connaissais le SQL et notamment le SQL server pour les bases de données en ligne, mais le SQLite je l'ai connu grâce à ton message.

Donc oui effectivement pour mon usage il pourrai être pas mal et il semble assez simple d'utilisation tout en me permettant de commencer à mettre les mains dans le SQL. Mais sinon, y a t'il des avantages et inconvenants significatif (en terme de rapidité, simplicité, praticité ...) entre le INI, XML et le SQLite et lequel des trois me conseilleriez-vous ?

**wallace1** · 07/08/2017, 08h00

bonjour,

Le sujet de ta derniere interrogation a deja eté traité ici :

https://www.developpez.net/forums/d1...n/#post8767952

++

**Kamikazoide** · 07/08/2017, 19h01

Merci

Je vais plutôt suivre "dysorthographie" et me lancer dans le SQLite qui semble le plus adapté à mon usage pour la gestion de données et principalement en base de données local

Merci à tous pour vos réponses en tout cas

Modif fichier INI [Débutant]

VB.NET

Discussions similaires

Partager

Partager