| 1 | <?php |
|---|
| 2 | // +-------------------------------------------------+ |
|---|
| 3 | // © 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net) |
|---|
| 4 | // +-------------------------------------------------+ |
|---|
| 5 | // $Id: input_text.inc.php,v 1.10 2015-04-03 11:16:25 jpermanne Exp $ |
|---|
| 6 | |
|---|
| 7 | if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) die("no access"); |
|---|
| 8 | |
|---|
| 9 | function _get_n_notices_($fi,$file_in,$input_params,$origine) { |
|---|
| 10 | //pmb_mysql_query("delete from import_marc"); |
|---|
| 11 | $index=array(); |
|---|
| 12 | $fcontents=fread($fi,filesize($file_in)); |
|---|
| 13 | $i_=0; |
|---|
| 14 | $i=0; |
|---|
| 15 | $n=1; |
|---|
| 16 | $flag_head=0; |
|---|
| 17 | |
|---|
| 18 | if ($input_params["HEADER"]=="yes") { |
|---|
| 19 | $flag_head=1; |
|---|
| 20 | } |
|---|
| 21 | |
|---|
| 22 | //Ajout du saut de ligne pour la dernière |
|---|
| 23 | $fcontents.="\r\n"; |
|---|
| 24 | |
|---|
| 25 | while ($fcontents!="") { |
|---|
| 26 | //Recherche de l'élément de fin de ligne |
|---|
| 27 | $i2=strpos($fcontents,"\r\n"); |
|---|
| 28 | $i1=strpos($fcontents,"\n"); |
|---|
| 29 | if (($i1)&&($i2)){ |
|---|
| 30 | if($i1<$i2){ |
|---|
| 31 | $i=$i1; |
|---|
| 32 | $endchar=0; |
|---|
| 33 | }else{ |
|---|
| 34 | $i=$i2; |
|---|
| 35 | $endchar=1; |
|---|
| 36 | } |
|---|
| 37 | }else{ |
|---|
| 38 | if ($i2!==false) { |
|---|
| 39 | $i=$i2; |
|---|
| 40 | $endchar=1; |
|---|
| 41 | } else { |
|---|
| 42 | $i=$i1; |
|---|
| 43 | $endchar=0; |
|---|
| 44 | } |
|---|
| 45 | } |
|---|
| 46 | if ($i!==false) { |
|---|
| 47 | //Si trouvé |
|---|
| 48 | |
|---|
| 49 | //Si 1ère ligne passée |
|---|
| 50 | if (!$flag_head) { |
|---|
| 51 | $sub=substr($fcontents,0,$i); |
|---|
| 52 | if (trim($sub)!="") { |
|---|
| 53 | $t=array(); |
|---|
| 54 | $t["POS"]=$i_; |
|---|
| 55 | $t["LENGHT"]=$i; |
|---|
| 56 | $requete="insert into import_marc (no_notice, notice, origine) values($n,'".addslashes($sub)."','$origine')"; |
|---|
| 57 | pmb_mysql_query($requete); |
|---|
| 58 | $n++; |
|---|
| 59 | $fcontents=substr($fcontents,$i+$endchar+1); |
|---|
| 60 | $index[]=$t; |
|---|
| 61 | } else { |
|---|
| 62 | $fcontents=substr($fcontents,$i+$endchar+1); |
|---|
| 63 | } |
|---|
| 64 | } else { |
|---|
| 65 | $flag_head=0; |
|---|
| 66 | $fcontents=substr($fcontents,$i+$endchar+1); |
|---|
| 67 | } |
|---|
| 68 | $i_=$i+$endchar+$i_+1; |
|---|
| 69 | |
|---|
| 70 | } else { |
|---|
| 71 | $fcontents=""; |
|---|
| 72 | } |
|---|
| 73 | } |
|---|
| 74 | return $index; |
|---|
| 75 | } |
|---|
