';
if ($completo == 0)
echo date('d',$dia[0]['unix']);//mostra o dia do mes
else
echo date('d/m/y',$dia[0]['unix']);//mostra o dia do mes
echo '
';
//echo '';
echo $dias_da_semana[date('N',$dia[0]['unix'])-1]; //mostra o dia da semana
echo '
';
foreach ($dia as $mare)
{
if ($mare['tipo'] == 'a')
echo '
';
else
echo '
';
echo $mare['hora'];
echo ' ';
echo $mare['altura'];
echo 'm';
echo '
';
//echo '
';
}
//print_r($dia);
}//fim function imprimedia
function arraydemare($stringdata, $inicio, $fim, $lingua)
{
//$ar_d = explode ('|',$stringdata); //cria array, onde cada elemento eh um dia
//cada elemento tem essa cara: 1341630000,"July 7, 2012 06:02:00",1.95,"a"
$ar_d = array();
//essa parte até ##A foi incluida quando mudou a fonte dos dados de mare para solucao caseira
$ar_bl = explode ("\r\n\r\n",$stringdata); //explore o array onde tem linha em branco
foreach($ar_bl as $bb) //para cada bloco de um dia
{
$blocoexplodido = explode("\r\n", $bb);//explode cada bloco pela quebra de linha
$linha1 = array_shift($blocoexplodido);//pega a primeira linha, e remove do array
$linhaexplodida = explode(" ",$linha1);
$datatexto= $linhaexplodida[1];//a data em formato texto
$dataexp= explode("-",$datatexto);//explodido pelo separador de dia-mes-ano
@$dataunix= mktime(0, 0, 0, $dataexp[1], $dataexp[2], $dataexp[0] );//converte a data para formato unix (nes, dia, ano)
foreach($blocoexplodido as $linhamare)
{
$partes = explode("Tide:", $linhamare);
if (trim($partes[0]) == "High")
$sobe = "a";
if (trim($partes[0]) == "Low")
$sobe = "b";
$fragmentos = explode("HB",trim($partes[1]));
$horatrim = trim($fragmentos[0]);
if (strlen($horatrim)<5)
$horatrim = "0".$horatrim;
$altura = floatval(trim($fragmentos[1]));
$altura = $altura * 0.3048;
$alturatext = number_format($altura,2);
$elemento = $dataunix.",".'"'.date("F d, Y",$dataunix)." ".$horatrim."".'",'.$alturatext.',"'.$sobe.'"';
//$elemento = $dataunix.",".'"'.date("F d, Y",$dataunix)." ".$horatrim."".'",'.trim($fragmentos[1]).',"'.$sobe.'"';
array_push($ar_d, $elemento);
//echo ("
- ");
//echo $linhamare;
//echo " | ";
//echo $elemento;
}
}
//print_r($ar_d);
//##A fim da mudanca
$array_mare = array(); //array que contera cada alta ou baixa de mare no periodo
if (count($ar_d) >2)
foreach ($ar_d as $i => $dia)
{
$temp = array();
$k = explode (',',$dia); //separa por virgula
$temp['unix'] = $k[0]; //para extrair a data unix
$m = explode ('"',$dia); //explode por aspas duplas
$temp['tipo'] = $m[3]; //"a"=alta ou "b"=baixa
$n = explode(',',$m[2]);
if ($lingua == 'en')
$temp['altura'] = $n[1];
else
$temp['altura'] = str_replace('.',',',$n[1]); //aqui falta fazer substituicao de string, pra trocar o ponto pela virgula
//$m[1] contem a data e hora (que tava entre aspas)
$o = explode (' ',$m[1]);
$temp['hora'] = substr($o[3],0,5); //falta recortar os 5 primeiros caracteres do string
if (($temp['unix'] >= $inicio) && ($temp['unix'] <= $fim))
array_push ($array_mare, $temp);
}
//agora distribui as varias mares num array de dias
$array_dias = array();
foreach ($array_mare as $j => $mare)
{
if (!isset($array_dias[($mare['unix'])])) $array_dias[($mare['unix'])] = array();
array_push ($array_dias[($mare['unix'])], $mare);
}
//e finalmente distribui os dias num array de semanas
$array_semanas = array();
foreach ($array_dias as $w => $dia)
{
if (!isset($array_semanas[(date('W',$w))])) $array_semanas[(date('W',$w))]=array();
array_push ($array_semanas[(date('W',$w))], $dia);
//echo date('W', $w);
//echo '
';
}
return $array_semanas;
}//fim da function arraydemare
?>
';
echo '';
}
?>
