[VB]Probleme lecture fichier text et affichage
Hello,
Ca fait prés de 2 heures maintenant que je bloque sur un probléme d'affichage surement dut a la lecture de mon fichier ini...
Mon but: Lire le fichier ini et afficher toutes les variables contenue dans une catégorie.
Mon probléme: Lors de l'affichage dans un text1(i).text ; le texte est bien affiché mais il a un décalage, comme si un caractére "entrée" ( chr(13)? ) avait été inséré. Ce qui a pour conséquence de décaler le texte vers le bas.
voir screen:
http://aode.free.fr/bug.jpg
alors que les textes devraient êtres affichés en face des "cases", il est légérement décalé en bas...
Mon code:
recupération des données et affichage:
Code:
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
| Dim texte As String
Open App.Path + "\config.ini" For Binary As #1
texte = Input$(LOF(1), #1)
Close #1
texte = Extraction.Recherche(texte, "[META]", "[/META]")
texte = Replace(texte, Chr(13), "")
meta = Split(texte, ";")
'fin recherche
'initialisation affichage
For i = 0 To 14
' Label1(i).Visible = True
Next
'fin initaialisation affichage
For i = 0 To UBound(meta, 1)
Var = Split(meta(i), "=")
If meta(i) <> "" Then
Var(0) = Replace(Var(0), Chr(13), "")
Label1(i).Caption = Var(0)
Command1(i + 2).Visible = True
Check1(i + 1).Visible = True
Text2.Text = Text2.Text & Var(0) & "--"
End If
Next |
fonction recherche:
Code:
1
2
3
4
5
6
| Public Function Recherche(texte As String, Expression_debut As String, Expression_fin As String) As String
Dim Variable, Valeur
Valeur = Split(texte, Expression_debut, -1, 1)
Variable = Split(Valeur(1), Expression_fin, -1, 1)
Recherche = Variable(0)
End Function |
et mon fichier ini se présente sous la forme:
Code:
1
2
3
4
5
6
|
[META]
tesezrze=2gfdrtert;
fdsezrzerzds=12ertertert;
sdrzerzerf=sdfkerterte;
[/META] |
voila, je pense avoir donnée toutes lse piéces du puzzle/casse-tête pour moi :s
ps: si vs avez une autre maniére de recupérer toutes les variables d'une catégorie d'un fichier ini, je suis preneur ^^
