Accueil > > > LES INI EN VB.NET
 LES INI EN VB.NET
 Information sur la source
 Description
Je sais que cette source existe déjà sur ce site mais je trouve un module plus pratique à utiliser. C'est pourquoi je la poste. J'espère qu'elle pourra vous être utile a vous aussi. a+ SupraDolph.
 Source
- Module ModINI
- 'Nom du fichier INI
- Dim Fichier As String = Application.StartupPath & "\Backup.ini"
- 'Constante
- Const MAX_ENTRY As Integer = 32768
- #Region "Lire INI"
- Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As System.Text.StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
- ' Cette API permet de lire des fichiers d'initialisations. La fonction retourne 0 si la lecture du fichier d'initialisation a échoué, sinon elle retourne 1.
- 'lpApplicationName définit le nom de la section,
- 'lpKeyName définit le nom de la clef,
- 'lpDefault retourne la valeur par défaut si la clef n'est pas définie,
- 'lpReturnedString contient la valeur de la clef si elle existe sinon elle contient la valeur lpDefault,
- 'nSize est la taille de la variable lpReturnedString en octet,
- 'lpFileName définit le nom du fichier d'initialisation.
- Function LireINI(ByVal Entete As String, ByVal Variable As String) As String
- Dim defval As String = ""
- Try
- Dim StrBuild As New System.Text.StringBuilder(MAX_ENTRY)
- Dim Ret As Integer = GetPrivateProfileString(Entete, Variable, defval, StrBuild, MAX_ENTRY, Fichier)
- Return StrBuild.ToString
- Catch
- Return defval
- End Try
- End Function
- #End Region
-
- #Region "Ecrire INI"
- Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
- ' Cette API permet de créer ou de modifier vos propres fichiers d'initialisations sans se soucier des détails (par exemple... la gestion des fichiers), si le fichier n'existe pas il est créé, sinon il est modifié. La fonction retourne 0 si la création ou la modification du fichier d'initialisation a échoué, sinon elle retourne 1.
- 'lpApplicationName définit le nom de la section,
- 'lpKeyName définit le nom de la clef,
- 'lpString définit la valeur à ajouter,
- 'lpFileName définit le nom du fichier d'initialisation.
- Function EcrireINI(ByVal Entete As String, ByVal Variable As String, ByVal Valeur As String)
- WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
- End Function
- #End Region
-
- #Region "Supprime INI"
- Function SupprimeINI(ByVal Entete As String, Optional ByVal Variable As String = Nothing)
- WritePrivateProfileString(Entete, Variable, vbNullString, Fichier)
- End Function
- #End Region
-
- #Region "Sections INI"
- Private Declare Function GetPrivateProfileSectionNames Lib "kernel32.dll" Alias "GetPrivateProfileSectionNamesA" (ByVal lpszReturnBuffer() As Byte, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
- Function SectionsINI() As ArrayList
- SectionsINI = New ArrayList
- Dim Buffer(MAX_ENTRY) As Byte
- Dim BuffStr As String
- Dim PrevPos As Integer = 0
- Dim Length As Integer
- Try
- Length = GetPrivateProfileSectionNames(Buffer, MAX_ENTRY, Fichier)
- Catch
- Exit Function
- End Try
- Dim ASCII As New System.Text.ASCIIEncoding
- If Length > 0 Then
- BuffStr = ASCII.GetString(Buffer)
- Length = 0
- PrevPos = -1
- Do
- Length = BuffStr.IndexOf(ControlChars.NullChar, PrevPos + 1)
- If Length - PrevPos = 1 OrElse Length = -1 Then Exit Do
- Try
- SectionsINI.Add(BuffStr.Substring(PrevPos + 1, Length - PrevPos))
- Catch
- End Try
- PrevPos = Length
- Loop
- End If
- End Function
- #End Region
- End Module
Module ModINI
'Nom du fichier INI
Dim Fichier As String = Application.StartupPath & "\Backup.ini"
'Constante
Const MAX_ENTRY As Integer = 32768
#Region "Lire INI"
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As System.Text.StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
' Cette API permet de lire des fichiers d'initialisations. La fonction retourne 0 si la lecture du fichier d'initialisation a échoué, sinon elle retourne 1.
'lpApplicationName définit le nom de la section,
'lpKeyName définit le nom de la clef,
'lpDefault retourne la valeur par défaut si la clef n'est pas définie,
'lpReturnedString contient la valeur de la clef si elle existe sinon elle contient la valeur lpDefault,
'nSize est la taille de la variable lpReturnedString en octet,
'lpFileName définit le nom du fichier d'initialisation.
Function LireINI(ByVal Entete As String, ByVal Variable As String) As String
Dim defval As String = ""
Try
Dim StrBuild As New System.Text.StringBuilder(MAX_ENTRY)
Dim Ret As Integer = GetPrivateProfileString(Entete, Variable, defval, StrBuild, MAX_ENTRY, Fichier)
Return StrBuild.ToString
Catch
Return defval
End Try
End Function
#End Region
#Region "Ecrire INI"
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
' Cette API permet de créer ou de modifier vos propres fichiers d'initialisations sans se soucier des détails (par exemple... la gestion des fichiers), si le fichier n'existe pas il est créé, sinon il est modifié. La fonction retourne 0 si la création ou la modification du fichier d'initialisation a échoué, sinon elle retourne 1.
'lpApplicationName définit le nom de la section,
'lpKeyName définit le nom de la clef,
'lpString définit la valeur à ajouter,
'lpFileName définit le nom du fichier d'initialisation.
Function EcrireINI(ByVal Entete As String, ByVal Variable As String, ByVal Valeur As String)
WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function
#End Region
#Region "Supprime INI"
Function SupprimeINI(ByVal Entete As String, Optional ByVal Variable As String = Nothing)
WritePrivateProfileString(Entete, Variable, vbNullString, Fichier)
End Function
#End Region
#Region "Sections INI"
Private Declare Function GetPrivateProfileSectionNames Lib "kernel32.dll" Alias "GetPrivateProfileSectionNamesA" (ByVal lpszReturnBuffer() As Byte, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Function SectionsINI() As ArrayList
SectionsINI = New ArrayList
Dim Buffer(MAX_ENTRY) As Byte
Dim BuffStr As String
Dim PrevPos As Integer = 0
Dim Length As Integer
Try
Length = GetPrivateProfileSectionNames(Buffer, MAX_ENTRY, Fichier)
Catch
Exit Function
End Try
Dim ASCII As New System.Text.ASCIIEncoding
If Length > 0 Then
BuffStr = ASCII.GetString(Buffer)
Length = 0
PrevPos = -1
Do
Length = BuffStr.IndexOf(ControlChars.NullChar, PrevPos + 1)
If Length - PrevPos = 1 OrElse Length = -1 Then Exit Do
Try
SectionsINI.Add(BuffStr.Substring(PrevPos + 1, Length - PrevPos))
Catch
End Try
PrevPos = Length
Loop
End If
End Function
#End Region
End Module
 Conclusion
Si quelqu'un laisse un commentaire, qu'il parle du code et NON de mon orthographe merci.
Pour ceux qui ne comprènent pas pourquoi je laisse ce message :
cf : Ma source précédente Backup CD's.
http://www.vbfrance.com/article.aspx?Val=947 5
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
|
Derniers Blogs
 SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko
Logiciels
 Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning
|