forked from OTroccaz/ExtrHAL
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ExtrHAL-liste-auteurs-reordtab.php
78 lines (75 loc) · 2.84 KB
/
ExtrHAL-liste-auteurs-reordtab.php
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
<?php
header('Content-type: text/html; charset=UTF-8');
ini_set('auto_detect_line_endings',TRUE);
function mb_ucwords($str) {
$str = mb_convert_case($str, MB_CASE_TITLE, "UTF-8");
return ($str);
}
function utf8_fopen_read($fileName) {
//$fc = iconv('windows-1250', 'utf-8', file_get_contents($fileName));
$fc = file_get_contents($fileName);
$handle=fopen("php://memory", "rw");
fwrite($handle, $fc);
fseek($handle, 0);
return $handle;
}
$fichier_auteurs = './pvt/ExtractionHAL-auteurs.php';
include $fichier_auteurs;
//Début d'écriture du fichier avec l'existant
//export liste php et CSV
$Fnm = "./pvt/ExtractionHAL-auteurs.php";
$Fnm1 = "./pvt/ExtractionHAL-auteurs.csv";
$inF = fopen($Fnm,"w");
$inF1 = fopen($Fnm1,"w");
fseek($inF, 0);
fseek($inF1, 0);
$chaine = "";
$chaine1 = "\xEF\xBB\xBF";
$chaine1 .= "Nom;Prénom;Secteur;Titre;Unité;UMR;Grade;Numeq;Eqrec;Collection HAL;Collection équipe HAL;Arrivée;Départ";
$chaine .= '<?php'.chr(13);
$chaine .= '$AUTEURS_LISTE = array('.chr(13);
fwrite($inF,$chaine);
fwrite($inF1,$chaine1);
$j = 0;
foreach($AUTEURS_LISTE AS $i => $valeur) {
$chaine = $j.' => array("nom"=>"'.mb_ucwords($AUTEURS_LISTE[$i]["nom"]).'", ';
$chaine .= '"prenom"=>"'.mb_ucwords($AUTEURS_LISTE[$i]["prenom"]).'", ';
$chaine .= '"secteur"=>"'.$AUTEURS_LISTE[$i]["secteur"].'", ';
$chaine .= '"titre"=>"'.$AUTEURS_LISTE[$i]["titre"].'", ';
$chaine .= '"unite"=>"'.$AUTEURS_LISTE[$i]["unite"].'", ';
$chaine .= '"umr"=>"'.$AUTEURS_LISTE[$i]["umr"].'", ';
$chaine .= '"grade"=>"'.$AUTEURS_LISTE[$i]["grade"].'", ';
$chaine .= '"numeq"=>"'.$AUTEURS_LISTE[$i]["numeq"].'", ';
$chaine .= '"eqrec"=>"'.$AUTEURS_LISTE[$i]["eqrec"].'", ';
$chaine .= '"collhal"=>"'.$AUTEURS_LISTE[$i]["collhal"].'", ';
$chaine .= '"colleqhal"=>"'.$AUTEURS_LISTE[$i]["colleqhal"].'", ';
$chaine .= '"arriv"=>"'.$AUTEURS_LISTE[$i]["arriv"].'", ';
$chaine .= '"depar"=>"'.$AUTEURS_LISTE[$i]["depar"].'")';
//export csv
$chaine1 = mb_ucwords($AUTEURS_LISTE[$i]["nom"]).';';
$chaine1 .= mb_ucwords($AUTEURS_LISTE[$i]["prenom"]).';';
$chaine1 .= $AUTEURS_LISTE[$i]["secteur"].';';
$chaine1 .= $AUTEURS_LISTE[$i]["titre"].';';
$chaine1 .= $AUTEURS_LISTE[$i]["unite"].';';
$chaine1 .= $AUTEURS_LISTE[$i]["umr"].';';
$chaine1 .= $AUTEURS_LISTE[$i]["grade"].';';
$chaine1 .= $AUTEURS_LISTE[$i]["numeq"].';';
$chaine1 .= $AUTEURS_LISTE[$i]["eqrec"].';';
$chaine1 .= $AUTEURS_LISTE[$i]["collhal"].';';
$chaine1 .= $AUTEURS_LISTE[$i]["colleqhal"].';';
$chaine1 .= $AUTEURS_LISTE[$i]["arriv"].';';
$chaine1 .= $AUTEURS_LISTE[$i]["depar"];
$chaine .= ',';
$chaine .= chr(13);
$chaine = str_replace(array("Č","č","ď"), array("È","è","ï"), $chaine);
$chaine1 .= chr(13);
fwrite($inF,$chaine);
fwrite($inF1,$chaine1);
$j++;
}
$chaine = ');'.chr(13);
$chaine .= '?>';
fwrite($inF,$chaine);
fclose($inF);
fclose($inF1);
?>