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
| NomCheminFichier est une chaîne
IdFichier est un entier
LigneLue est une chaîne
ResFermeFichier est un entier
NomCheminFichier = fSélecteur("", "", "Sélectionnez un fichier...", "Tous les fichiers (*.*)" + TAB + "*.*", "*.*", fselOuvre)
// Ouverture du fichier
IdFichier = fOuvre(NomCheminFichier)
LigneLue = fLitLigne(IdFichier)
//il faudrait tester fouvre() et flitligne
TableAjouteLigne(Table_Exp_CSV,ExtraitChaîne(LigneLue,1,";",DepuisDébut),ExtraitChaîne(LigneLue,2,";",DepuisDébut),ExtraitChaîne(LigneLue,3,";",DepuisDébut))
TANTQUE LigneLue <> EOT ET LigneLue <> ""
LigneLue = fLitLigne(IdFichier)
TableAjouteLigne(Table_Exp_CSV,ExtraitChaîne(LigneLue,1,";",DepuisDébut),ExtraitChaîne(LigneLue,2,";",DepuisDébut),ExtraitChaîne(LigneLue,3,";",DepuisDébut))
FIN
TableDéplaceLigne(Table_Exp_CSV,7,1) // ligne déplacer
TableDéplaceLigne(Table_Exp_CSV,8,2)
TableInsèreLigne(Table_Exp_CSV,2)
SI LigneLue = EOT ALORS Info("La fin du fichier a été atteinte")
sLigne est une chaîne
POUR TOUTE LIGNE DE Table_Exp_CSV
sLigne += Table_Exp_CSV.Colonne2 + TAB
FIN
TableAjoute(Table_MaTable, sLigne)
TableSelectPlus(Table_MaTable,Table_MaTable..Occurrence) Table_MaTable.Colonne2 =Majuscule(ExtraitChaîne(Table_MaTable.Colonne1,1," ",DepuisFin))
Table_MaTable.Colonne1 =Majuscule(ExtraitChaîne(Table_MaTable.Colonne1,2," ",DepuisFin))
ResFermeFichier = fFerme(IdFichier) |
Partager