Subversion Repositories Applications.framework

Rev

Rev 378 | Rev 394 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 378 Rev 381
1 
<?php
 1 
<?php
2 
// declare(encoding='UTF-8');
 2 
// declare(encoding='UTF-8');
3 
/**
 3 
/**
4 
 * Classe fournissant des méthodes statiques de manipulation des tableaux (Array).
 4 
 * Classe fournissant des méthodes statiques de manipulation des tableaux (Array).
5 
 *
 5 
 *
6 
 * @category	PHP 5.2
 6 
 * @category	PHP 5.2
7 
 * @package	Utilitaire
 7 
 * @package	Utilitaire
8 
 * @author		Jean-Pascal MILCENT <jpm@tela-botanica.org>
 8 
 * @author		Jean-Pascal MILCENT <jpm@tela-botanica.org>
9 
 * @copyright	Copyright (c) 2009, Tela Botanica (accueil@tela-botanica.org)
 9 
 * @copyright	Copyright (c) 2009, Tela Botanica (accueil@tela-botanica.org)
10 
 * @license	http://www.gnu.org/licenses/gpl.html Licence GNU-GPL-v3
 10 
 * @license	http://www.gnu.org/licenses/gpl.html Licence GNU-GPL-v3
11 
 * @license	http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL-v2
11 
 * @license	http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL-v2
12 
 * @version	$Id: Tableau.php 378 2011-10-10 09:25:12Z jpm $
 12 
 * @version	$Id: Tableau.php 381 2011-10-14 10:36:01Z jpm $
13 
 * @link		/doc/framework/
 13 
 * @link		/doc/framework/
14 
 */
 14 
 */
- 
 
 15 
// TODO : réaliser une seule méthode pour trierMD et trierMDType
15 
class Tableau {
 16 
class Tableau {
16 
	/**
 17 
	/**
17 
	 * Etend le tableau à étendre avec les données du tableau à copier. Si des clés sont identiques entre les deux tableaux
 18 
	 * Etend le tableau à étendre avec les données du tableau à copier. Si des clés sont identiques entre les deux tableaux
18 
	 * une erreur est déclenchée et la valeur du tableau à étendre est gardée. Si les deux tableaux ont des clés numériques
19 
	 * une erreur est déclenchée et la valeur du tableau à étendre est gardée. Si les deux tableaux ont des clés numériques
19 
	 * leurs valeurs sont gardées (à la différence de array_merge).
 20 
	 * leurs valeurs sont gardées (à la différence de array_merge).
20 
	 * Les tableaux sont passés par références et le tableau à copier est progressivement détruit pour éviter la consomation
 21 
	 * Les tableaux sont passés par références et le tableau à copier est progressivement détruit pour éviter la consomation
21 
	 * de mémoire.
 22 
	 * de mémoire.
22 
	 *
23 
	 *
23 
	 * @param array $tableau_a_etendre
 24 
	 * @param array $tableau_a_etendre
24 
	 * @param array $tableau_a_copier
 25 
	 * @param array $tableau_a_copier
25 
	 * @return void
 26 
	 * @return void
26 
	 */
 27 
	 */
27 
	public static function etendre(Array &$tableau_a_etendre, Array &$tableau_a_copier) {
 28 
	public static function etendre(Array &$tableau_a_etendre, Array &$tableau_a_copier) {
28 
		$cles_existantes = null;
 29 
		$cles_existantes = null;
29 
		foreach($tableau_a_copier as $cle => $val) {
 30 
		foreach($tableau_a_copier as $cle => $val) {
30 
			if (!isset($tableau_a_etendre[$cle])) {
 31 
			if (!isset($tableau_a_etendre[$cle])) {
31 
				$tableau_a_etendre[$cle] = $val;
 32 
				$tableau_a_etendre[$cle] = $val;
32 
				unset($tableau_a_copier[$cle]);
 33 
				unset($tableau_a_copier[$cle]);
33 
			} else {
 34 
			} else {
34 
				$cles_existantes = $cle;
 35 
				$cles_existantes = $cle;
35 
			}
 36 
			}
36 
		}
 37 
		}
37 
		if (is_array($cles_existantes)) {
 38 
		if (is_array($cles_existantes)) {
38 
			$e = "Le tableau a étendre contenait déjà les clés suivantes : ".implode(', ', $cles_existantes);
 39 
			$e = "Le tableau a étendre contenait déjà les clés suivantes : ".implode(', ', $cles_existantes);
39 
			trigger_error($e, E_USER_WARNING);
 40 
			trigger_error($e, E_USER_WARNING);
40 
		}
 41 
		}
41 
	}
 42 
	}
42
43
43 
	/**
 44 
	/**
44 
	 * @deprecated Utiliser la méthode trierMD()
 45 
	 * @deprecated Utiliser la méthode trierMD()
45 
	 * @see  trierMD()
 46 
	 * @see  trierMD()
46 
	 */
 47 
	 */
47 
	public static function trierTableauMd($array, $cols) {
 48 
	public static function trierTableauMd($array, $cols) {
48 
		return self::trierMD($array, $cols);
 49 
		return self::trierMD($array, $cols);
49 
	}
 50 
	}
50
51
51 
	/**
 52 
	/**
52 
	 * Permet de trier un tableau multi-dimenssionnel en gardant l'ordre des clés.
 53 
	 * Permet de trier un tableau multi-dimenssionnel en gardant l'ordre des clés.
53 
	 *
54 
	 *
54 
	 * @param Array $array le tableau à trier
 55 
	 * @param Array $array le tableau à trier
55 
	 * @param Array $cols tableau indiquant en clé la colonne à trier et en valeur l'ordre avec SORT_ASC ou SORT_DESC
 56 
	 * @param Array $cols tableau indiquant en clé la colonne à trier et en valeur l'ordre avec SORT_ASC ou SORT_DESC
56 
	 * @return Array le tableau trié.
 57 
	 * @return Array le tableau trié.
57 
	 * @author cagret at gmail dot com
 58 
	 * @author cagret at gmail dot com
58 
	 * @see  http://fr.php.net/manual/fr/function.array-multisort.php Post du 21-Jun-2009 12:38
 59 
	 * @see  http://fr.php.net/manual/fr/function.array-multisort.php Post du 21-Jun-2009 12:38
59 
	 */
 60 
	 */
60 
	public static function trierMD($array, $cols) {
 61 
	public static function trierMD($array, $cols) {
61 
		$colarr = array();
 62 
		$colarr = array();
62 
		foreach ($cols as $col => $order) {
 63 
		foreach ($cols as $col => $order) {
63 
		$colarr[$col] = array();
 64 
			$colarr[$col] = array();
64 
			foreach ($array as $k => $row) {
 65 
			foreach ($array as $k => $row) {
65 
				$colarr[$col]['_'.$k] = strtolower($row[$col]);
 66 
				$colarr[$col]['_'.$k] = strtolower($row[$col]);
66 
			}
 67 
			}
67 
		}
 68 
		}
68 
		$params = array();
 69 
		$params = array();
69 
		foreach ($cols as $col => $order) {
 70 
		foreach ($cols as $col => $order) {
70 
			$params[] =& $colarr[$col];
 71 
			$params[] =& $colarr[$col];
71 
			$params = array_merge($params, (array)$order);
 72 
			$params = array_merge($params, (array) $order);
72 
		}
 73 
		}
73 
		call_user_func_array('array_multisort', $params);
 74 
		call_user_func_array('array_multisort', $params);
74 
		$ret = array();
 75 
		$ret = array();
75 
		$keys = array();
 76 
		$keys = array();
76 
		$first = true;
 77 
		$first = true;
77 
		foreach ($colarr as $col => $arr) {
 78 
		foreach ($colarr as $col => $arr) {
78 
			foreach ($arr as $k => $v) {
 79 
			foreach ($arr as $k => $v) {
79 
				if ($first) {
 80 
				if ($first) {
80 
					$keys[$k] = substr($k, 1);
 81 
					$keys[$k] = substr($k, 1);
81 
				}
 82 
				}
82 
				$k = $keys[$k];
 83 
				$k = $keys[$k];
83 
				if (!isset($ret[$k])) {
 84 
				if (!isset($ret[$k])) {
84 
					$ret[$k] = $array[$k];
 85 
					$ret[$k] = $array[$k];
85 
				}
 86 
				}
86 
				$ret[$k][$col] = $array[$k][$col];
 87 
				$ret[$k][$col] = $array[$k][$col];
87 
			}
 88 
			}
88 
			$first = false;
 89 
			$first = false;
89 
		}
 90 
		}
90 
		return $ret;
 91 
		return $ret;
91 
	}
 92 
	}
- 
 
 93
- 
 
 94 
	/**
- 
 
 95 
	* Méthode réalisant un tri d'un tableau multidimension.
- 
 
 96 
	* A utiliser de cette façon:
- 
 
 97 
	* EfloreTriage::trieMultiple( $tableau_multidimension, array('ma_cle1', 'ma_cle1_ordre_tri', 'ma_cle2', 'ma_cle2_ordre_tri'), $type_de_tri);
- 
 
 98 
	* Utiliser les constantes php SORT_DESC ou SORT_ASC pour l'odre de tri.
- 
 
 99 
	* Pour le type de tri : utiliser 'nat' pour un trie naturel, 'cs' pour tri sensible à la casse ou 'ci' pour insensible.
- 
 
 100 
	* @param array le tableau à trier
- 
 
 101 
	* @param array le talbeau des colonnes à trier constituer d'un suite de nom de clé de tableau et d'ordre de tri.
- 
 
 102 
	* @return array le tableau trié.
- 
 
 103 
	*/
- 
 
 104 
	public static function trierMDType(&$tableau, $cols, $type = 'ci') {
- 
 
 105 
		self::$tri_multi_dimension = $cols;
- 
 
 106 
		self::$tri_type = $type;
- 
 
 107 
		usort($tableau, array('self', 'comparer'));
- 
 
 108 
		return $tableau;
- 
 
 109 
	}
- 
 
 110
- 
 
 111 
	private static function comparer($a, $b) {
- 
 
 112 
		$cols = self::$tri_multi_dimension;
- 
 
 113 
		$i = 0;
- 
 
 114 
		$resultat = 0;
- 
 
 115 
		$colonne_nbre = count($cols);
- 
 
 116 
		while ($resultat == 0 && $i < $colonne_nbre) {
- 
 
 117 
			$mot_01 = self::enleverAccents($b[$cols[$i]]);
- 
 
 118 
			$mot_02 = self::enleverAccents($a[$cols[$i]]);
- 
 
 119 
			switch (self::$tri_type) {
- 
 
 120 
				case 'nat' :
- 
 
 121 
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strnatcmp($mot_01, $mot_02) : strnatcmp($mot_02, $mot_01);
- 
 
 122 
					break;
- 
 
 123 
				case 'cs' :
- 
 
 124 
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcmp($mot_01, $mot_02) : strcmp($mot_02, $mot_01);
- 
 
 125 
					break;
- 
 
 126 
				case 'ci' :
- 
 
 127 
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcasecmp($mot_01, $mot_02) : strcasecmp($mot_02, $mot_01);
- 
 
 128 
					break;
- 
 
 129 
				default:
- 
 
 130 
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcasecmp($mot_01, $mot_02) : strcasecmp($mot_02, $mot_01);
- 
 
 131 
					break;
- 
 
 132 
			}
- 
 
 133 
			$i += 2;
- 
 
 134 
		}
- 
 
 135 
		return $resultat;
- 
 
 136 
	}
92 
}
 137 
}
93 
?>
 138 
?>