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
| IDfichier est une chaîne
chp1 est une chaîne
chp2 est une chaîne
Chp3 est un Date
chp4 est une chaîne
chp5 est une chaîne
chp6 est une chaîne
chp7 est une chaîne
Reslecture est une chaîne
IDfichier = fOuvre("C:\reseau_DRMNE.csv",foLectureEcriture)
SI IDfichier <> -1 ALORS
Reslecture = fLitLigne (IDfichier)
TANTQUE Reslecture <> EOT
chp1 = ExtraitChaîne(Reslecture, 1, ",")
chp2 = ExtraitChaîne(Reslecture, 2, ",")
Chp3 = ExtraitChaîne(Reslecture, 3, ",")
chp4 = ExtraitChaîne(Reslecture, 4, ",")
chp5 = ExtraitChaîne(Reslecture, 5, ",")
chp6 = ExtraitChaîne(Reslecture, 6, ",")
chp7 = ExtraitChaîne(Reslecture, 7, ",")
TableAjouteLigne(TABLE_import, chp1, chp2, Chp3, chp4, chp5, chp6, chp7)
Reslecture = fLitLigne(IDfichier)
FIN
FIN
fFerme (IDfichier) |
Partager