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 40 41 42 43 44 45
| // Déclaration des variables
TableSupprimeTout(TABLE_Inv)
HSupprimeTout(INVTOTAL)
NomCheminFichier est une chaîne
IDFichier est un entier
LigneLue est une chaîne
sValeur est une chaîne
// Lit la valeur 'CHEMIN'
NomCheminFichier = INILit("FICHIER_IMPORT", "CHEMIN", "", "C:\Application\INVENTAIRE\inventaire.ini")
SI ErreurDétectée ALORS
Erreur()
FIN
// Ouverture du fichier
IDFichier = fOuvre(NomCheminFichier,foLectureEcriture)
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
SI IDFichier <> -1 ALORS
LigneLue = fLitLigne(IDFichier)
TANTQUE LigneLue <> EOT ET LigneLue <> ""
sValeur=ExtraitChaîne(LigneLue,1,TAB)//,DepuisDébut)
SI Taille(sValeur)<=8 ALORS
Trace("inventaire.lot : ",sValeur)
INVTOTAL.Lot=sValeur
SINON
INVTOTAL.Codebarre=(ExtraitChaîne(LigneLue,1,TAB))
INVTOTAL.Qte=(ExtraitChaîne(LigneLue,2,TAB))
HAjoute(INVTOTAL)
Trace("inventaire.Codebarre : ",ExtraitChaîne(LigneLue,1,TAB))
Trace("inventaire.Qte : ",ExtraitChaîne(LigneLue,2,TAB))
FIN
LigneLue = fLitLigne(IDFichier)
FIN
TableAffiche(TABLE_Inv,taDébut)
fFerme(IDFichier)
FIN |
Partager