DOCUMENT INI COMME OBJET

Commentaire de Renfield le 21/08/2006 17:55:22 administrateur CS

ok...
mais tu aurais pu utiliser les APIs de gestion des fichiers Ini...

Commentaire de John7 le 22/08/2006 20:41:00

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