source: pmb4.2/trunk/fuentes/pmb/admin/convert/imports/input_iso_2709.inc.php

<?php
// +-------------------------------------------------+
// © 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net)
// +-------------------------------------------------+
// $Id: input_iso_2709.inc.php,v 1.9 2015-04-03 11:16:25 jpermanne Exp $

if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) die("no access");

function _get_n_notices_($fi,$file_in,$input_params,$origine="") {
        //pmb_mysql_query("delete from import_marc");
        global $charset;
        global $output_params;
        $index=array();
        $n=1;
        eval("\$car=chr(".$input_params['ENDCHAR'].");");
        $i=false;
        $notice="";
        $notices="";
        while (!feof($fi)) {
                $notices.=fread($fi,4096);
                $i=strpos($notices,$car);
                while ($i!==false) {
                        $notice=substr($notices,0,$i+1);
                        $t=array();
                        $t['POS']=$n_;
                        $t['LENGHT']=$i+1;
                        $requete="insert into import_marc (no_notice, notice, origine) values($n,'".addslashes($notice)."','$origine')";
                        pmb_mysql_query($requete);
                        $index[]=$t;
                        if($n==1){
                                $iso=new iso2709_record($notice);
                                $output_params["CHARSET"]=$iso->is_utf8?"utf-8":$charset;
                        }
                        $n++;
                        $notices=substr($notices,$i+1);
                        $i=strpos($notices,$car);
                }
        }
        if ($notices!="") {
                $notice=$notices;
                $t=array();
                $t['POS']=$n_;
                $t['LENGHT']=$i+1;
                $requete="insert into import_marc (no_notice, notice, origine) values($n,'".addslashes($notice)."','$origine')";
                pmb_mysql_query($requete);
                $index[]=$t;
                $n++;
        }
        return $index;
}