source: pmb4.2/trunk/fuentes/pmb/admin/convert/imports/input_text.inc.php @ 815

Last change on this file since 815 was 815, checked in by jrpelegrina, 4 years ago

Initial release of pmb 4.2

  • Property svn:executable set to *
File size: 1.7 KB
Line 
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
7if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) die("no access");
8
9function _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}
Note: See TracBrowser for help on using the repository browser.