Subversion Repositories Applications.framework

Rev

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

Rev 381 Rev 394
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 381 2011-10-14 10:36:01Z jpm $
12
 * @version	$Id: Tableau.php 394 2011-11-14 13:48:24Z jpm $
13
 * @link		/doc/framework/
13
 * @link		/doc/framework/
14
 */
14
 */
15
// TODO : réaliser une seule méthode pour trierMD et trierMDType
15
// TODO : réaliser une seule méthode pour trierMD et trierMDType
16
class Tableau {
16
class Tableau {
-
 
17
	const TRIE_NATUREL = 'nat';
-
 
18
	const TRIE_CASSE_SENSIBLE = 'ci';
-
 
19
	const TRIE_CASSE_INSENSIBLE = 'ci';
-
 
20
 
-
 
21
	private static $triMultiDimension = null;
-
 
22
	private static $triType = null;
-
 
23
 
17
	/**
24
	/**
18
	 * Etend le tableau à étendre avec les données du tableau à copier. Si des clés sont identiques entre les deux tableaux
25
	 * Etend le tableau à étendre avec les données du tableau à copier. Si des clés sont identiques entre les deux tableaux
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 
26
	 * 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
20
	 * leurs valeurs sont gardées (à la différence de array_merge).
27
	 * leurs valeurs sont gardées (à la différence de array_merge).
21
	 * Les tableaux sont passés par références et le tableau à copier est progressivement détruit pour éviter la consomation
28
	 * Les tableaux sont passés par références et le tableau à copier est progressivement détruit pour éviter la consomation
22
	 * de mémoire.
29
	 * de mémoire.
23
	 * 
30
	 *
24
	 * @param array $tableau_a_etendre
31
	 * @param array $tableau_a_etendre
25
	 * @param array $tableau_a_copier
32
	 * @param array $tableau_a_copier
26
	 * @return void
33
	 * @return void
27
	 */
34
	 */
28
	public static function etendre(Array &$tableau_a_etendre, Array &$tableau_a_copier) {
35
	public static function etendre(Array &$tableau_a_etendre, Array &$tableau_a_copier) {
29
		$cles_existantes = null;
36
		$cles_existantes = null;
30
		foreach($tableau_a_copier as $cle => $val) {
37
		foreach($tableau_a_copier as $cle => $val) {
31
			if (!isset($tableau_a_etendre[$cle])) {
38
			if (!isset($tableau_a_etendre[$cle])) {
32
				$tableau_a_etendre[$cle] = $val;
39
				$tableau_a_etendre[$cle] = $val;
33
				unset($tableau_a_copier[$cle]);
40
				unset($tableau_a_copier[$cle]);
34
			} else {
41
			} else {
35
				$cles_existantes = $cle;
42
				$cles_existantes = $cle;
36
			}
43
			}
37
		}
44
		}
38
		if (is_array($cles_existantes)) {
45
		if (is_array($cles_existantes)) {
39
			$e = "Le tableau a étendre contenait déjà les clés suivantes : ".implode(', ', $cles_existantes);
46
			$e = "Le tableau a étendre contenait déjà les clés suivantes : ".implode(', ', $cles_existantes);
40
			trigger_error($e, E_USER_WARNING);
47
			trigger_error($e, E_USER_WARNING);
41
		}
48
		}
42
	}
49
	}
43
	
50
 
44
	/**
51
	/**
45
	 * @deprecated Utiliser la méthode trierMD()
52
	 * @deprecated Utiliser la méthode trierMD()
46
	 * @see  trierMD()
53
	 * @see  trierMD()
47
	 */
54
	 */
48
	public static function trierTableauMd($array, $cols) {
55
	public static function trierTableauMd($array, $cols) {
49
		return self::trierMD($array, $cols);
56
		return self::trierMD($array, $cols);
50
	}
57
	}
51
	
58
 
52
	/**
59
	/**
53
	 * Permet de trier un tableau multi-dimenssionnel en gardant l'ordre des clés.
60
	 * Permet de trier un tableau multi-dimenssionnel en gardant l'ordre des clés.
54
	 * 
61
	 *
55
	 * @param Array $array le tableau à trier
62
	 * @param Array $array le tableau à trier
56
	 * @param Array $cols tableau indiquant en clé la colonne à trier et en valeur l'ordre avec SORT_ASC ou SORT_DESC
63
	 * @param Array $cols tableau indiquant en clé la colonne à trier et en valeur l'ordre avec SORT_ASC ou SORT_DESC
57
	 * @return Array le tableau trié.
64
	 * @return Array le tableau trié.
58
	 * @author cagret at gmail dot com
65
	 * @author cagret at gmail dot com
59
	 * @see  http://fr.php.net/manual/fr/function.array-multisort.php Post du 21-Jun-2009 12:38
66
	 * @see  http://fr.php.net/manual/fr/function.array-multisort.php Post du 21-Jun-2009 12:38
60
	 */
67
	 */
61
	public static function trierMD($array, $cols) {
68
	public static function trierMD($array, $cols) {
62
		$colarr = array();
69
		$colarr = array();
63
		foreach ($cols as $col => $order) {
70
		foreach ($cols as $col => $order) {
64
			$colarr[$col] = array();
71
			$colarr[$col] = array();
65
			foreach ($array as $k => $row) {
72
			foreach ($array as $k => $row) {
66
				$colarr[$col]['_'.$k] = strtolower($row[$col]);
73
				$colarr[$col]['_'.$k] = strtolower($row[$col]);
67
			}
74
			}
68
		}
75
		}
69
		$params = array();
76
		$params = array();
70
		foreach ($cols as $col => $order) {
77
		foreach ($cols as $col => $order) {
71
			$params[] =& $colarr[$col];
78
			$params[] =& $colarr[$col];
72
			$params = array_merge($params, (array) $order);
79
			$params = array_merge($params, (array) $order);
73
		}
80
		}
74
		call_user_func_array('array_multisort', $params);
81
		call_user_func_array('array_multisort', $params);
75
		$ret = array();
82
		$ret = array();
76
		$keys = array();
83
		$keys = array();
77
		$first = true;
84
		$first = true;
78
		foreach ($colarr as $col => $arr) {
85
		foreach ($colarr as $col => $arr) {
79
			foreach ($arr as $k => $v) {
86
			foreach ($arr as $k => $v) {
80
				if ($first) {
87
				if ($first) {
81
					$keys[$k] = substr($k, 1);
88
					$keys[$k] = substr($k, 1);
82
				}
89
				}
83
				$k = $keys[$k];
90
				$k = $keys[$k];
84
				if (!isset($ret[$k])) {
91
				if (!isset($ret[$k])) {
85
					$ret[$k] = $array[$k];
92
					$ret[$k] = $array[$k];
86
				}
93
				}
87
				$ret[$k][$col] = $array[$k][$col];
94
				$ret[$k][$col] = $array[$k][$col];
88
			}
95
			}
89
			$first = false;
96
			$first = false;
90
		}
97
		}
91
		return $ret;
98
		return $ret;
92
	}
99
	}
93
	
100
 
94
	/**
101
	/**
95
	* Méthode réalisant un tri d'un tableau multidimension.
102
	* Méthode réalisant un tri d'un tableau multidimension.
96
	* A utiliser de cette façon:
103
	* 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);
104
	* 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.
105
	* 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.
106
	* Pour le type de tri : utiliser Tableau::TRIE_NATUREL pour un trie naturel, Tableau::TRIE_CASSE_SENSIBLE pour tri sensible à la casse ou Tableau::TRIE_CASSE_INSENSIBLE pour insensible.
100
	* @param array le tableau à trier
107
	* @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.
108
	* @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é.
109
	* @return array le tableau trié.
103
	*/
110
	*/
104
	public static function trierMDType(&$tableau, $cols, $type = 'ci') {
111
	public static function trierMDType(&$tableau, $cols, $type = self::TRIE_CASSE_INSENSIBLE) {
105
		self::$tri_multi_dimension = $cols;
112
		self::$triMultiDimension = $cols;
106
		self::$tri_type = $type;
113
		self::$triType = $type;
107
		usort($tableau, array('self', 'comparer'));
114
		usort($tableau, array('self', 'comparer'));
108
		return $tableau;
115
		return $tableau;
109
	}
116
	}
110
	
117
 
111
	private static function comparer($a, $b) {
118
	private static function comparer($a, $b) {
112
		$cols = self::$tri_multi_dimension;
119
		$cols = self::$triMultiDimension;
113
		$i = 0;
120
		$i = 0;
114
		$resultat = 0;
121
		$resultat = 0;
115
		$colonne_nbre = count($cols);
122
		$colonne_nbre = count($cols);
116
		while ($resultat == 0 && $i < $colonne_nbre) {
123
		while ($resultat == 0 && $i < $colonne_nbre) {
117
			$mot_01 = self::enleverAccents($b[$cols[$i]]);
124
			$mot_01 = Chaine::supprimerAccents($b[$cols[$i]]);
118
			$mot_02 = self::enleverAccents($a[$cols[$i]]);
125
			$mot_02 = Chaine::supprimerAccents($a[$cols[$i]]);
119
			switch (self::$tri_type) {
126
			switch (self::$triType) {
120
				case 'nat' :
127
				case self::TRIE_NATUREL :
121
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strnatcmp($mot_01, $mot_02) : strnatcmp($mot_02, $mot_01);
128
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strnatcmp($mot_01, $mot_02) : strnatcmp($mot_02, $mot_01);
122
					break;
129
					break;
123
				case 'cs' :
130
				case self::TRIE_CASSE_SENSIBLE :
124
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcmp($mot_01, $mot_02) : strcmp($mot_02, $mot_01);
131
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcmp($mot_01, $mot_02) : strcmp($mot_02, $mot_01);
125
					break;
132
					break;
126
				case 'ci' :
133
				case self::TRIE_CASSE_INSENSIBLE :
127
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcasecmp($mot_01, $mot_02) : strcasecmp($mot_02, $mot_01);
134
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcasecmp($mot_01, $mot_02) : strcasecmp($mot_02, $mot_01);
128
					break;
135
					break;
129
				default:
136
				default:
130
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcasecmp($mot_01, $mot_02) : strcasecmp($mot_02, $mot_01);
137
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcasecmp($mot_01, $mot_02) : strcasecmp($mot_02, $mot_01);
131
					break;
138
					break;
132
			}
139
			}
133
			$i += 2;
140
			$i += 2;
134
		}
141
		}
135
		return $resultat;
142
		return $resultat;
136
	}
143
	}
137
}
144
}
138
?>
145
?>