METAGEN; GÉNÉRATEUR META TAG

Messages postés
192
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
31 janvier 2007
- - Dernière réponse : cs_Arkko
Messages postés
192
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
31 janvier 2007
- 20 févr. 2002 à 18:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2645-metagen-generateur-meta-tag

Afficher la suite 
cs_Arkko
Messages postés
192
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
31 janvier 2007
-
Utile ton prog pour ceux qui commence en HTML ...
Tu pourrais faire un commondialog qui enregistre un textbox ... visible ou non où ton code HTML est ecrit pis tu met un filtre *.txt et *.html
cs_kawash
Messages postés
79
Date d'inscription
vendredi 8 février 2002
Statut
Membre
Dernière intervention
27 août 2006
-
oui pour le commondialog ya pas de probleme ca j'y arrive, j'ai le bouton enregistrer sous.." qui y est mais inactif, et je sais pas comment faire pour qu'il enregistre.
cs_Arkko
Messages postés
192
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
31 janvier 2007
-
Bon bien ce n'est pas très dur...
met un common dialog nomme cd1
pis un bouton ... ici nommé command1
tu met un textbox ou variable ici le text box est nommé textbox
et le textbox est egal a tes metas a exporter
Écrit dans ton form

Private Sub Command1_Click()
On Error Resume Next
cd1.DialogTitle = "Exporter"
cd1.Filter = "Fichier HTML (*.html)|*.html||Fichiers Texte (*.TXT)|*.TXT|"Tout les fichiers (*.*)|*.*
cd1.FileName = "sanstitre.html"
cd1.ShowSave

If cd1.FileName <> "" Then
kill (cd1.filename)
open cd1.filename for append as #1
print #1 , textbox.text
close
else
MsgBox "ERREUR", vbCritical, "Vous devez specifier un nom de fichier"
End If
End sub

Bon je pense que cest tout ... on peut remplacer un textbox par une variable string de preference si ya un bug laisse un commentaire ou mail moi ... pis j'va corrige ... car je suis a l'ecole pis y'ont pas vb.... mais cela va marcher ... mais ptete qui manque un point ou guilmet ... car je peut pas debuger ....PAS GRAVE CAR il va surement fonctionner ....

@+ARKKO
(Alexandre Langlois)