AntiGuide: AndroidLocateMyPhone2Kml

@20110626_165359 X=2.448122425 Y=48.7838444
@20110626_165559 X=2.448122425 Y=48.7838444
@20110626_165800 X=2.448122425 Y=48.7838444
@20110626_170004 X=2.448122425 Y=48.7838444
@20110626_170209 X=2.448122425 Y=48.7838444
@20110626_170414 X=2.448122425 Y=48.7838444
@20110626_170619 X=2.448122425 Y=48.7838444
@20110626_170824 X=2.448122425 Y=48.7838444
@20110626_171030 X=2.448122425 Y=48.7838444
@20110626_171235 X=2.448122425 Y=48.7838444
@20110626_171440 X=2.448122425 Y=48.7838444
@20110626_171645 X=2.448122425 Y=48.7838444
@20110626_171849 X=2.448122425 Y=48.7838444
@20110626_172055 X=2.448122425 Y=48.7838444
@20110626_172256 X=2.448122425 Y=48.7838444
@20110626_172500 X=2.448122425 Y=48.7838444
@20110626_172705 X=2.448122425 Y=48.7838444
@20110626_172910 X=2.448122425 Y=48.7838444
@20110626_173116 X=2.448122425 Y=48.7838444
@20110626_173321 X=2.448122425 Y=48.7838444
@20110626_173526 X=2.448122425 Y=48.7838444
@20110626_173731 X=2.448122425 Y=48.7838444
@20110626_173937 X=2.448122425 Y=48.7838444
@20110626_174143 X=2.448122425 Y=48.7838444
@20110626_174348 X=2.448122425 Y=48.7838444
@20110626_174553 X=2.448122425 Y=48.7838444
@20110626_174753 X=2.448122425 Y=48.7838444
@20110626_174958 X=2.448122425 Y=48.7838444
@20110626_175203 X=2.448122425 Y=48.7838444
@20110626_175408 X=2.448122425 Y=48.7838444
@20110626_175613 X=2.448122425 Y=48.7838444
@20110626_175817 X=2.448122425 Y=48.7838444
@20110626_180017 X=2.448122425 Y=48.7838444
@20110626_180223 X=2.448122425 Y=48.7838444
@20110626_180427 X=2.448122425 Y=48.7838444
@20110626_180633 X=2.448122425 Y=48.7838444
@20110626_180843 X=2.448122425 Y=48.7838444
@20110626_181053 X=2.448122425 Y=48.7838444
@20110626_181054 X=2.2654247 Y=48.80647273333333
@20110626_181137 X=2.2654247 Y=48.80647273333333
@20110626_181305 X=2.265465175 Y=48.80647335
@20110626_181416 X=2.2654247 Y=48.80647273333333
@20110626_181508 X=2.2654247 Y=48.80647273333333
@20110626_181628 X=2.2654247 Y=48.80647273333333
@20110626_181803 X=2.2654247 Y=48.80647273333333
@20110626_182004 X=2.26534375 Y=48.8064715
@20110626_182008 X=2.26534375 Y=48.8064715
@20110626_182015 X=2.2650316 Y=48.805049
@20110626_182218 X=2.2635875 Y=48.8004564
@20110626_182330 X=2.2652368 Y=48.805991
@20110626_182632 X=2.2652368 Y=48.805991
@20110626_182730 X=2.26537672 Y=48.80618468
@20110626_183043 X=2.26537672 Y=48.80618468
@20110626_183131 X=2.26537672 Y=48.80618468
@20110626_183332 X=2.26532425 Y=48.80611205
@20110626_183448 X=2.26532425 Y=48.80611205
@20110626_183448 X=2.26532425 Y=48.80611205
@20110626_183541 X=2.2651009 Y=48.8064678
@20110626_183552 X=2.2650619 Y=48.8057489
@20110626_183657 X=2.2650619 Y=48.8057489
@20110626_183733 X=2.2649744666666667 Y=48.80567653333333
@20110626_183854 X=2.2649744666666667 Y=48.80567653333333
@20110626_184032 X=2.2649744666666667 Y=48.80567653333333
@20110626_184104 X=2.2649744666666667 Y=48.80567653333333
@20110626_184308 X=2.2649744666666667 Y=48.80567653333333
@20110626_184514 X=2.2649744666666667 Y=48.80567653333333
@20110626_184633 X=2.2649744666666667 Y=48.80567653333333
@20110626_184719 X=2.2649744666666667 Y=48.80567653333333
@20110626_184833 X=2.2649744666666667 Y=48.80567653333333
@20110626_185134 X=2.2649744666666667 Y=48.80567653333333
@20110626_185233 X=2.2649744666666667 Y=48.80567653333333
@20110626_185339 X=2.2649744666666667 Y=48.80567653333333
@20110626_185537 X=2.2649503 Y=48.8051287
@20110626_185546 X=2.2649744666666667 Y=48.80567653333333
@20110626_185733 X=2.2649744666666667 Y=48.80567653333333
@20110626_185955 X=2.2635875 Y=48.8004564
@20110626_190035 X=2.2649744666666667 Y=48.80567653333333
@20110626_190315 X=2.2649744666666667 Y=48.80567653333333
@20110626_190406 X=2.2649744666666667 Y=48.80567653333333
@20110626_190518 X=2.26495025 Y=48.805999799999995
@20110626_190544 X=2.2649744666666667 Y=48.80567653333333
@20110626_190605 X=2.2649744666666667 Y=48.80567653333333
@20110626_190613 X=2.2648947 Y=48.8053168
@20110626_190802 X=2.2649744666666667 Y=48.80567653333333
@20110626_191006 X=2.2649744666666667 Y=48.80567653333333
@20110626_191016 X=2.2649393 Y=48.8051355
@20110626_191213 X=2.2649744666666667 Y=48.80567653333333
@20110626_191423 X=2.2590389 Y=48.8109698
@20110626_191537 X=2.2649744666666667 Y=48.80567653333333
@20110626_191634 X=2.2649744666666667 Y=48.80567653333333
@20110626_191843 X=2.2635875 Y=48.8004564
@20110626_191937 X=2.2649744666666667 Y=48.80567653333333
@20110626_192138 X=2.2649744666666667 Y=48.80567653333333
@20110626_192300 X=2.2649744666666667 Y=48.80567653333333
@20110626_192508 X=2.2649744666666667 Y=48.80567653333333
@20110626_192710 X=2.2649744666666667 Y=48.80567653333333
@20110626_192739 X=2.2649744666666667 Y=48.80567653333333
@20110626_192915 X=2.2649744666666667 Y=48.80567653333333
@20110626_192939 X=2.2649744666666667 Y=48.80567653333333
@20110626_193240 X=2.2649744666666667 Y=48.80567653333333
@20110626_193440 X=2.2649744666666667 Y=48.80567653333333
@20110626_193640 X=2.2649744666666667 Y=48.80567653333333
@20110626_193842 X=2.2649744666666667 Y=48.80567653333333
@20110626_194042 X=2.2649744666666667 Y=48.80567653333333
@20110626_194350 X=2.2649744666666667 Y=48.80567653333333
@20110626_194442 X=2.2649744666666667 Y=48.80567653333333
@20110626_194800 X=2.2649744666666667 Y=48.80567653333333
@20110626_194842 X=2.2649744666666667 Y=48.80567653333333
@20110626_195042 X=2.2649744666666667 Y=48.80567653333333
@20110626_195212 X=2.2649744666666667 Y=48.80567653333333
@20110626_195338 X=2.2651275 Y=48.8058762
@20110626_195613 X=2.2651275 Y=48.8058762
@20110626_195817 X=2.2651275 Y=48.8058762
@20110626_195844 X=2.2651275 Y=48.8058762
@20110626_200144 X=2.2651275 Y=48.8058762
@20110626_200422 X=2.2651275 Y=48.8058762
@20110626_200623 X=2.2650619 Y=48.8057489
@20110626_200817 X=2.2649744666666667 Y=48.80567653333333
@20110626_201033 X=2.2590389 Y=48.8109698
@20110626_201144 X=2.2649744666666667 Y=48.80567653333333
@20110626_201244 X=2.2649744666666667 Y=48.80567653333333
@20110626_201454 X=2.2649744666666667 Y=48.80567653333333
@20110626_201544 X=2.2649744666666667 Y=48.80567653333333
@20110626_201747 X=2.2649744666666667 Y=48.80567653333333
@20110626_201905 X=2.2649744666666667 Y=48.80567653333333
@20110626_202114 X=2.2649744666666667 Y=48.80567653333333
@20110626_202315 X=2.2649744666666667 Y=48.80567653333333
@20110626_202344 X=2.2649744666666667 Y=48.80567653333333
@20110626_202644 X=2.2649744666666667 Y=48.80567653333333
@20110626_202731 X=2.2649744666666667 Y=48.80567653333333
@20110626_202942 X=2.2649744666666667 Y=48.80567653333333
@20110626_203045 X=2.2649744666666667 Y=48.80567653333333
@20110626_203345 X=2.2649744666666667 Y=48.80567653333333
@20110626_203546 X=2.2649744666666667 Y=48.80567653333333
@20110626_203747 X=2.2649744666666667 Y=48.80567653333333
@20110626_203947 X=2.2649744666666667 Y=48.80567653333333
@20110626_204152 X=2.2649744666666667 Y=48.80567653333333
@20110626_204154 X=2.2650619 Y=48.8057489
@20110626_204347 X=2.2650619 Y=48.8057489
@20110626_204547 X=2.26495025 Y=48.805999799999995
@20110626_204747 X=2.26495025 Y=48.805999799999995
@20110626_204947 X=2.26495025 Y=48.805999799999995
@20110626_205147 X=2.2649744666666667 Y=48.80567653333333
@20110626_205348 X=2.2650619 Y=48.8057489
@20110626_205432 X=2.2649744666666667 Y=48.80567653333333
@20110626_205552 X=2.2649744666666667 Y=48.80567653333333
@20110626_205636 X=2.2651009 Y=48.8064678
@20110626_205732 X=2.2650619 Y=48.8057489
@20110626_205813 X=2.26532425 Y=48.80611205
@20110626_210047 X=2.2650619 Y=48.8057489
@20110626_210248 X=2.2650619 Y=48.8057489
@20110626_210448 X=2.2650619 Y=48.8057489
@20110626_210609 X=2.2650619 Y=48.8057489
@20110626_210648 X=2.2650619 Y=48.8057489
@20110626_210819 X=2.2650619 Y=48.8057489
@20110626_210826 X=2.26582656 Y=48.808323740000006
@20110626_210952 X=2.265915855555556 Y=48.808689711111114
@20110626_211022 X=2.265915855555556 Y=48.808689711111114
@20110626_211227 X=2.265915855555556 Y=48.808689711111114
@20110626_211433 X=2.2551746 Y=48.7697576
@20110626_211553 X=2.252589275 Y=48.774798225
@20110626_211644 X=2.2477616 Y=48.7646422
@20110626_211754 X=2.2534886166666666 Y=48.772087383333336
@20110626_211957 X=2.2611290900000003 Y=48.76553981
@20110626_212103 X=2.2611290900000003 Y=48.76553981
@20110626_212254 X=2.27111185 Y=48.759730950000005
@20110626_212300 X=2.27111185 Y=48.759730950000005
@20110626_212454 X=2.2969761 Y=48.7614771
@20110626_212506 X=2.2969761 Y=48.7614771
@20110626_212655 X=2.3405778 Y=48.7563542
@20110626_212700 X=2.3555044 Y=48.7531543
@20110626_212858 X=2.382447 Y=48.7643958
@20110626_213059 X=2.397683 Y=48.772589
@20110626_213302 X=2.4247735 Y=48.7763057
@20110626_213455 X=2.445517 Y=48.7826943
@20110626_213658 X=2.4486724 Y=48.7842749
@20110626_213855 X=2.44830575 Y=48.7839879
@20110626_213900 X=2.44830575 Y=48.7839879
@20110626_213901 X=2.44830575 Y=48.7839879
@20110626_214057 X=2.448122425 Y=48.7838444
@20110626_214257 X=2.4482173400000002 Y=48.78381696
@20110626_214500 X=2.4482173400000002 Y=48.78381696

rem projection Google Earth de LocalteMyPhone
rem version 20110703
' 20110703 autorise données supplémentaires en fin de ligne 
dim fs 
set fs=createobject("scripting.filesystemobject")
dim fi
dim fkml ' pour kml
'

dim xpre
dim ypre

Set args = Wscript.Arguments
dim nom
manuel=false
if manuel then
nom="clamart-creteil"
else
if args.count =1 then 
nom=args(0)
else
nom=inputbox("Conversion LocateMyPhone vers Google Earth" & vbcrlf & _
"pour un usage amical," & vbcrlf & _
"après avoir fermé cette fenêtre, " &vbcrlf & _
"draguez l'icône du fichier produit par LocateMyPhone sur ce 'android2kml.vbs'" & vbcrlf & _
  "Vous pouvez également donner directement ici le nom de ce fichier.")
if nom="" then wscript.quit
end if
end if

'


nomin=nom ' & ".txt"
nomkml=nom & ".kml"
' msgbox nom & vbcrlf & nomin & vbcrlf & nomout
 on error resume next
set fi=fs.opentextfile(nomin ,1)
if err.number <>0 then 
    msgbox "erreur " & err.description & vbcrlf & "en ouvrant lecture " & nomin
    on error goto 0
    wscript.quit
    end if

 on error resume next
set fkml=fs.createtextfile(nomkml,true)
if err.number <>0 then 
    msgbox "erreur " & err.description & vbcrlf & "en ouvrant écriture " & nomkml
    on error goto 0
    wscript.quit
    end if

doentete


dim iti
iti=false
dim tot
dim rang
tot=""
rang=0
'
while not fi.atendofstream
tot=fi.readline

nbli=nbli+1
' coord
tot=ucase(tot)
if instr(tot,"@")*instr(tot,"X=")*instr(tot,"Y=") = 0 then 
' msgbox "ligne "+nbli+" invalide" & vbcrlf & tot 

else
ib=instr(tot," X=")
stamp=mid(tot,2,ib-1)
coordeq=mid(tot,ib+3)
ib=instr(coordeq," Y=")
x=mid(coordeq,1,ib-1)
y=mid(coordeq,ib+3)
if instr(y," ")>0 then y=mid(y,1,instr(y," ")-1)
' msgbox "ligne "+nbli+" valide" & vbcrlf & tot 
point x,y,stamp
end if
wend 
    msgbox "termine nbli=" & nbli
    
  ft.close
  epilogue

'  end main

sub point (x,y,stamp)
'x=mid(coord,1,instr(coord,"*")-1)
'y=mid(coord,instr(coord,"*")+1)

          fkml.writeline "  <Placemark>"
          fkml.write "      <description>" & x & "*" & y & "<br/>" & stamp 
          fkml.writeline "</description>"
          fkml.writeline "      <styleUrl>#default+nicon=0x467+hicon=0x477_copy0</styleUrl>"
          fkml.writeline "      <Point><coordinates>" & x & "," & y & "</coordinates></Point>"
          fkml.writeline "  </Placemark>"

if xpre<>"" then 
    fkml.writeline "<Placemark><name>TrackPoints pour line </name><description>mettre ce que lon veut </description>"
    fkml.writeline "<styleUrl>#default+nicon=0x467+hicon=0x477</styleUrl>"
    fkml.writeline "<LineString><tessellate>1</tessellate>	<coordinates>" & xpre & "," & ypre & " " & x & "," & y & "</coordinates></LineString>"
    fkml.writeline "</Placemark>"
end if
xpre=x
ypre=y

end sub


function icon (palette,x,y,w,h)
icon="<IconStyle><Icon><href>root://icons/palette-"&palette&".png</href><x>"& x & "</x><y>" & y & "</y><w>"&w&"</w><h>"&h&"</h></Icon> </IconStyle>"
end function 



sub doentete
Pxy=icon(4,0,0,32,32)

fkml.writeline "<?xml version=""1.0"" encoding=""UTF-8""?>"
fkml.writeline "<kml xmlns=""http://earth.google.com/kml/2.1"">"
fkml.writeline "<Document>"
fkml.writeline "    <name>" & nomfi & "</name>"
fkml.writeline "    <Style id=""test"">"
fkml.writeline "            " & Pxy   
fkml.writeline "        <LineStyle id=""invente; "">"
' lines
fkml.writeline "            <color>7f00007f</color>" ' noir


fkml.writeline "            <width>4</width>"
fkml.writeline "        </LineStyle>"
fkml.writeline "    </Style>"

' 3 je perds le noir
fkml.writeline "    <StyleMap id=""default+nicon=0x467+hicon=0x477"">"
fkml.writeline "        <Pair>"
fkml.writeline "            <key>normal</key>"
'fkml.writeline "            <styleUrl>default+icon=0x467</styleUrl>"
fkml.writeline "            <styleUrl>test</styleUrl>"
fkml.writeline "        </Pair>"
fkml.writeline "        <Pair>"
fkml.writeline "            <key>highlight</key>"
'fkml.writeline "            <styleUrl>default+icon=0x477</styleUrl>"
fkml.writeline "            <styleUrl>test</styleUrl>"
fkml.writeline "        </Pair>"
fkml.writeline "    </StyleMap>"


fkml.writeline "    <Folder>"
fkml.writeline "        <name>Lieux temporaires</name>"
fkml.writeline "        <open>1</open>"
fkml.writeline "        <Folder>"
fkml.writeline "            <name>2007-06-09:06:22:06</name>"
fkml.writeline "            <open>1</open>"
fkml.writeline "            <Placemark>"
fkml.writeline "                <name>TrackPoints</name>"
fkml.writeline "                <description>2007-06-09:06:22:06</description>"
fkml.writeline "                <styleUrl>#default+nicon=0x467+hicon=0x477</styleUrl>"
fkml.writeline "            </Placemark>"


end sub

sub epilogue
fkml.writeline "        </Folder>"
fkml.writeline "    </Folder>"

fkml.writeline "</Document>"
fkml.writeline "</kml>"

fkml.close
end sub