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
|
lxls_fichierExcel=xlsOuvre("C:\MO.xls",xlsEcriture)
SI ErreurDétectée = Faux ALORS
Li_nbligneFichierExcel=1
ls_contenuFichierTexte= fChargeTexte("C:\SPE.txt")
POUR TOUTE CHAINE ls_ligneFichierTexte DE ls_contenuFichierTexte SEPAREE PAR RC
toto=Gauche(ls_ligneFichierTexte,12)
tata=Droite(ls_ligneFichierTexte,10)
lxls_fichierExcel[Li_nbligneFichierExcel,"A"]=toto
lxls_fichierExcel[Li_nbligneFichierExcel,"B"]=tata
Li_nbligneFichierExcel++
FIN
// Lecture d'une cellule pour test
ResDonnée= xlsDonnée(lxls_fichierExcel,2,26,Faux)
xlsSauve(lxls_fichierExcel)
xlsFerme(lxls_fichierExcel)
FIN
// Ouverture d'un fichier externe
IDFichier = fOuvre("C:\INF.txt", foLectureEcriture)
// Écriture dans ce fichier
ResEcriture = fEcrit(IDFichier, ResDonnée)
ls_contenuFichierTexte2= fChargeTexte("C:\INF.txt")
POUR TOUTE CHAINE Ls_ligneFichierTexte2 DE ls_contenuFichierTexte2 SEPAREE PAR RC
FIN
SI ls_contenuFichierTexte2 = "1" ALORS
TableInsèreLigne(TABLE_TY,1, 1)
TableSupprime(TABLE_TY, 2 )
TableEnregistre(TABLE_TY)
FIN
SI ls_contenuFichierTexte2 = "1" ALORS
TableInsère(TABLE_De,+TAB+ls_contenuFichierTexte2)
TableSupprime(TABLE_De,2)
TableEnregistre(TABLE_De)
FIN |
Partager