Document ini comme objet

Soyez le premier à donner votre avis sur cette source.

Vue 7 372 fois - Téléchargée 1 174 fois

Description

J'ai fait cette serie de classes pour lire un document INI pour m'amuser et surtout pour avoir en tout temps les valeurs disponible (je suis allergique aux Globales).
Ces classes permettent de mettre a jour chaque valeur en tout temps et de sauvegarder le document en un coup.
La forme principale ne sert qu'a tester / démontrer les classes.

Source / Exemple :


Voir zip...

Conclusion :


Contient un document INI

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
47
Date d'inscription
jeudi 12 décembre 2002
Statut
Membre
Dernière intervention
12 janvier 2008

Et pour ceux qui voudrait se servir de ces fonctions, il faut bien sur déclarer les deux fonctions comme suit:
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

ou Private si vous mettez tout dans le même module.
Messages postés
61
Date d'inscription
mardi 1 février 2005
Statut
Membre
Dernière intervention
28 mai 2012
1
Je vais essayer ceci tres bientot.
Merci.
Messages postés
47
Date d'inscription
jeudi 12 décembre 2002
Statut
Membre
Dernière intervention
12 janvier 2008

Même si, tu as l'air de penser que cette méthode est bonne, et pouquoi pas, je serais de l'avis de renfield pour manipuler les APis. Dabord c'est beaucoup plus simple et plus sur((nombre de ligne = plus de bugs eventuels)=plus long à traquer) et puis je pense que ce site est une entraide entre nous alors pourquoi compliquer la chose ? pour ceux qui comme moi pense que plus c'est simple et mieux c'est voiçi un autre code:

Public Function ReadValue(Key As String, Optional Default As String, Optional Section As String = "TOTO", Optional File)
Dim sReturn As String
If IsMissing(File) Then File = App.Path, "settings.ini"
sReturn = String(255, Chr(0))
ReadValue = Left(sReturn, GetPrivateProfileString(Section, Key, Default, sReturn, Len(sReturn), File))
End Function

Public Sub SaveValue(Key As String, Value As String, Optional Section As String = "TOTO", Optional File)
If IsMissing(File) Then File = App.Path, "settings.ini"
WritePrivateProfileString Section, Key, Value, File
End Sub

Bien entendu, ce n'est pas du tout un reproche bitshifter et bonne continuation. john
Messages postés
61
Date d'inscription
mardi 1 février 2005
Statut
Membre
Dernière intervention
28 mai 2012
1
Justement, je ne voulais pas utiliser les APIs.
Je voulais voir jusqu'ou je pouvais aller avec le 'parsing' d'un fichier texte au format connu.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
ok...
mais tu aurais pu utiliser les APIs de gestion des fichiers Ini...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.