Charger une valuer dans une combobox depuis un fichier texte

Question

voila 

Je suis novice j'a presque finit mon GUI pour créer un fichier de configuration pour un de mes dev. mais je bloque sur un point.

Avec ce GUI je crée a partir de 4 combobox 1 textbox et 3 checkbox un fichier texte de configuration.
je souhaiterais a l'ouverture de mon GUI qu'il charge dans chaques contrôles les valeurs qui se trouvent dans le fichier texte par exemple :

f:\ pour le text box
rescan pour un combobox
et qu'il active les checkbox qui sont a un

Si quelqu'un pouvait m'éclairais se serais super cela fait une semaine que je parcour les forums mes yeux n'en peuvent plus 

cdt  

le fichier cfg est composé comme suit:
*** Fichier de configuration ***
********************************
#CHEMIN=F:\
********************************
#PARAM=rescan
********************************
#SKIN=default
********************************
#SWIDTH=1080
********************************
#RESIZE=1787x1040
********************************
#NFO=1
********************************
#XMBC=0
********************************
#BOXME=0
********************************

patmtp35 · Answer

je me répond donc a moi même j'ai finit par trouver la solution, elle pourra servir a qq'un peu être:

le code peut sans doute être optimiser.

 Dim TableLigne(7) As String
        Dim Count As Integer
        Count = 0
        'Verification de l'existance du FichierALire
        If System.IO.File.Exists("xtreamj.cfg") Then
            Try
                Dim sr As StreamReader = New StreamReader("xtreamj.cfg", System.Text.Encoding.Default)
                Dim ligne As String
                '--- Traitement du fichier ligne par ligne
                While Not sr.EndOfStream()
                    ligne = sr.ReadLine()
                    ' On recupère dans TableLigne tout les paramètes apres If Microsoft.VisualBasic.Left(ligne, 1) "#" Then TableLigne(Count) = Split(ligne, "=")(UBound(Split(ligne, "=")))
                    ' On incrémente le TableLigne de 1
                    If Microsoft.VisualBasic.Left(ligne, 1) "#" Then Count Count + 1
                End While
                '--- Referme StreamReader
                sr.Close()

            Catch ex As Exception
                'Traitement de l'exception sinon :
                Throw ex
            End Try
        Else
            MsgBox("fichier " & "xtreamj.cfg" & " inexistant", MsgBoxStyle.Critical, " -- ! -- ")
        End If
        Count = 0
        ' on initialise tout les controles grace a TableLigne.
        'le path
        txtDirectory.Text = TableLigne(0)
        'etc......
End Sub

Charger une valuer dans une combobox depuis un fichier texte

1 réponse

Votre réponse

Discussions similaires