Écriture dans un INI

Version imprimable

Bonjour, Bonsoir à tous,

Après pas mal de recherches, je n'arrive pas à trouver code à ma main ?
Je travaille en fait sur du Visual Studio 2012 et je ne trouve que des codes obsolètes que je n'arrive pas à adapter.

Je travaille sur un fichier .INI que j'arrive parfaitement à lire.
Le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Function lire_valeur(ByVal Cle As String) As String Try For Each Ligne As String In IO.File.ReadAllLines("MONFICHIERINI.ini") If Ligne.Split("=")(0) = Cle Then Return Ligne.Split("=")(1) End If Next Catch ex As Exception MsgBox(ex.Message) End Try End Function
( Je passe une clé en paramètre et le code me donne sa valeur tout simplement. )

Là où je sèche c'est si je veux écrire des valeurs. Je voudrais par exemple préciser la clé et la valeur à mettre pour cette clé en paramètre et la fonction se charge d'écrire en là ou il faut. Mais je ne trouve pas.

A savoir aussi que la clé peut déjà exister et avoir déjà une valeur que je veux tout simplement remplacer.

Merci d'avance pour votre aide !

22/07/2013, 17h20
chaparo

Ou est ton code d'ecriture ?

Dans la bible de Mr P. Lasserre tu devrais avoir ce qui t'interesse est au chapitre V-AC-5 - Utiliser "FileOpen" du VisualBasic, je mets pas le numero de page car il depend des versions.
22/07/2013, 19h08
BlackAlpha

Je n'en ai pas justement. Je ne sais pas comment le faire.
J'essaierais de me renseigner un peu sur le livre mais si quelqu'un a d'autres pistes je suis preneur !
22/07/2013, 19h36
chaparo

Le cour est la

Bonsoir,

Utilises cette classe :

Code:

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
 
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Text
 
Public Class Cls_Ini
 
    Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringW" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, ByVal lpDefault As String, _
    ByVal lpReturnedString As String, ByVal nSize As Int32, _
    ByVal lpFileName As String) As Int32
 
    Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringW" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, ByVal lpString As String, _
    ByVal lpFileName As String) As Int32
 
    Public Shared Sub INIDelete(ByVal INIPath As String, ByVal SectionName As String)
  Dim lpKeyName As String = Nothing
  Dim lpString As String = Nothing
  WritePrivateProfileString(SectionName, lpKeyName, lpString, INIPath)
    End Sub
 
    Public Shared Sub INIDelete(ByVal INIPath As String, ByVal SectionName As String, ByVal KeyName As String)
  Dim lpString As String = Nothing
  WritePrivateProfileString(SectionName, KeyName, lpString, INIPath)
    End Sub
 
    Public Shared Function INIRead(ByVal INIPath As String) As String
  Return INIRead(INIPath, Nothing, Nothing, "")
    End Function
 
    Public Shared Function INIRead(ByVal INIPath As String, ByVal SectionName As String) As String
  Return INIRead(INIPath, SectionName, Nothing, "")
    End Function
 
    Public Shared Function INIRead(ByVal INIPath As String, ByVal SectionName As String, ByVal KeyName As String) As String
  Return INIRead(INIPath, SectionName, KeyName, "")
    End Function
 
    Public Shared Function INIRead(ByVal INIPath As String, ByVal SectionName As String, ByVal KeyName As String, ByVal DefaultValue As String) As String
  Dim lpReturnedString As String = Strings.Space(2048)
  Dim length As Integer = GetPrivateProfileString(SectionName, KeyName, DefaultValue, lpReturnedString, lpReturnedString.Length, INIPath)
  If length > 0 Then
    Return lpReturnedString.Substring(0, length)
  End If
  Return ""
    End Function
 
    Public Shared Sub INIWrite(ByVal INIPath As String, ByVal SectionName As String, ByVal KeyName As String, ByVal TheValue As String)
  WritePrivateProfileString(SectionName, KeyName, TheValue, INIPath)
    End Sub
 
End Class

Comment l'utiliser :

1- Ecrire une valeur :

Code:

Cls_Ini.INIWrite("C:\YourIniFile.ini", "Section0", "Key0","Value0")

2- Lire une valeur :

Code:

Dim Val as string = Cls_Ini.INIRead("C:\YourIniFile.ini", "Section0","Key0")

3- Exemple de contenu du fichier .ini :

Code:

1
2
3
 
[Section0]
Key0=Value0

A+

23/07/2013, 11h38
The_Big_Lebowski

Utilise plutôt un fichier XML si tu as le choix.
Le frameWork te permettra d'aller bien plus loin dans le traitement de celui-ci. (XSD.exe et création auto des classes, serialisation, ...).

Les fichiers INI n'existent plus
23/07/2013, 23h12
wallace1

Citation:

Envoyé par The_Big_Lebowski

Utilise plutôt un fichier XML si tu as le choix.
Le frameWork te permettra d'aller bien plus loin dans le traitement de celui-ci. (XSD.exe et création auto des classes, serialisation, ...).

Les fichiers INI n'existent plus

Personnellement j'utilise cette librairie : http://www.codeproject.com/Articles/...simple-at-last

mais il demandait de l'aide sur les fichiers .ini alors je pense qu'il faut avant tout l'orienter dans cette voie avant de lui proposer une alternative. ;)
25/07/2013, 08h40
BlackAlpha

Le code de wallace1 m'intéresse. Merci. J'essaie de le mettre en place mais je pense que ça doit aller :ccool:

Le XML après me paraît peut être un peu "trop" par rapport a ce que je veux stocker (même pas 10 valeurs).
Mais c'est toujours intéressant de savoir que c'est un peu mieux :)
25/07/2013, 10h20
ebastien

Bonjour,
Si c'est pour stocker quelques valeurs de type simple, il existe aussi les paramètres utilisateur et application : My.Settings
Simple et efficace.

eb.