LECTURE D'UN INI FILE EN VB.NET

Commentaire de ronanry le 15/01/2003 18:33:10

uh....j'en reste sans voix....
j'ai pas tester perso parce que j'ai pas compris a quoi ca servait..(honte a moi)
mais tu as du sacrement te casser la tete pour faire marcher tout ca....

Commentaire de TroXsA le 22/01/2004 09:49:13

salut !

Juste pour dire que de copier coller un code sans commantaire sa sers a rien ! on sais meme pas quoi faire avec sa !

mais en tout ca sa donne des idés
si tu pouvais faire qu'elle que modification sur ton code et dire comment sa fonctionne sa serait trop top !

merci

Commentaire de 666Ange le 16/04/2004 02:57:28

Ca marche comme ca a peu près :

Dim INI As New INIReader(Application.StartupPath.ToString() & "\datas.ini")

INI.Write("essai", "t", 100) 'creer une section "essai" qui contient une clé "t" de valeur 100

INI.DeleteKey("essai", "t") 'efface la clé "t" de la section "essai"

'Tu peux meme faire if(not INI.DeleteKey("essai", "t")) then erreur etc etc ...

Commentaire de TroXsA le 16/04/2004 09:36:10

oui et pour la lecture ?

Commentaire de skowee59 le 19/04/2004 11:50:03

Qq'un pourrait-il me dire à quoi correspond ==> New INIReader ?
Faut-il ajouter une référence pour pouvoir s'en servir ?
D'avance, merci.

Commentaire de skowee59 le 19/04/2004 13:55:28

Effectivement, pour l'instant, je n'avais pas télécharger le ZIP car je ne pensais pas qu'il y avait une classe dedans.
C ça qd on est pressé ;-) lol
Merci pour l'info.
@+

Commentaire de JBE57 le 28/09/2004 16:06:53

Géant! juste ce qu'il me falait!
En effet, dur dur, le passage vers VB.net!

Commentaire de GAETANDAUSSY le 24/01/2006 10:12:29

superbe source
grand merci

chdauss

Commentaire de lebelm le 04/06/2006 05:16:58

Super, on aurait pas pu avoir plus simple. Rien de plus à ajouter à part un gros merci.

Commentaire de pbocsak le 30/07/2006 22:26:37

Je ne sais pas ce que vous utilisez comme compilateur, mais mon MS VB 2005 Express Edition me dit "INIReader" is not defined :-s. J'ai loupé qqch?

Commentaire de Namiro le 06/08/2006 15:51:58

Je ne suis que débutant en VB,mais j'ai quand même compris comment me servir de cette classe, et là j'ai été époustouflé, depuis le temps que je cherchais en vain comment réussir à manipuler des fichiers ".ini", et bien là j'ai été servi. Alors un grand merci à celui qui à écrit ce code mais aussi à ce site, grâce auquel il faut bien le dire je n'aurais jamais trouvé autant de codes sources et d'aides.Merci encore

Commentaire de EvilGost le 06/08/2006 19:00:07

Pas bete Namiro, j'avais pas fait le rapprochement avec DEFault VALue...merci a toi :)

Commentaire de ketchoupi le 20/09/2006 18:20:00

Un grand merci cette petite class ma fait gagner un temps precieux

Commentaire de Bidou le 14/11/2006 20:50:07 administrateur CS

La source a été créée en 2003, ce qui explique certainement le fait de l'utilisation de l'extension INI.
Il est clair qu'à l'heure actuelle, la source est devenue obsolète, tous fichiers INI devant être, à mon humble avis, remplacer par un fichier XML.

Commentaire de pokeswell le 11/01/2008 05:39:00

Merci beaucoup, vous venez de me sauver des heures!

Commentaire de circular le 18/10/2009 19:18:13

Il manque une fonction pour lire une section entière... que voilà. Cela permet notamment de récupérer la liste des clés.

    ''' <summary>Retrieves a dictionary of an entire section in the INI file.</summary>
    ''' <returns>Returns a Dictionary with all available keys.</returns>
    Public Function GetSection(ByVal SectionName As String) As Dictionary(Of String, String)
        GetSection = New Dictionary(Of String, String)
        Dim Buffer(MAX_ENTRY) As Byte
        Dim BuffStr As String
        Dim PrevPos As Integer = 0
        Dim Length As Integer
        Try
            Length = GetPrivateProfileSection(SectionName, Buffer, MAX_ENTRY, Filename)
        Catch
            Exit Function
        End Try
        If Length > 0 Then
            BuffStr = System.Text.Encoding.Default.GetString(Buffer)
            Length = 0
            PrevPos = -1
            Do
                Length = BuffStr.IndexOf(ControlChars.NullChar, PrevPos + 1)
                If Length - PrevPos = 1 OrElse Length = -1 Then Exit Do
                Dim Entry As String = BuffStr.Substring(PrevPos + 1, Length - PrevPos)
                Dim PosEquals As Integer = Entry.IndexOf("="c)
                If PosEquals = -1 Then
                    GetSection.Add(Entry, "")
                Else
                    GetSection.Add(Entry.Substring(0, PosEquals), Entry.Substring(PosEquals + 1))
                End If
                PrevPos = Length
            Loop
        End If
    End Function