1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
UneLigne = fLitLigne(nFichier_ref)
UneLigne = fLitLigne(nFichier_ref)
TANTQUE UneLigne <> EOT
S1.chp1 = ExtraitChaîne(UneLigne, 1, ",")
S1.chp2 = ExtraitChaîne(UneLigne, 2, ",")
S1.chp3 = ExtraitChaîne(UneLigne, 3, ",")
S1.chp4 = ExtraitChaîne(UneLigne, 4, ",")
S1.chp5 = ExtraitChaîne(UneLigne, 5, ",")
S1.chp6 = ExtraitChaîne(UneLigne, 6, ",")
S1.chp7 = ExtraitChaîne(UneLigne, 7, ",")
S1.chp8 = ExtraitChaîne(UneLigne, 8, ",")
TableAjouteLigne(TABLE_Contenu,S1.chp1,S1.chp2,S1.chp3,S1.chp4,S1.chp5,S1.chp6,S1.chp7,S1.chp8)
UneLigne = fLitLigne(nFichier_ref)
FIN
fFerme(nFichier_ref) |
Partager