Discussion :

[patmtp35]

langage visualbasic.net
Visual studio 2008

voila

Je suis novice j'ai 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 textbox
rescan pour un combobox
et qu'il active les checkbox qui sont a 1

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]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim TableLigne(7) As String
Dim Count As Integer
Count = 0
'Verification de l'existance du FichierALire
If System.IO.File.Exists("conf.cfg") Then
Try
Dim sr As StreamReader = New StreamReader("conf.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
 
' on initialise tout les controles grace a TableLigne.
'le path
txtDirectory.Text = TableLigne(0)
'etc......
End Sub

[Masternono]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim TableLigne(7) As String
Dim Count As Integer
Count = 0
'Verification de l'existance du FichierALire
If System.IO.File.Exists("conf.cfg") Then
Try
Dim sr As StreamReader = New StreamReader("conf.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
 
' on initialise tout les controles grace a TableLigne.
'le path
txtDirectory.Text = TableLigne(0)
'etc......
End Sub

Salut,

Pourrait-tu me dire quelles sont les valeurs à changer pour faire fonctionner cette procédure en VBA.
Je ne suis pas trop calé VB.net

Merci d'avance