begin process at 2012 02 13 17:47:45
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Système

 > LECTURE D'UN INI FILE EN VB.NET

LECTURE D'UN INI FILE EN VB.NET


 Information sur la source

Note :
9,5 / 10 - par 4 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Système Source .NET ( DotNet ) Classé sous :ini, file, fichier, lecture Niveau :Initié Date de création :15/01/2003 Date de mise à jour :16/01/2003 21:11:52 Vu / téléchargé :18 016 / 2 383
Auteur : michelsto

Ecrire un message privé
Site perso
Commentaire sur cette source (34)
Ajouter un commentaire et/ou une note

 Description

Cette classe permet de lire et d'écrire dans des fichier INI pratique pour la configuration d'une application. Ci dessous un exemple d'utilisation de la classe.

Source

  • Dim INI As New INIReader(CurrentDir + "\IPForward.ini")
  • Dim FTPHostAdr As String = INI.ReadString("GENERAL", "FTPHostAdr", "")
  • Dim FTPHostUser As String = INI.ReadString("GENERAL", "FTPHostUser", "")
  • Dim FTPHostPass As String = INI.ReadString("GENERAL", "FTPHostPass", "")
  • Dim FTPHostOnlineTemplate As String = INI.ReadString("GENERAL", "FTPHostOnLineTemplate", "")
  • Dim FTPHostOffLineTemplate As String = INI.ReadString("GENERAL", "FTPHostOffLineTemplate", "")
  • Dim FTPHostTarget As String = INI.ReadString("GENERAL", "FTPHostTarget", "")
  • Dim FTPHostReplaceString As String = INI.ReadString("GENERAL", "FTPHostReplaceString", "")
  • Dim RefreshInterval As Integer = INI.ReadInteger("GENERAL", "RefreshInterval", 60 * 10) 
    Dim INI As New INIReader(CurrentDir + "\IPForward.ini")
    Dim FTPHostAdr As String = INI.ReadString("GENERAL", "FTPHostAdr", "")
    Dim FTPHostUser As String = INI.ReadString("GENERAL", "FTPHostUser", "")
    Dim FTPHostPass As String = INI.ReadString("GENERAL", "FTPHostPass", "")
    Dim FTPHostOnlineTemplate As String = INI.ReadString("GENERAL", "FTPHostOnLineTemplate", "")
    Dim FTPHostOffLineTemplate As String = INI.ReadString("GENERAL", "FTPHostOffLineTemplate", "")
    Dim FTPHostTarget As String = INI.ReadString("GENERAL", "FTPHostTarget", "")
    Dim FTPHostReplaceString As String = INI.ReadString("GENERAL", "FTPHostReplaceString", "")
    Dim RefreshInterval As Integer = INI.ReadInteger("GENERAL", "RefreshInterval", 60 * 10)

 Conclusion

Tous les commentaires sont les bien venu.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source .NET (Dotnet) UNE CLASSE POUR TRAVAILLER AVEC OLDDB (ACCESS) ET OLEDB (AS...
Source .NET (Dotnet) PERMET DE REFORMATER UN CHAMP TEXTE SUR UNE LARGEUR DE PAGE ...
Source .NET (Dotnet) CONVERTION DE HH:MM EN SECONDE ET INVERSE
Source .NET (Dotnet) CONVERTION DE DATE J/M/AAAA EN AAAAMMJJ ET HEURE H:M EN HHMM
Source .NET (Dotnet) DOUBLAGE DES SIMPLE QUOTE ' POUR LES CHAMPS SQL
Toutes les sources de michelsto

 Sources de la même categorie

Source avec Zip Source avec une capture AUTORISER/REFUSER L'EXECUTION DE PROCESSUS par pierreh51
Source avec Zip Source .NET (Dotnet) CLONE/FORK DES FLUX DE LA CONSOLE : PERMETTRE LA REDIRECTION... par ShareVB
Source avec Zip Source .NET (Dotnet) DÉFRAGMENTER UN FICHIER par ShareVB
Source avec Zip Source .NET (Dotnet) ECRAN DE VEILLE : DÉTECTER LE LANCEMENT/DÉCLENCHER/EMPÊCHER par ShareVB
Source avec Zip Source avec une capture DESACTIVER / ACTIVER LES MISES EN VEILLES PC par Arsena
Toutes les sources de la catégorie Système

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) MODIFIER LES EXTENSION DES FICHIERS par okosa
Source avec Zip Source avec une capture 2COMBOBOX SAVE 1FICHIER .DAT par eckostreet
LECTURE/ECRITURE D'UN FICHIER INI par WolKiller
LIRE ET ÉCRIRE DANS UN FICHIER INI par theblackcodeur
ET LES FICHIERS INI ALORS ?? par GreGleTurK

Commentaires et avis

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 sebaznar le 10/06/2003 17:05:57

D'abord je te remercie car cette classe m'a trop trop servi pour torturer les fichier ini dans tout les sens : MERCI

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ô

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:49:18

Pas besoin de commentaires pour un si petit source, si tu es débutant c'est pas de ton niveau et si tu n'es pas débutant alors tu comprendra sans problèmes !!!

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

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 michelsto le 16/04/2004 08:33:58

Merci Bill.

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

oui et pour la lecture ?

Commentaire de michelsto le 16/04/2004 16:53:42

Là c'est plus possible.
Valeur=INI.ReadString("TAG", "KEY", "")

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 michelsto le 19/04/2004 12:36:24

Tu ajoute simplement la classe que tu trouve dans le ZIP source à ton projet et c'est fait. Tu à acces à cette classe.

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 asem67 le 29/08/2004 01:55:15

c'est cool c'est ce que je cherchais
dur le passage en VB.net !!!!!
mais ça viendra comme le vb6

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 schreiber_jacques le 11/05/2005 00:10:44

La meilleure classe du genre de ce site.
Y a vraiment rien à redire, c'est tout simplement du travail de pro. Merci pour ça!!!

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

superbe source
grand merci

chdauss

Commentaire de sousoulebarbu le 11/04/2006 22:53:23

Super code, simple, utile et efficace.
Bravo

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 pymaster le 14/07/2006 19:25:30

Génial !

Code simple, bien fait ... en gros rien à redire

Merci beaucoup, ce code va me faire sauver beaucoup de temps ^_^

PY

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 EvilGost le 04/08/2006 11:22:55

excellent, merci.
mais à quoi sert "DefVal" dans le ReadString?

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 Namiro le 06/08/2006 16:12:17

Pour répondre à EvilGost:"excellent, merci.
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.

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 Namiro le 06/08/2006 20:25:12

Mais de rien EvilGost, on est la pour s'entraider, c'est bien normal.

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

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

Commentaire de casy le 14/11/2006 19:24:44

A mon tour de récupérer cette source par pure feignantise.

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

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 M51 le 06/03/2007 17:10:27

Merci pour ce code.
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).

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

Merci beaucoup, vous venez de me sauver des heures!

Commentaire de pouda le 08/06/2008 07:36:21

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.

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

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

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

Il faut aussi rajouter la référence à la fonction GetPrivateProfileSection, comme ceci :

<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

Commentaire de circular le 20/10/2009 19:35:23

J'ai trouvé un bug dans la fonction GetSectionNames, et j'ai recopié ce bug dans la fonction GetSection. Il faut remplacer

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.

Commentaire de ronanry le 21/07/2011 22:28:24

Petite erreur detectée :
    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 length =0
            Return Nothing
        End If
    End Function

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

lecture et ecriture d'un fichier .ini en VB.NET [ par mimi75 ] Bonjour,J'aimerais savoir comment on programme la lecture et l'écriturre d'un fichier .ini en VB.NETMerci d'avance pour vos réponsemimi75 lecture et ecriture dans un fichier ini [ par CEDICEMAN ] bonjour tout le monde, je suis novice dans la programmation et j'essaye de me faire un petit programme sur de la geston de stock. Pour cela il faut qu Enregistrement et lecture d'un fichier .ini [ par Crash_overide12 ] Bon voila je suis en train de develloper un petit prog qui stoc dans un fichier ini le nom des programmes et leurs codes comme suit :Nom du programe @ lecture fichier ini [ par Nochasse ] Bonsoir a tousJ aimerai connaitre le code permettant de lire un fichier iniMerci bonne soir&#233;e lire et ecrire en meme temps dans un fichier avec les fstream [ par Daimadoshi ] slt tlm, voila j'i un petit probleme : je voudrai pouvoir faire des acces en lecture et en ecriture sur un fichier mais je n'y parviens pas voici mon lire et ecrire en meme temps dans un fichier avec les fstream [ par Daimadoshi ] slt tlm, voila j'i un petit probleme : je voudrai pouvoir faire des acces en lecture et en ecriture sur un fichier mais je n'y parviens pas voici mon Lecture d’un fichier x.ini avec progressBar [ par marc660 ] Bonjour Voila je souhaite r&#146;ajouter a ce code une progressbar, mais celle si ne marche j&#146;ai qu&#146;a la fin du chargement. Il faut savoir Lecture des noms de fichier dans un dossier [ par aurelien2723 ] Bonjour,Je d&#233;bute en VB.Je cherche &#224; faire une fonction qui place dans un tabeau tous les noms de fichiersd'un r&#233;pertoire.Voici ou j'en Question sur ecrire localisée précisement dans un txt, log, ini ? [ par Tyrell2 ] Bonjour,lire un fichier txt, log ou ini c'est plutot facile.. par exemple j'utilise ceci pour l'afficher dans une listbox :Me<


Nos sponsors


Sondage...

Comparez les prix


Archos 7 home tablet - 2 Go
Entre 149€ et 159€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Monument Valley Utah known as The Mittens
Photo Water in the Beginning of the Grand Canyon 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 5,678 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)