' par flavigny@free.fr, voir version plus bas
' reprise des emails de LogsmHtml
'
' paramètres à ajuster:
version="LoGsmHtml2Kml.vbs 20090710-0700"
mbox="0672899468.txt"

' gestion on error HORS SERVICE, toute erreur est fatale pendant le développement!
' on error resume next 
on error goto 0

'

dim fs
set fs=createobject("scripting.filesystemobject")

dim mbox

'end if
'
dim xp
dim yp

xp=0
yp=0

jp=""


if mbox="" then mbox=inputbox("nom du fichier résumé?")
if mbox="" then wscript.quit

' extraire de nom du fichier
nomfi=mbox
while instr(nomfi,"\")>0
   nomfi=mid(nomfi,instr(nomfi,"\")+1)
wend

' extraire le numéro de téléphone
' numero="0672899468"
numero=left(nomfi,instr(nomfi,".")-1)
if left(numero,1)="0" then numero=mid(numero,2)


'
dim ptvus
ptvus=0
' C:\Users\adminpo\Desktop\ViaMichelin\LoGsmJava2Kml\0643214680-abcd

 

dim fi
dim fo
nomfi=nomfi & ".kml"

set fo=fs.createtextfile(nomfi,true)


'msgbox "mbox: " & mbox & " " & len(mbox) & vbcrlf & "nomfi: " & nomfi & " " & len(nomfi)  & vbcrlf & "mobile: " & mobile

dim li

'' copier le debut


fo.writeline "<?xml version=""1.0"" encoding=""UTF-8""?>"
fo.writeline "<kml xmlns=""http://earth.google.com/kml/2.1"">"
fo.writeline "<Document>"
fo.writeline "    <name>" & nomfi & " par " & version & " </name>"
fo.writeline "    <Style id=""default+icon=0x467"">"
fo.writeline "        <IconStyle>"
fo.writeline "            <Icon>"
fo.writeline "                <href>root://icons/palette-4.png</href>"
fo.writeline "                <x>224</x>"
fo.writeline "                <y>192</y>"
fo.writeline "                <w>32</w>"
fo.writeline "                <h>32</h>"
fo.writeline "            </Icon>"
fo.writeline "        </IconStyle>"
fo.writeline "        <LineStyle id=""khLineStyle989_copy0; "">"
fo.writeline "            <color>7f0000ff</color>"
fo.writeline "            <width>4</width>"
fo.writeline "        </LineStyle>"
fo.writeline "    </Style>"
fo.writeline "    <StyleMap id=""default+nicon=0x467+hicon=0x477_copy0"">"
fo.writeline "        <Pair>"
fo.writeline "            <key>normal</key>"
fo.writeline "            <styleUrl>default+icon=0x467_copy0</styleUrl>"
fo.writeline "        </Pair>"
fo.writeline "        <Pair>"
fo.writeline "            <key>highlight</key>"
fo.writeline "            <styleUrl>default+icon=0x477_copy0</styleUrl>"
fo.writeline "        </Pair>"
fo.writeline "    </StyleMap>"
fo.writeline "    <Style id=""default+icon=0x467_copy0"">"
fo.writeline "        <IconStyle>"
fo.writeline "            <Icon>"
fo.writeline "                <href>root://icons/palette-3.png</href>"
fo.writeline "                <x>224</x>"
fo.writeline "                <w>32</w>"
fo.writeline "                <h>32</h>"
fo.writeline "            </Icon>"
fo.writeline "        </IconStyle>"
fo.writeline "    </Style>"
fo.writeline "    <StyleMap id=""default+nicon=0x467+hicon=0x477"">"
fo.writeline "        <Pair>"
fo.writeline "            <key>normal</key>"
fo.writeline "            <styleUrl>default+icon=0x467</styleUrl>"
fo.writeline "        </Pair>"
fo.writeline "        <Pair>"
fo.writeline "            <key>highlight</key>"
fo.writeline "            <styleUrl>default+icon=0x477</styleUrl>"
fo.writeline "        </Pair>"
fo.writeline "    </StyleMap>"
fo.writeline "    <Style id=""Default + Icon = 0; x477_copy0; "">"
fo.writeline "        <IconStyle>"
fo.writeline "            <scale>1.1</scale>"
fo.writeline "            <Icon>"
fo.writeline "                <href>root://icons/palette-3.png</href>"
fo.writeline "                <x>224</x>"
fo.writeline "                <w>32</w>"
fo.writeline "                <h>32</h>"
fo.writeline "            </Icon>"
fo.writeline "        </IconStyle>"
fo.writeline "        <LabelStyle>"
fo.writeline "            <scale>1.1</scale>"
fo.writeline "        </LabelStyle>"
fo.writeline "    </Style>"
fo.writeline "    <Style id=""Default+Icon=0x477"">"
fo.writeline "        <IconStyle>"
fo.writeline "            <scale>1.1</scale>"
fo.writeline "            <Icon>"
fo.writeline "                <href>root://icons/palette-4.png</href>"
fo.writeline "                <x>224</x>"
fo.writeline "                <y>224</y>"
fo.writeline "                <w>32</w>"
fo.writeline "                <h>32</h>"
fo.writeline "            </Icon>"
fo.writeline "        </IconStyle>"
fo.writeline "        <LabelStyle>"
fo.writeline "            <scale>1.1</scale>"
fo.writeline "        </LabelStyle>"
fo.writeline "        <LineStyle id=""khLineStyle989_copy1"">"
fo.writeline "            <color>7f0000ff</color>"
fo.writeline "            <width>4</width>"
fo.writeline "        </LineStyle>"
fo.writeline "    </Style>"
 fo.writeline "    <Folder>"
 fo.writeline "        <name>Lieux temporaires</name>"
' fo.writeline "        <name>LoGsmHtml</name>"
 fo.writeline "        <open>1</open>"
fo.writeline "        <Folder>"
fo.writeline "            <name>2007-06-09:06:22:06</name>"
fo.writeline "            <open>1</open>"
'fo.writeline "            <Placemark>"
'fo.writeline "                <name>TrackPoints</name>"
'fo.writeline "                <description>2007-06-09:06:22:06</description>"
'fo.writeline "                <styleUrl>#default+nicon=0x467+hicon=0x477</styleUrl>"
'fo.writeline "            </Placemark>"



set fi=fs.opentextfile(mbox ,1)

dim trouve
trouve=false

while not fi.atendofstream
 pre=nu
  li=fi.readline()
'#:33672899468 le:2008-10-10T17:56:14Z+0200 X:+2.332778 Y:+48.808056 R:331 xy<br>
'#:33672899468 le:2008-10-10T18:03:11Z+0200 X:+2.316389 Y:+48.808611 R:835 xy<br>

   if instr(li,numero)>0  then 

          ptvus=ptvus+1

       ' extraire date
      ladate=""
      iou=instr(li,"le:")
      if iou>0 then 
           ladate=mid(li,iou)
           ladate=left(ladate,instr(ladate," "))
       end if

j=mid(ladate,4,10)

       ' extraire x
      x=""
      iou=instr(li,"X:")
      if iou>0 then 
           x=mid(li,iou+3)
           x=trim(left(x,instr(x," ")))
       end if
       
       ' extraire y
      y=""
      iou=instr(li,"Y:")
      if iou>0 then 
           y=mid(li,iou+3)
           y=trim(left(y,instr(y," ")))
       end if

if (x<>"") and (y<>"")  then

' delay
' même jour ?
  if (jp="") or (j=jp) then 
    d=0
   else 
    d=-24
   end if

   h=cdbl(mid(ladate,15,2))
   m=cdbl(mid(ladate,18,2))
   s=cdbl(mid(ladate,21,2))
   t=h+m/60+s/3600

   elapse=d-tp+t
   tp=t
   jp=j

' distance
if instr(x,".")>0 then 
   xx=left(x,instr(x,".")-1) & "," & mid(x,instr(x,".")+1)
   else
   xx=x
  end if
   xxx=cdbl(xx)

if instr(y,".")>0 then 
   yy=left(y,instr(y,".")-1) & "," & mid(y,instr(y,".")+1)
   else
   yy=y
  end if
   yyy=cdbl(yy)

    dx=(xxx-xp)  *cos(yyy*3.14/180)
    dy=yyy-yp
    d2=sqr((dx*dx+dy*dy))
    k2=d2*40000/360

    v2=k2/elapse

      '    fo.writeline numero & " " & iteration & " " & x & " " & y & " " & v2 & " " & ladate
   datecourte=mid(left(ladate,len(ladate)-10),4)
   datecourte=left(datecourte,4)  & mid(datecourte,6,2) & mid(datecourte,9,2)& ":" & mid(datecourte,12,2) & mid(datecourte,15,2)
   
          fo.writeline "  <Placemark>"
          fo.writeline "                <name>" & datecourte  & "</name>"

          fo.writeline "      <description> " & numero &  " " & ptvus & " "  & " x°=" & xxx & " y°=" & yyy &" xp°=" & xp & " yp°=" & yp & " dx°=" & dx & " dy°=" & dy & " d°=" & d2 & " distKm=" & k2 & " elapseH=" & elapse & " vKm/H=" & v2 & " </description>"
          fo.writeline "      <styleUrl>#default+nicon=0x467+hicon=0x477_copy0</styleUrl>"
          fo.writeline "      <Point><coordinates>" & x & "," & y & "</coordinates></Point>"
          fo.writeline "  </Placemark>"
   xp=xxx
   yp=yyy
end if

 end if 
wend
msgbox "termine " & ptvus
fo.writeline "        </Folder>"
fo.writeline "    </Folder>"
fo.writeline "</Document>"
fo.writeline "</kml>"

fo.close
 ' wscript.quit