Discussion :

[Bamba Aboubacar]

Bonjour à toutes et à tous!!
Venez moi en aide SVP
Au fait j 'ai un fichier d'extenson .txt dont je veux extraire les champs avec les valeurs respectives
pour afficher chacun d'eux dans un formulaire: les noms des champs dans des labels et les différentes
valeurs dans des textbox comme un tableau voici un extrait du contenu de mon fichier:

Centre datedujour codeenfant Nom Prénom Datenaissance QF BV2007 Nbdejours Adresse Ville Code Postal

Kerfichant 18/5/2007 00:00:00 1251,00 PRENEAU ANTOINE 13/1/2004 00:00:00 D 0 5,00 157 RUE DE BELGIQUE LORIENT 56100,00
Kerfichant 18/5/2007 00:00:00 867,00 PRENEAU MELVIN 13/1/2004 00:00:00 D 0 5,00 157 RUE DE BELGIQUE LORIENT 56100,00
Kerfichant 18/5/2007 00:00:00 3209,00 BALIN EMMANUE 31/7/2003 00:00:00 E 0 5,00 14 RUE DES SABLES BLANCS LORIENT 56100,00

voilà mon code qui ne marche pas
j'ai essayé d'abord de l'afficher dans un Msflexgrid mais ça n'a rien donné
prière de me donner la solution aux deux cas à défaut un me suffira;
merci d'avance.

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
33
34
35
36
37
38
39
 
Private Sub Command1_Click()
 
 
'--N représente le nbr max de lignes
'--M représente le nbr max de colonnes
 
Const N As Integer = 3
Const M As Integer = 11
 
 
' déclaration de tableau à deux dimension
 
 
Dim Tableau(1 To N, 1 To M) As String
 
' déclaration tableau vide
Dim tab() as string
 
' j 'ouvre le fichier en écriture
Open App.Path & "\Export_txtAccess.txt" For Input As #1
 
While Not EOF(1)
 
  Line Input #1, enreg
  tab = split(enreg,"  ")
 
  For i=1 to N
     MsFlexGrid1.row = I-1
      For j=1 to M
         MsFlexGrid1.col = J-1
           Tableau(I,J) = tab(i)
           MsFlexgrid1..text = Tableau(I,J)
     Next j
 Next i
 
Wend
 
End Sub

[ProgElecT]

Salut

Si le code que tu nous as mis est bien celui que tu utilises tab = split(enreg," ")ligne 26, le 2éme paramètre est un double espace, remplacer par tab = split(enreg," ") ou tab = split(enreg, chr(32)).
Ligne 33 MsFlexgrid1..text = Tableau(I,J) tu as 2 point avant text.

Il serai mieux de passer tes infos dans le MsFlexgrid par MsFlexgrid1.TextMatrix(L, C) ou L correspond à la ligne et C à la colonne ou tu veux écrire l'information.
Avec MsFlexgrid1.Text tu écris et réécris à chaque passage dans ta boucle For j=1 to M .... Next j dans la même ligne et même colonne en cour.