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
|
IdFichierXLS est un entier
i,NbLigne, idTab est un entier
sFichier,maChaine est une chaîne
enregistrement est une chaîne
sFichier = fRepExe() + "\MonFichier.csv"
IdFichierXLS = fOuvre(sFichier)
maChaine = fChargeTexte(sFichier)
NbLigne = ChaîneOccurrence(maChaine,RC)
SI IdFichierXLS <> -1 ALORS
POUR i=1 _A_ NbLigne+1
enregistrement = fLitLigne(IdFichierXLS,RC)
HLitRecherche(Compte,idCompte,Val(ExtraitChaîne(enregistrement,1,";")))
SI HTrouve(Compte) = Vrai ALORS
idCpt = Compte.idCompte
FIN
maTable.col1 = idCpt
maTable.col2 = Val(ExtraitChaîne(enregistrement,2,";"))
maTable.col3 = ExtraitChaîne(enregistrement,3,";")
maTable.col4 = Val(ExtraitChaîne(enregistrement,4,";"))
maTable.col5 = Val(ExtraitChaîne(enregistrement,5,";"))
maTable.col6= Val(ExtraitChaîne(enregistrement,6,";"))
maTable.col7= Val(ExtraitChaîne(enregistrement,7,";"))
HAjoute(maTable)
FIN
SINON
Info(ErreurInfo)
FIN |
Partager