Fichier de configurationRésolu

Question

Bonjour,

dans le cadre d'une application, je dois g&#233;rer un fichier de configuration, voici comment j'ai fais :

Private Sub chargementINI()
  Dim j As Integer
  Dim uneOption As String
  Dim uneValeur As String
  
  Open "VBPOne.ini" For Input As #2 ' ouvrture du fichier
  j = 0
  Do While Not EOF(2) 'Tant que la fin de fichier n'est pas atteinte
    Input #2, chaine
    Select Case Module1.identifierValeurINI(chaine, "option")
      Case "lettreBaladeur"
        Module1.optionsLettreBaladeur = Module1.identifierValeurINI(chaine, "valeur")
      Case "suppressionFichiers"
        Module1.optionsPlaylistSuppresion = Module1.identifierValeurINI(chaine, "valeur")
      Case "optionsPreview"
        Module1.optionsPreview = Module1.identifierValeurINI(chaine, "valeur")
    End Select
    j = j + 1
  Loop
  Close #2
End Sub

et donc :

Function identifierValeurINI(ByVal ligneComplete As String, choix As String) As String
  Dim chaineTemp As String
  Dim lngChaine As Integer
  Dim placeEgale As Integer
      
  lngChaine = Len(ligneComplete)
  placeEgale = InStr(ligneComplete, "=")
  Select Case choix
    Case "valeur"
      identifierValeurINI = Mid(ligneComplete, placeEgale + 1, lngChaine)
    Case "option"
      identifierValeurINI = Mid(ligneComplete, 1, placeEgale - 1)
  End Select
End Function

Donc, &#231;a fonctionne, mais n'y a -t-il plus sur et optimal que ma m&#233;thode ?

merci d'avance :)

crenaud76 · Accepted Answer

Utilise les api GetPrivateProfileString() par exemple

&#160;Christophe R

PowOxtemp · Answer

merci bien, je ne connaissais pas du tout, je programme sous vb depuis peu.
je vais jeter un oeil du c&#244;t&#233; des API, souvent entendu parl&#233;, mais sans plus...

il y a sans doute des modules de fonctions pratiques et int&#233;ressantes.

merci

powox

Fichier de configuration

2 réponses

Discussions similaires