bonjour j'ai un fichier texte de cette forme
A0033860351311011A0
A013386035201311
A023386035201311100733487KOUJANA HAFIDA 00000000000000000000
A023386035201311101645392RKHAOUI SALEK 00000000000000000000
A023386035201311101645491MEROUANI BOUCHETA 00000000000000000000
A023386035201311199548061EZZINE KARIMA 00000000000000000000
A033386035201311000097000000000000000000000000000000000000000000000013081560868
je le lit avec ce codele probleme n'ajoute que la premiere ligne lu je sais pas pourquoi merci
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 IDFichier = fOuvre(NomFichier, foLecture) SI IDFichier <> -1 ALORS // Lecture de la première ligne ResLecture = fLitLigne(IDFichier) TANTQUE ResLecture <> EOT SI Gauche (ResLecture,3)="A02"ALORS EFI.T1 = ResLecture[[1 A 3]] EFI.T2 = ResLecture[[4 A 10]] EFI.T3 =ResLecture[[11 A 16]] EFI.T4 = ResLecture[[17 A 25]] EFI.T5 =ResLecture[[26 A 85]] EFI.T6 =ResLecture[[86 A 88]] EFI.T7 =ResLecture[[89 A 94]] EFI.T8 =ResLecture[[95 A 100]] EFI.T9 =ResLecture[[101 A 105]] EFI.T10=ResLecture[[106 A 259]] FIN ResLecture = fLitLigne(IDFichier) FIN HAjoute(EFI,hIgnoreDoublon) FIN TableAffiche(TABLE_EFI1)
Partager