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
Partager