Creer un fichier html avec VB.net [Résolu]

calitoli 45 Messages postés jeudi 26 juin 2008Date d'inscription 7 septembre 2012 Dernière intervention - 7 sept. 2012 à 05:33 - Dernière réponse : calitoli 45 Messages postés jeudi 26 juin 2008Date d'inscription 7 septembre 2012 Dernière intervention
- 7 sept. 2012 à 16:45
[size=100]
Bonjour Tout'l monde,

J'ai un probleme qui m'empeche de continuer. J'ai creer une application qui va permettre a l'utilisateur
de preciser le nom de son fichier KML dans un textBox. Ce fichier se trouve quelque part sur internet.

Lorsque l'utilisateur cliclk sur le boutton "OKey", l'application cree un fichier html, à l'interieur de ce fichier on doit preciser le lien du fichier kml


Dim PathHTML As String = TextBox2.Text
       
 If File.Exists(PathHTML & "" & textBox1.Text & ".html") = False Then
       
            Using sw As StreamWriter = File.CreateText(PathHTML & "" & textBox1.Text & ".html")
                sw.WriteLine("<html>")
                sw.WriteLine("<head>")
                sw.WriteLine("<title>test</title>")
                sw.WriteLine("<style type='text/css'>")
                sw.WriteLine("div#map_container{")
                sw.WriteLine("	width:100%;")
                sw.WriteLine("	height:700px;")
                sw.WriteLine("}")
                sw.WriteLine("</style>")
                sw.WriteLine("<script type='text/javascript' ")
                sw.WriteLine("   src='http://maps.googleapis.com/maps/api/js?sensor=false'></script>")
                sw.WriteLine("<script type='text/javascript'>")
                sw.WriteLine("  function loadMap() {")
                sw.WriteLine("    var latlng = new google.maps.LatLng(88.573070, 52.268034);")
                sw.WriteLine("    var myOptions = {")
                sw.WriteLine("      //zoom: 10,")
                sw.WriteLine("      center: latlng,")
                sw.WriteLine("      mapTypeId: google.maps.MapTypeId.ROADMAP")
                sw.WriteLine("    };")
                sw.WriteLine("    var map = new        google.maps.Map(document.getElementById('map_container'),myOptions);")

                sw.WriteLine("var ctaLayer = new google.maps.KmlLayer('http://dl.dropbox.com/blabla/');")        
                
                sw.WriteLine("	ctaLayer.setMap(map); ")
                sw.WriteLine("  }")
                sw.WriteLine("</script>")
                sw.WriteLine("</head>")
                sw.WriteLine("")
                sw.WriteLine("

")
                sw.WriteLine("")
                sw.WriteLine("</html>")
                'sw.WriteLine("exit")
                sw.Flush()
                                
            End Using
        Else
            
        End If



Ici,
sw.WriteLine("var ctaLayer = new google.maps.KmlLayer('http://dl.dropbox.com/blabla/');")

apres /blabla, c'est la que je dois passer la valeur de textBox1.Text.kml
Comment je peux le faire SVP?

merci deja pour votre aide.

-Calito
/size[size=50]
/size
Afficher la suite 

3 réponses

Répondre au sujet
NHenry 14134 Messages postés vendredi 14 mars 2003Date d'inscription 23 avril 2018 Dernière intervention - 7 sept. 2012 à 12:48
0
Utile
Bonjour,

Ben, avec une concaténation de chaine ("123456" & UneChaine & "21336565654"

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Commenter la réponse de NHenry
calitoli 45 Messages postés jeudi 26 juin 2008Date d'inscription 7 septembre 2012 Dernière intervention - 7 sept. 2012 à 15:23
0
Utile
Merci NHenry,
Je vais faire de mon mieux pour respecter les regles. Merci encore.


Calito

-Calito
Commenter la réponse de calitoli
calitoli 45 Messages postés jeudi 26 juin 2008Date d'inscription 7 septembre 2012 Dernière intervention - 7 sept. 2012 à 16:45
-2
Utile
Et voila, c'est bon.
Merci encore a toi NHenry et a tous ceux qui ont lu.

voici le code:
sw.WriteLine("var ctaLayer = new google.maps.KmlLayer('http://dl.dropbox.com/blabla/" & TextBox1.Text & ".kml'); ")

Calito

-Calito
Commenter la réponse de calitoli

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.