LECTURE D'UN INI FILE EN VB.NET
ronanry
Messages postés
190
Date d'inscription
lundi 25 novembre 2002
Statut
Membre
Dernière intervention
22 décembre 2009
-
15 janv. 2003 à 18:33
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 - 4 oct. 2012 à 13:34
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 - 4 oct. 2012 à 13:34
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5665-lecture-d-un-ini-file-en-vb-net
https://codes-sources.commentcamarche.net/source/5665-lecture-d-un-ini-file-en-vb-net
4 oct. 2012 à 13:34
4 oct. 2012 à 12:45
21 juil. 2011 à 22:28
Public Function ReadByteArray(ByVal Section As String, ByVal Key As String, ByVal Length As Integer) As Byte()
If Length > 0 Then
Try
Dim Buffer(Length - 1) As Byte
If GetPrivateProfileStruct(Section, Key, Buffer, Buffer.Length, Filename) = 0 Then
Return Nothing
Else
Return Buffer
End If
Catch
Return Nothing
End Try Else '<cette partie n'existait pas et donc rien n'etait retourné si length0
Return Nothing
End If
End Function
20 oct. 2009 à 19:35
BuffStr.Substring(PrevPos + 1, Length - PrevPos)
par
BuffStr.Substring(PrevPos + 1, Length - PrevPos - 1)
dans les deux fonctions, sinon il y a un caractère zéro inclus à la fin de la chaine de caractère.
18 oct. 2009 à 19:19
<DllImport("KERNEL32.DLL", EntryPoint:="GetPrivateProfileSectionA", SetLastError:=False, CharSet:=CharSet.Ansi, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Private Shared Function GetPrivateProfileSection(ByVal lpAppName As String, ByVal lpReturnedString As Byte(), ByVal nSize As Integer, ByVal lpFileName As String) As Integer
End Function
18 oct. 2009 à 19:18
''' <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
8 juin 2008 à 07:36
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.
je ne suis pas tout a fait d'accord..car le fichier ini est nettement plus simple a editer en worpad pour des utilisateurs novice...apres effectivement le Xml reste le plus performant
11 janv. 2008 à 05:39
6 mars 2007 à 17:10
Pour rebondir, sur le commentaire de Bidou. Je dirais que le fichier XML config généré par VB.net est simple à créer et à utiliser dans la source mais à mon sens pas simple pour une personne extérieur: le code des paramétres est mélangé avec d'autres infos, et je ne crois pas qu'il soit possible de rajouter des commentaires sur les paramètres (ce que permet le fichier ini).
14 nov. 2006 à 20:50
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.
14 nov. 2006 à 19:24
Avant de me lancer dans la récupération des api, j'ai voulue voir si rien n'avait été implanté dans .net.
Et je suis arrivé ici. Pratique quand la msdn pointe sur son site de source préféré
Thanks
20 sept. 2006 à 18:20
6 août 2006 à 20:25
6 août 2006 à 19:00
6 août 2006 à 16:12
mais à quoi sert "DefVal" dans le ReadString? " je croi avoir compris que c'est la valeur qui sera renvoyée si aucune occurence n'a été trouvée par exemple si tu cherches une clé qui n'existe pas, et bien cette fonction de renverra la valeur DefVal.
6 août 2006 à 15:51
4 août 2006 à 11:22
mais à quoi sert "DefVal" dans le ReadString?
30 juil. 2006 à 22:26
14 juil. 2006 à 19:25
Code simple, bien fait ... en gros rien à redire
Merci beaucoup, ce code va me faire sauver beaucoup de temps ^_^
PY
4 juin 2006 à 05:16
11 avril 2006 à 22:53
Bravo
24 janv. 2006 à 10:12
grand merci
chdauss
11 mai 2005 à 00:10
Y a vraiment rien à redire, c'est tout simplement du travail de pro. Merci pour ça!!!
28 sept. 2004 à 16:06
En effet, dur dur, le passage vers VB.net!
29 août 2004 à 01:55
dur le passage en VB.net !!!!!
mais ça viendra comme le vb6
19 avril 2004 à 13:55
C ça qd on est pressé ;-) lol
Merci pour l'info.
@+
19 avril 2004 à 12:36
19 avril 2004 à 11:50
Faut-il ajouter une référence pour pouvoir s'en servir ?
D'avance, merci.
16 avril 2004 à 16:53
Valeur=INI.ReadString("TAG", "KEY", "")
16 avril 2004 à 09:36
16 avril 2004 à 08:33
16 avril 2004 à 02:57
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 ...
16 avril 2004 à 02:49
Bon source utile pret à l'emploi pour tous les niveaux ! Bravo et merci ca évite de se fatiguer à tout écrire et réinventer soi même ce qui existe déja.
Toute ma reconnaissance
Cordialement, Bill Tcherno
22 janv. 2004 à 09:49
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
10 juin 2003 à 17:05
Un petit probleme toutefois : je n'ai pas réussi à utiliser DeleteKey et DeleteSection :(
Si tu pouvais m'éclairer un peu, je n'ai pas du tout comprendre de comment on s'en sert :)
tchô
15 janv. 2003 à 18:33
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....