Velox agg. al 14/01/2007 + nuove categorie POI DVD 2007_1 professional

Ho visto pure io x la Svizzera; ce ne sono diversi. Ricorda che il sistema ti visualizza le icone dopo qualche secondo non subito (il file contenente i dati dei velox, essendo di tutta europa, è più grande di quello inerente quelli solo x l'Italia). La verifica l'ho fatta cin i dati aggiornati al 20.01.07 ma dovrebbero scostarsi di poco da quelli del 14.01.07

 

Si infatti, risulterebbero troppo grandi le 28x28; già le 16x16 son grandicelle (se ne hai tante nelle vicinanze la visualizzazione è un po' incasinata)

 

ciao, un mio amico è riuscito a convertire il file sorgente .asc in file .idx e .url sotto windows. Ha usato un interprete perl (active perl) e uno script (corretto e modificato) che domani posterò su questa discussione

 

Allora attendiamo tra qualche giorno l'aggiornamento nuovo, così verifichiamo. Non è che li han proprio tolti materialmente ? (i velox, disinstallati)

 

ecco lo script modificato e corretto da usare con Activeperl sotto windows (copiare il testo ed incollarlo su un file .txt e poi rinominarlo in .pl, ad esempio: creaidxurl.pl

#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if $running_under_some_shell;
# this emulates #! processing on NIH machines.
# (remove #! line above if indigestible)
$/ = "\n"; # set input record separator
$\ = "\r\n"; # set output record separator
open FILE , @ARGV[ 0 ] or die $!;
LINE: while () {
chomp;
next LINE if (/^;/);
if (/(.+),(.+),[^"]*"(.+)"/) {
$rec[0] = sprintf("%d", $1 * 2**29 / 45);
$rec[1] = sprintf("%d", $2 * 2**29 / 45);
$rec[2] = $3;
$rec[2] =~ s/ +/ /g;
$rec[2] = substr($rec[2], 0, 35);
$tlen = length( $rec[0] . $rec[1] ) + 1;
$wgslen = $tlen if ($tlen > $wgslen);
$tlen = length ($rec[2]);
$namelen = $tlen if ($tlen > $namelen);
push @data, [ @rec ];
}
}
@data = @data[sort { $data[$a][0] $data[$b][0] } 0 .. $#data];
open URL, ">url";
binmode URL, ":raw";
open IDX, ">idx";
binmode IDX, ":raw";
print URL "CATURL-eng/sf_" . @ARGV[ 1 ] . ".htm__";
print URL "POSWGS:S:$wgslen|VILLAGE:S:0|CITY:S:0|NAME:S:$namelen|STREET:S:0|HOUSENUMBER:S:0|PHONE:S:0|COUNTRY:S:2|ENTP1:S:$wgslen|ENTP2:S:0|ENTP3:S:0|ENTP4:S:0|ENTP5:S:0|ENTP6:S:0|ENTP7:S:0|ENTP8:S:0|ENTP9:S:0|BRANDNAME:S:0|_:S:0";
for $i (0 .. $#data) {
$wgs = pack("a" . $wgslen, $data[$i][0] . "," . $data[$i][1]);
print URL $wgs . pack ("a". $namelen, $data[$i][2]) . "UK" . $wgs;
}
close URL;
$idlen = int(log($#data)/log(10) + 1);
$delta = ($#data - 2) / int($#data / 50 + .9999);
print IDX "Glambda- CATIDX-eng/sf_" . @ARGV[ 1 ] . ".htm___";
print IDX "ID:I:$idlen|POS:P:8|NAME:S:$namelen|_:S:0";
$j = 0;
LOOP: for $i (0 .. $#data) {
next LOOP if ($i < $j);
$S = $S . pack("N2",$i,$data[$i][0]) . "|";
$j += $delta;
}
print IDX substr($S, 0, length($S) - 1) . "\0";
for $i (0 .. $#data) {
print IDX sprintf("%*s", $idlen, $i) . pack("N2a" . $namelen, $data[$i][0], $data[$i][1], $data[$i][2]);
}
close IDX;

 

questo pacchetto funziona solo su sistemi navi professional nuovi, non su mk4 o precedenti (e46)

 

Ciao, certo che si può fare, cerca le precedenti discussioni su questo forum