Code-source


00001     <?php     

00002     include("../std.php") ;     

00003     debutPage("                                ")  ;     

00004          

00005     h1("Lecture d'un fichier DBASE ") ;     

00006          

00007     blockquote() ;     

00008     debutSection() ;     

00009          

00010     # http://www.phpdig.net/ref/rn15re228.html     

00011          

00012     $dbf = "elf.dbf" ;     

00013     $dh  = dbase_open($dbf,0) ; # 0 = lecture seule ; code-retour=3 pour Ok     

00014     if (!$dh) {     

00015       echo " impossible de lire la base de données $dbf \n" ;     

00016     } else {     

00017       $nbe = dbase_numrecords($dh) ;     

00018       echo "Lecture de $dbf ($nbe enregistrements)" ;     

00019       $tmat = array() ;     

00020       $tage = array() ;     

00021       $tsex = array() ;     

00022       for ($ide=1;$ide<=$nbe;$ide++) {     

00023           $lig = dbase_get_record_with_names($dh,$ide) ;     

00024           array_push($tmat , $lig["NUM"]) ;     

00025           $tage[$ide] = $lig["AGE"] ;     

00026           $tsex[$ide] = $lig["SEXE"] ;     

00027       } ; # fin pour ide     

00028       dbase_close($dh) ;     

00029       echo " ... terminée." ;     

00030          

00031       echo "<h2>Données non filtrées</h2>" ;     

00032       echo "<blockquote>\n" ;     

00033       echo '<textarea name="mat" rows="10" cols="20">'."\n" ;     

00034       for ($ide=1;$ide<=$nbe;$ide++) {     

00035           echo sprintf("%03d",$ide)."    ".$tmat[$ide]. " ".$tage[$ide]." ".$tsex[$ide]."\n" ;     

00036       } ; # fin pour ide     

00037       echo "</textarea>\n" ;     

00038       echo "</blockquote>\n" ;     

00039          

00040       echo "<h2>Données Hommes et Femmes</h2>" ;     

00041       echo "<blockquote>\n" ;     

00042       table() ;     

00043       tr() ;     

00044       td() ;     

00045       echo "Hommes<br />" ;     

00046       echo '<textarea name="mat" rows="10" cols="20">'."\n" ;     

00047       $jde = 0 ;     

00048       for ($ide=1;$ide<=$nbe;$ide++) {     

00049           if ($tsex[$ide]==1) {     

00050               $jde++ ;     

00051               echo sprintf("%03d",$jde)."   ".$tmat[$ide]. " ".$tage[$ide]." ".$tsex[$ide]."\n" ;     

00052           } ; # fin si     

00053       } ; # fin pour ide     

00054       echo "</textarea>\n" ;     

00055       fintd() ;     

00056       td() ;     

00057       nbsp(5) ;     

00058       fintd() ;     

00059       td() ;     

00060       echo "Femmes<br />" ;     

00061       echo '<textarea name="mat" rows="10" cols="20">'."\n" ;     

00062       $jde = 0 ;     

00063       for ($ide=1;$ide<=$nbe;$ide++) {     

00064           if ($tsex[$ide]==0) {     

00065               $jde++ ;     

00066               echo sprintf("%03d",$jde)."   ".$tmat[$ide]. " ".$tage[$ide]." ".$tsex[$ide]."\n" ;     

00067           } ; # fin si     

00068       } ; # fin pour ide     

00069       echo "</textarea>\n" ;     

00070       fintd() ;     

00071       fintr() ;     

00072       fintable() ;     

00073       echo "</blockquote>\n" ;     

00074     } ; # fin de si     

00075          

00076     finSection() ;     

00077     finblockquote() ;     

00078     finPage() ;     

00079     ?>
Listing du fichier litdbf.txt
