Black Wolf - osobní stránky

Parsování GPS souřadnic verze 2

Po čase teď mám trošku volna a nápady co dělat. Jedním z nich je zpřehlednění staré funkce pro parsování GPS souřadnic.

Nová verze neopravuje žádné nedostatky, ani nepřidává žádnou funkčnost - jednoduše z toho důvodu, že jsem (a ani nikdo jiný) nenalezl v původní funkci žádné chyby, které by bylo třeba opravovat, a rozšiřovat funkčnost dost dobře nejde.

Nová verze je tedy funkčně i algoritmicky zcela totožná s tou původní. Jedinou změnou je výrazné zpřehlednění zdrojového kódu.

Do budoucna ale vylepšení chystám - z funkce udělám třídu, rozdělím jí do více metod (což povede k dalšímu zpřehlednění kódu) a doplním jí o možnost nějaké rozumné a praktické práce s GPS souřadnicemi. Např. převod formátů, získávání jednotlivých složek či nějaké základní výpočty.

A tady je konečně slibovaný zdrojový kód:

/**
 * prevod GPS souradnic od uzivatele na souradnice ve stupnich
 *
 * @param string $gps souradnice zadane uzivatelem
 * @param boolean $toString vratit vysledek jako string misto pole floatu
 * @param boolean $strict prevest jen presny format (jen zakladni korekce chyb - bile znaky navic, jiny format uvozovek; retezec nesmi obsahovat znaky nepatrici do GPS formatu)
 * @param string $encoding kodovani vstupniho retezce
 *
 * @return array|string [sirka;delka] souradnice ve stupnich, nebo false pokud se souradnice nepodarilo prevest
 */
function gpsToFloat($gps,$toString=false,$strict=false,$encoding='utf-8'){
	$ret = false;
	//prevod na upper zjednodusi manipulaci se specifikaci polokoule
	$gps  = mb_strtoupper($gps,$encoding);
	//generovani regularu - vyrazy pro sirku a delku jsou ekvivalentni
	if( ! function_exists('gpsToFloatRegExp')){ function gpsToFloatRegExp($first=true){
		return '(['.($first?'NS':'EW').'-])?
		\s*

		(?P<'.($first ? 'latSt' : 'longSt').'>\d{1,3}(\s*[\.,]\s*\d+)?)
		\s*
		(?('.($first?  '3' : '9').')
				°?
			|
				(?:
					°\s*
					(?:
						(?(?<!\d)
							(?P<'.($first ? 'latMin' : 'longMin').'>\d{1,3} (\s*[\.,]\s*\d+)?)
							\s*
						)
						(?('.($first ? '5' : '11').')
								[\'`´]?
							|
								(?:
									[\'`´]\s*
									(?:
										(?(?<!\d)
											(?P<'.($first ? 'latSec' : 'longSec').'>\d{1,3} (?:\s*[\.,]\s*\d+)?)
											\s*(?:["“”]|(?:[\'`´]\s*[\'`´]))?
										)
									)?
								)?
						)
					)?
				)?
		)

		(?('.($first ? '1' : '7').') | \s*['.($first ? 'NS' : 'EW').']?)';
	}}

	$matches = false;

	//pokus o precteni souradnic podle regularniho vyrazu - povede se, jestlize vstup je v nejakem "rozumnem" tvaru pripominajicim platny format
	if(preg_match('#^\s*'.gpsToFloatRegExp().'[^\d]+'.gpsToFloatRegExp(false).'\s*$#xu', $gps, $matches)){
		//pretypovani na float
		foreach (array('latSt','latMin','latSec','longSt','longMin','longSec') as $item){
			$matches[$item] = $matches[$item] ? floatval(preg_replace('#[^\d\.]+#', '', str_replace(',', '.', $matches[$item]))) : 0;
		}
		//prepocitani na stupne
		$ret = array(
			$matches['latSt'] + $matches['latMin']/60 + $matches['latSec']/3600,
			$matches['longSt'] + $matches['longMin']/60 + $matches['longSec']/3600
		);
		//upraveni znamenek souradnic podle znaku "-" nebo znaku oznacujiciho polokouli
		$mFirstPos = mb_strpos($gps,'-',null,$encoding);
		if($mFirstPos === 0 ||
			$mFirstPos > 0 && $mFirstPos < mb_strpos($gps, $matches['latSt'], null, $encoding)
			|| mb_strpos($gps, 'S', null, $encoding) !== false
		){
			$ret[0] = -$ret[0];
		}
		if($mFirstPos > 0 && $mFirstPos > mb_strpos($gps, $matches['latSt'], null ,$encoding)
			|| mb_strpos($gps, '-', $mFirstPos+1, $encoding) > 0
			|| mb_strpos($gps, 'W', null, $encoding) !== false
		){
			$ret[1] = -$ret[1];
		}
	// Jinak je-li povoleno dalsi prevadeni se pokusime vstup prevest na rozumnejsi tvar a preparsovat ho jeste jednou
	} elseif( ! $strict) {
		//vyhazeni znaku ktere v GPS souradnicich nemaji co delat
		$gps = trim(preg_replace(array('#[^\d\.\,SW-]#u','# +#u','# *\. *#u'), array(' ',' ','.'), $gps));
		preg_match_all('#[\d]+(?:[\.,][\d]+)?#u', $gps, $matches);
		$count = count($matches[0]);
		//vstup lze jednoznacne prevest jen pokud obsahuje lichy pocet cisel nebo desetinnou tecku v jine skupine nez posledni
		if($count==2 || $count==4 || $count==6 ||
			( mb_strpos($gps, '.', null, $encoding) < mb_strrpos($gps,$matches[0][count($matches[0])-1], null, $encoding)
				&& mb_substr_count($gps, '.', $encoding) <= 2 )
		){
			//escapovani tecek pro pouziti v regularu a nahrazeni carek pouzitych jako oddelovac desetinnych mist teckami
			$matches2 = array();
			for($i=0; $i<count($matches[0]); ++$i){
				$matches2[0][$i] = str_replace('.', '\.', $matches[0][$i]);
				$matches[0][$i] = str_replace(',', '.', $matches[0][$i]);
			}
			//sestaveni regularu pro transformaci vstupu - z vstupu ponechame nalezena cisla, bile znaky a specifikaci polokoule v miste kde se muze nachazet a doplnime znaky jednotek, vse ostatni bude vyhazeno (po predchozi uprave zbyly znaky ktere mohou oznacovat polokouly nebo byt oddelovacem desetinnych mist)
			$dels = array('°',"'",'"');
			$pattern = '';
			$replace = '';
			if(mb_strpos($gps, '.', null, $encoding) || mb_strpos($gps, ',', null, $encoding)){
				$j = 0;
				for($i=0; $i < $count; ++ $i){
					$replace .= $matches[0][$i].$dels[$j%3].' \\'.($i+2).' ';
					$pattern .= '([ '.( $i==0 ? 'S-' : ($j==0 ? 'SW-' : '') ).']*).*?'.$matches2[0][$i];
					if(mb_strpos($matches[0][$i], '.', null, $encoding)){
						$j = 0;
					} else {
						++ $j;
					}
				}
			} else {
				for($i=0; $i<$count; ++$i){
					$replace .= $matches[0][$i].$dels[$i%($count/2)].' \\'.($i+2).' ';
					$pattern .= '([ '.( $i==0 ? 'S-' : ($i==$count/2 ? 'SW-' : '') ).']*).*?'.$matches2[0][$i];
				}
			}
			//pokusime se preparsovat upraveny retezec ve strikt modu (byl-li platny, prevedl se na standardni format a pujde prevest)
			$ret = gpsToFloat(
				$count==2 ? $gps : preg_replace('#^.*?'.$pattern.'.*?([ W]*).*?$#u','\\1 '.$replace,$gps),
				false,
				true,
				$encoding
			);
		}
	}
	// vratime vysledne pole, nebo false pokud se retezec nepodarilo prevest nebo jsou souradnice mimo povoleny rozsah
	return ( ! $ret || $ret[0]>90 || $ret[0]<-90 || $ret[1]>180 || $ret[1]<-180)
		?
			false
		:
			($toString ? $ret[0].' '.$ret[1] : $ret);
}

Edit 10.10. 2010

Opravil jsem chyby, které reportoval Saman (viz komentáře).

Do budoucna chystám obsáhlejší třídu pro práci s GPS zahrnující kromě této parsovací funkce spoustu užitečných věcí navíc. Nemohu však zaručit termín zveřejnění (je to téměř hotové, ale chce to ještě doladit a doplnit), takže máte-li o třídu zájem, napište mi e-mail a budu vás informovat (případně nabídnu aktuální betaverzi).

Publikováno 10.08.2009 22:02 v sekci Webdesign
Trvalý odkaz
Komentářů: 7 (Zobrazit komentáře)