1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
| IdFichier est un entier
Chemin est une chaîne=fRépertoireTemp()
PageWeb est une chaîne="Recherche_Coordonnees"
IdFichier = fCrée(Chemin+PageWeb+".txt")
fEcritLigne(IdFichier,"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\"">")
fEcritLigne(IdFichier,"<html>")
fEcritLigne(IdFichier,"<head>")
fEcritLigne(IdFichier,"<script src=""http://maps.google.com/maps?file=api&v=2&key=MA CLE GOOGLE""type=""text/javascript""></script>")
fEcritLigne(IdFichier,"<style type=""text/css"">img {border-width:0px;}body {margin:0px;padding:0px;}</style>")
fEcritLigne(IdFichier,"<script type=""text/javascript"">//<![CDATA[if (GBrowserIsCompatible()) {}")
fEcritLigne(IdFichier,"function load() {if (GBrowserIsCompatible()) {var map = new GMap2(document.getElementById(""map""));map.addControl(new GLargeMapControl());map.addControl(new GMapTypeControl());map.enableDoubleClickZoom();map.enableScrollWheelZoom();map.setCenter(new GLatLng(45.00,6.00), 9);")
fEcritLigne(IdFichier,"var Marqueur000 = new GIcon();Marqueur000.image = ""C:\Documents and Settings\jean-marie.muller\Bureau\base impact\button_cancel.png"";Marqueur000.iconSize = new GSize(32,32);Marqueur000.shadowSize = new GSize(32,32);Marqueur000.iconAnchor = new GPoint(6,6);Marqueur000.infoWindowAnchor = new GPoint(11,0);Marqueur000.infoShadowAnchor = new GPoint(11,0);")
fEcritLigne(IdFichier,"var Marqueur001 = new GIcon();Marqueur001.image = ""C:\Documents and Settings\jean-marie.muller\Bureau\base impact\button_cancel.png"";Marqueur001.iconSize = new GSize(32,32);Marqueur001.shadowSize = new GSize(32,32);Marqueur001.iconAnchor = new GPoint(6,6);Marqueur001.infoWindowAnchor = new GPoint(11,0);Marqueur001.infoShadowAnchor = new GPoint(11,0);")
fEcritLigne(IdFichier,"function createMarker(point,icon,Texte) {var marker = new GMarker(point,icon);GEvent.addListener(marker, ""click"", function() {this.openInfoWindowHtml(Texte); });return marker;}")
fEcritLigne(IdFichier,"var point = new GLatLng(45.00,6.00);map.addOverlay(createMarker(point,Marqueur000,""Données <b>HTML</b>""))")
fEcritLigne(IdFichier,"var point = new GLatLng(45.1,6.1);map.addOverlay(createMarker(point,Marqueur001,""Données HTML""))")
fEcritLigne(IdFichier,"var point = new GLatLng(45.1,5.9);map.addOverlay(createMarker(point,Marqueur001,""Données <i>HTML</i>""))")
fEcritLigne(IdFichier,"}}//]]>")
fEcritLigne(IdFichier,"</script>")
fEcritLigne(IdFichier,"</head>")
fEcritLigne(IdFichier,"<body onload=""load()"" onunload=""GUnload()"">")
fEcritLigne(IdFichier,"<div id=""map"" style=""width: 550px; height: 450px""></div>")
fEcritLigne(IdFichier,"</body>")
fEcritLigne(IdFichier,"<html>")
//----------------------- copie txt vers htm-----------------------------------------------------------------------------------
fCopieFichier(Chemin+PageWeb+".txt",Chemin+PageWeb+".htm")
//Map_commune=fLit(IdFichier)
fFerme(IdFichier)
fSupprime(Chemin+PageWeb+".txt")
mon_html est une chaîne=(Chemin+PageWeb+".htm")
Map_commune =fChargeTexte(mon_html) |
