[قلام الحاج]

كود جلب الملف :


// Ouvre le sélecteur de fichiers
sFichier = fSélecteur("", "", "Sélectionnez un fichier...", "*" + TAB + "*", "*")
fich=xlsOuvre(sFichier,xlsEcriture)
SI ErreurDétectée=Faux ALORS
nBnrfeuil est un entier=xlsNbFeuille(fich)
POUR i=1 A nBnrfeuil
xlsFeuilleEnCours(fich,i)
nBrcl est un entier=xlsNbColonne(fich,Faux)
nBrli est un entier=xlsNbLigne(fich,Faux)
TableAjouteLigne(Table1,i,nBrcl,nBrli)
FIN
FIN

كود قراءة الملف

xlsFeuilleEnCours(fich,Table1.Lignes)
nBrli est un entier=xlsNbLigne(fich,Faux)
TableSupprimeTout(Table2)
Table2.Colonne1..Libellé=xlsDonnée(fich,1,1,Faux)
Table2.Colonne2..Libellé=xlsDonnée(fich,1,2,Faux)
Table2.Colonne3..Libellé=xlsDonnée(fich,1,3,Faux)
Table2.Colonne4..Libellé=xlsDonnée(fich,1,4,Faux)
Table2.Colonne5..Libellé=xlsDonnée(fich,1,5,Faux)
Table2.Colonne6..Libellé=xlsDonnée(fich,1,6,Faux)
Table2.Colonne7..Libellé=xlsDonnée(fich,1,7,Faux)
Table2.Colonne8..Libellé=xlsDonnée(fich,1,8,Faux)
Table2.Colonne9..Libellé=xlsDonnée(fich,1,9,Faux)
Table2.Colonne10..Libellé=xlsDonnée(fich,1,10,Faux )
Table2.Colonne11..Libellé=xlsDonnée(fich,1,11,Faux )
Table2.Colonne12..Libellé=xlsDonnée(fich,1,12,Faux )
Table2.Colonne13..Libellé=xlsDonnée(fich,1,13,Faux )
Table2.Colonne14..Libellé=xlsDonnée(fich,1,14,Faux )
Table2.Colonne15..Libellé=xlsDonnée(fich,1,15,Faux )
Table2.Colonne16..Libellé=xlsDonnée(fich,1,16,Faux )
Table2.Colonne17..Libellé=xlsDonnée(fich,1,17,Faux )
Table2.Colonne18..Libellé=xlsDonnée(fich,1,18,Faux )
Table2.Colonne19..Libellé=xlsDonnée(fich,1,19,Faux )


POUR i=1 A nBrli
TableAjouteLigne(Table2,xlsDonnée(fich,i,1,Faux),x lsDonnée(fich,i,2,Faux),xlsDonnée(fich,i,3,Faux),x lsDonnée(fich,i,4,Faux),xlsDonnée(fich,i,5,Faux),x lsDonnée(fich,i,6,Faux),xlsDonnée(fich,i,7,Faux),x lsDonnée(fich,i,8,Faux),xlsDonnée(fich,i,9,Faux),x lsDonnée(fich,i,10,Faux),xlsDonnée(fich,i,11,Faux) ,xlsDonnée(fich,i,12,Faux),xlsDonnée(fich,i,13,Fau x),xlsDonnée(fich,i,14,Faux),xlsDonnée(fich,i,15,F aux),xlsDonnée(fich,i,16,Faux),xlsDonnée(fich,i,17 ,Faux),xlsDonnée(fich,i,18,Faux),xlsDonnée(fich,i, 19,Faux))
FIN

كود النسخ في قاعدة معينة
POUR TOUT LIGNE DE Table2
liste.nom = Table2.Colonne1
liste.prénom= Table2.Colonne2
liste.sexe = Table2.Colonne3
liste.date_de_naissance = Table2.Colonne4
liste.typedate_de_naissance = Table2.Colonne5
liste.lieu_de_naissance = Table2.Colonne6
liste.sit_fam = Table2.Colonne7
liste.prénom_pere = Table2.Colonne8
liste.nom_de_mere=Table2.Colonne9
liste.prénom_de_mere=Table2.Colonne10
liste.nom_du_conjoint=Table2.Colonne11
liste.prénom_de_conjoint=Table2.Colonne12
liste.date_de_naissance_conjiont=Table2.Colonne13
liste.type_date_nainssance=Table2.Colonne14
liste.lieu_naissance_conjoint=Table2.Colonne15
liste.prénom_du_pére_conjoint=Table2.Colonne16
liste.nom_mere_conjoint=Table2.Colonne17
liste.prénom_mere_conjoint=Table2.Colonne18
HAjoute(liste)
FIN